А там по умолчанию будет и то, и то т.к. числа фибоначи расчитываются обычно через рекурсию, а до числа N надо будет идти циклом while.
Кстати, ряд Фибоначи начинается с двух единиц, а не с одной.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | program fibs;
{$APPTYPE CONSOLE}
function Fib(N : Integer) : Integer;
begin
If N < 1 Then Raise Exception.Create('Номер числа не может быть < 1');
If N < 3
Then Result := 1
Else Result := Fib(N-1) + Fib(N-2);
end;
procedure PrintFib(AMaxFib : Integer);
var
N : Integer;
F : Integer;
begin
F := 0;
N := 1;
While F < AMaxFib Do
Begin
F := Fib(N);
WriteLn(Format('Fib(%d)=%d',[N,F]));
Inc(N);
End;
end;
var
MaxFib : Integer;
begin
Write('Введите макс. число Фибоначи:');
ReadLn(MaxFib);
WriteLn;
WriteLn('Ряд Фибоначи:');
PrintFib(MaxFib);
end.
|
26.06.2009, 15:03
Линейный вид
