Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 49 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

F0:=1; F1:=1; F2:=2
S:=4 | 4 – сумма первых трех чисел Фибоначчи
нц пока F2<=M
F0:=F1; F1:=F2; F2:=F0+F1 | серия переприсваиваний
S:=S+F2;
кц
S:=S–F2 | из S вычитается последнее значение F2,
превосходящее M
кон
Исполнение алгоритма
F0 F1 F2 S F2<M
1
1
2
3
5
1
2
3
5
8
2
3
5
8
13
4
4+3=7
7+5=12
12+8=20
20+13=33
+
+
+
+
-(кц)
33-13=20
Блок-схема
Turbo Pascal
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); 
  F0:=1; F1:=1; F2:=2
  S:=4   | 4 – сумма первых трех чисел Фибоначчи
  нц пока F2<=M
    F0:=F1; F1:=F2; F2:=F0+F1 | серия переприсваиваний
    S:=S+F2;
  кц
  S:=S–F2   | из S вычитается последнее значение F2,
превосходящее M
кон
                                               Блок-схема




Исполнение алгоритма

 F0   F1   F2      S       F2

Страницы