Программа на паскале. Помогите, пожалуйста! Ряд чисел Фибоначчи задается следующим образом: первые два числа равны 1 ( F 1 = F 2
= 1 ), а каждое следующее равно сумму двух предыдущих: F i = F i - 1 + F i - 2 . Напишите программу, которая вводит натуральное число N и выводит первые N чисел Фибоначчи.
Входные данные
Входная строка содержит натуральное число N – количество нужных чисел Фибоначчи.
Выходные данные
Программа должна вывести в одной строке первые N чисел Фибоначчи, разделив их пробелами.
Входные данные
Входная строка содержит натуральное число N – количество нужных чисел Фибоначчи.
Выходные данные
Программа должна вывести в одной строке первые N чисел Фибоначчи, разделив их пробелами.
2 ответа:
...А если интересует решение на классическом Паскале, предлагаю просто поддерживать текущее, предыдущее и пред-предыдущее значения в ряду, и в цикле обновлять ответ.
Обрати внимание! longint может хранить значения только до , поэтому конкретно в этой программе вывод будет достоверным только для <em>N ≤ 46. </em>Ты можешь сделать текущую, предыдущую и пред-предыдущую переменные типа <em>int64</em>, и тогда максимальное значение N возрастёт до <em>92</em>. Для бОльших N тебе придётся писать длинное сложение.
<h3>Код</h3>
var
i, n, pred, predpred, cur: longint;
begin
read(n);
if n = 1 then writeln(1)
else if n = 2 then writeln('1 1')
else write('1 1 ');
if n < 3 then exit;
pred := 1;
predpred := 1;
for i := 3 to n do
begin
cur := pred + predpred;
write(cur, ' ');
predpred := pred;
pred := cur;
end;
writeln;
end.
Читайте также