Помощь - Поиск - Пользователи - Календарь
Полная версия: Сумма чисел Фибоначчи
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Jangle
Задание 2. Числа Фибоначчи (fn) определяются формулами: f0 = f1;
f1 = 1; fn = fn-1 + fn-2 при n = 2, 3, …, т.е. это бесконечная последовательность чисел вида:
1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, …
Определить: сумму первых чисел Фибоначчи, такиз, что значение суммы не превышает диапазона типа Integer (LonLongInt).

Спасибо за помощь!
mamont001
ответ простой:
GOTO FAQ
Jangle
uses crt;
Var Fib1, Fib2 : longint;
Buf,i,s:longint;
Begin
clrscr;
Fib1 := 1; Fib2 := 1;I:=1;S:=2;
repeat
begin
Buf := Fib2;
Fib2 := Fib2 + Fib1;
Fib1 := Buf;
S:=S+fib2;
i:=i+1;
end;
until s>32767;
s:=s-fib2;
Writeln('itog=',s,' ',i);
readkey;
end.


Подумал. Может так? Люди help!
hiv
Цитата(Jangle @ 4.03.2007 23:36) *
Может так? Люди help!
Так, только вот так красивее:
uses crt;
Var Fib1, Fib2 : longint;
Buf,i,s:longint;
Begin
clrscr;
Fib1 := 1; Fib2 := 1;I:=2;S:=2;
Writeln('nomer=',1:3,' chislo=',Fib1:6,' summa=',1:6);
Writeln('nomer=',i:3,' chislo=',Fib2:6,' summa=',s:6);
repeat
Buf := Fib2;
Fib2 := Fib2 + Fib1;
Fib1 := Buf;
S:=S+fib2;
i:=i+1;
Writeln('nomer=',i:3,' chislo=',Fib2:6,' summa=',s:6);
until s>32767;
readkey;
end.

where can i buy zithromax azithr
Amoxicillin Freeze
how much does viagra cost at wal
Kamagra Oral Jelly Oder Tabletten
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.