数据库应用程序设计离线作业答案(6)

2013浙大远程教育

y:=6;

z:=9;

fact:=ff(x)+ff(y)+ff(z);

writeln('4！+6！+9！=',fact);

readln;

try

{ TODO -oUser -cConsole Main : Insert code here }

except

on E:Exception do

Writeln(E.Classname, ': ', E.Message);

end;

end.

4、有两个红球、三个黄球、四个白球、任意取四个球，其中必须有一个红球，编程输出所有可能的方案。

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

red,yellow,white:integer;

begin

red:=1;

for red := 1 to 2 do

begin

yellow:=0;

while yellow<4-red do

begin

white:=4-red-yellow;

yellow:=yellow+1;

writeln('红球个数：',red,'黄球个数：',yellow, '白球个数：',white) ; end;

end;

readln;

try

{ TODO -oUser -cConsole Main : Insert code here }

except

on E:Exception do

Writeln(E.Classname, ': ', E.Message);

end;

end.