Числа Фибоначчи

[arnold]

Задание: Распечатать первые 30 чисел фибоначчи

var a:array [1..100] of integer;
n,i:integer;
begin
writeln('Введите количество чисел фибоначи');
readln(n);
a[1]:=0;
a[2]:=1;
for i:=3 to n do
  begin
  a[i]:=a[i-2]+a[i-1];
  writeln('',a[i]);
  end;
end.

Ввожу в n 30. Печатает от a[3] до a[30]. Не печатает a[1] и a[2]. Можно их распечатать до ввода n, но мне нужно после. Как это сделать?

[VIK_aka_TOR]

1)

var a:array [1..100] of integer;
n,i:integer;
begin
writeln('Введите количество чисел фибоначи');
readln(n);
a[1]:=0;
a[2]:=1;
writeln(a[1]);
writeln(a[2]);
for i:=3 to n do
  begin
  a[i]:=a[i-2]+a[i-1];
  writeln(a[i]);
  end;
end.

2)

var a:array [1..100] of integer;
n,i:integer;
begin
writeln('Введите количество чисел фибоначи');
readln(n);

a[1]:=0;
a[2]:=1;

for i:=3 to n do
  a[i]:=a[i-2]+a[i-1];

for i:=1 to n do
  writeln(a[i]);
end.

первый способ выведет в любом случае первых 2 и до n, а второй указаное количество... то бишь если в первом ввести 1, то выведет 2 числа... а второй только 1.

[BDA]

Плохо ограничивать количество чисел размером массива (рассчитан на 100 чисел). Тип integer тоже маловат по размеру (мало чисел получится). Такой вариант выдаст больше чисел:

var
  a: array [1..3] of longint;
  n, i: integer;
begin
  writeln('Введите количество чисел Фибоначи');
  readln(n);
  a[1] := 0;
  a[2] := 1;
  if n < 3 then
    for i := 1 to n do
        writeln(a[i])
  else
  begin
    writeln(a[1]);
    writeln(a[2]);
    for i := 1 to n - 2 do
    begin
        a[3] := a[1] + a[2];
        writeln(a[3]);
        a[1] := a[2];
        a[2] := a[3];
    end;
  end;
end.

Хотя, тут все равно нету и 100 правильных чисел (быстро переполняется).

[VIK_aka_TOR]

Сообщение от BDA

Плохо ограничивать количество чисел размером массива (рассчитан на 100 чисел). Тип integer тоже маловат по размеру (мало чисел получится). Такой вариант выдаст больше чисел:

var
  a: array [1..3] of longint;
  n, i: integer;
begin
  writeln('Введите количество чисел Фибоначи');
  readln(n);
  a[1] := 0;
  a[2] := 1;
  if n < 3 then
    for i := 1 to n do
        writeln(a[i])
  else
  begin
    writeln(a[1]);
    writeln(a[2]);
    for i := 1 to n - 2 do
    begin
        a[3] := a[1] + a[2];
        writeln(a[3]);
        a[1] := a[2];
        a[2] := a[3];
    end;
  end;
end.

Хотя, тут все равно нету и 100 правильных чисел (быстро переполняется).

самая лучшая и наименее затратная реализация чисел фибоначи у Arigato (насколько я помню) на авке))