二十四课:计算F(x)=F(x-1)*F(x-2)/2
发表时间:2002-11-25 00:00:00 关键词:奥赛,PASCAL,编程,源码
(点击:) 把这篇文章告诉我的QQ或MSN朋友
program abc(input,output);
var a:integer;
b:real;
function fuc(x:integer):real;
begin
if(x<=2)
then
begin
if (x=1) then fuc:=2 else fuc:=4;
end
else
fuc:=fuc(x-1)*fuc(x-2)/2;
end;
begin
a:=7;
b:=fuc(a);
writeln(b:5:0);
end.
本站特约顾问律师常州东晟律师事务所朱立律师(电话13915029670,QQ646146109)提醒您:
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
