Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2 at TECH

240:デフォルトの名無しさん
06/04/25 06:56:08
⇒　if (n >=0) and (n <=1) then fibonacci:=n
＞但し、 f(0) = 0, f(1) = 1 である。
　　　if (n <=1) then fibonacci:=1;

としても、ゼロになるというのは変だね
もしかして　ちゃんとループさせてないんじゃないの？ >>236をそのまま実行させてないでしょ

それから　integerのビット幅はいくら？ 16bitだとビット数が不足するよ

function fibonacci(n: real):real;
begin
　 if (n >=0) and (n <=1) then fibonacci:=1
　 else fibonacci:=fibonacci(n-1)+fibonacci(n-2);
end; { fibonacci }

begin
　 writeln('30項まで求めます');
　 for i :=1 to 30 do
　 begin
　 f[i]:=fibonacci(i);
　 writeln('f(',i:2,')=',f[i]:10:0);
　 end;

　for i:= 3 to 30 do
　begin
　　z[i]:=(f[i-1]-f[i-2])/(f[i]-f[i-1]);
　　writeln('z(',i:2,')=',z[i]);
　　if (i > 3) and (dif >= abs(z[i]-z[i-1])) then
　　　break;
　end;
end.

次ページ

続きを表示

1を表示