Контрольная работа: Базис стандартной и рекурсивной схемы. Верификация программы

write('Kolichestvo delitelej: ' ,y);

readln ;

end .

Результат работы PASCAL-программы (рис. 3)

Рис. 3

Задание 3

Разработать алгоритм программы, решающей поставленную задачу;

Составить стандартную схему программы и записать полученную программу в линейной форме (рис. 4);

Для каждого оператора программы, записанного в линейной форме определить слабейшие предусловия.

6	Расчет суммы чисел Фибоначчи

Рис. 4

Turbo Pascal

Program SummaFib;

Uses Crt;

Var M, {Zadannoe chislo}

F0, F1, F2, {3 posledovatelnyh chisla Fibonachchi}

S : Integer; {Summa chisel Fibonachch}

BEGIN

ClrScr;

Write('Vvedite naturelnoe chislo M: ');

ReadLn(M);

F0:=1; F1:=1; F2:=2;

S:=4; {4 - summa pervyh 3-x chisel Fibonachchi}

Write('Chisla Fibonachchi, ne prevoshodyaschie ', M, ' :', F0:4, F1:4);

While F2<=M do

begin

F0:=F1; F1:=F2; Write(F1 : 4);

F2:=F0+F1; S:=S+F2;