Помогите решить задачу в Паскале

NAt · 14.01.2013, 18:07

Числа Фибоначчи определяются формулами: f(0)=2; f(1)=2, f(n)=f(n-1)+f(n-2) при n=2,3… Вычислить сумму всех чисел Фибоначчи, которые не превосходят 1000. Помогите пожалуйста разобраться)

Léon · 14.01.2013, 18:25

NAt, глянь эту тему - Помогите, пожалуйста, решить задачи в Паскале (здесь похожая задача и теория есть).

AlexZir · 14.01.2013, 18:40

Последовательность Фибоначчи начинается с 1, а не с двойки!
1, 1, 2, 3, 5, 8, 13, 21, 34...

Что-то у вас с заданием не в порядке.

Gruvi · 16.01.2013, 13:19

Цитата:

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

Последовательность Фибоначчи начинается с 1, а не с двойки!
1, 1, 2, 3, 5, 8, 13, 21, 34...

Что-то у вас с заданием не в порядке.

Вот тебе решение для ПРАВИЛЬНОГО алгоритма:

Цитата:

Program SummaFib;
Uses Crt;
Var M, {заданное число }
F0, F1, F2, {три последовательных числа Фибоначчи}
S : Integer; {сумма чисел Фибоначчи}

BEGIN
ClrScr;
Write(’Введите натуральное М : ’);
ReadLn(M);

F0:=1; F1:=1; F2:=2;
S:=4; {4 – сумма первых трех чисел Фибоначчи}
Write(’Числа Фибоначчи, не превосходящие ’, M, ’ :’, F0:4, F1:4);
While F2<=M do
begin
F0:=F1; F1:=F2; Write(F1 : 4);
F2:=F0+F1; S:=S+F2;
end;
S:=S–F2; {вычитание из суммы последнего числа, которое превосходит М}

WriteLn; WriteLn;
WriteLn(’О т в е т : Сумма этих чисел равна ’, S); ReadLn
END.

14.01.2013, 18:07	#1 (permalink)
NAt Member Регистрация: 09.12.2012 Сообщений: 45 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить задачу в Паскале Числа Фибоначчи определяются формулами: f(0)=2; f(1)=2, f(n)=f(n-1)+f(n-2) при n=2,3… Вычислить сумму всех чисел Фибоначчи, которые не превосходят 1000. Помогите пожалуйста разобраться)

14.01.2013, 18:07
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Данные посты могут вам помочь в решении проблемы, т.к они аналогичны вашей теме Помогите решить задачу в паскале Помогите решить задачу в паскале Помогите решить задачу в Паскале

14.01.2013, 18:25	#2 (permalink)
Léon С# - learn or die Регистрация: 17.12.2011 Сообщений: 2,438 Записей в дневнике: 8 Сказал(а) спасибо: 21 Поблагодарили 49 раз(а) в 11 сообщениях Репутация: 19701	NAt, глянь эту тему - Помогите, пожалуйста, решить задачи в Паскале (здесь похожая задача и теория есть).

14.01.2013, 18:40	#3 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Последовательность Фибоначчи начинается с 1, а не с двойки! 1, 1, 2, 3, 5, 8, 13, 21, 34... Что-то у вас с заданием не в порядке.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070