Текст программы. Приведем три реализации данных алгоритмов с использованием различных операторов цикла

 

Приведем три реализации данных алгоритмов с использованием различных операторов цикла.

program lr2_1_1;

{ Нахождение значенияF= n! }

{ $APPTYPE CONSOLE }

Uses

SysUtils;

Var

i, n: integer;

F: int64;

Begin

writeln('Vvedite n ');

readln(n);

F: =1;

i: =1;

while i < = n do

Begin

F: = F*i;

inc(i);

end;

writeln(n, '! =', F: 12);

readln;

end.

 

program lr2_1_2;

{ Нахождение значенияF= n! }

{ $APPTYPE CONSOLE }

Uses

SysUtils;

Var

i, n: integer;

F: int64;

Begin

writeln('Vvedite n ');

readln(n);

F: =1;

i: =0;

Repeat

inc(i);

F: = F*i;

until i> n;

writeln(n, '! =', F: 12);

readln;

end.

program lr2_1_3;

{ Нахождение значенияF= n! }

{ $APPTYPE CONSOLE }

Uses

SysUtils;

Var

i, n: integer;

F: int64;

Begin

writeln('Vvedite n ');

readln(n);

F: =1;

for i: =1 to n do

F: = F*i;

writeln(n, '! =', F: 12);

readln;

end.

 

Пример 2. Найдите n -й член ряда Фибоначчи. Члены ряда Фибоначчи можно вычислить по формуле a ₁ = a ₂ = 1, a_i = a_{i -1} + a_{i -2}, для i > 2.

Решение. Приведем вариант решения данной задачи с использованием трех переменных для вычисления членов ряда (рис. 2.6).

 

 

 

Рис. 2.6. Схема алгоритма программы

 

Текст программы

 

program lr2_2_1;

{ Найти n-й член ряда Фибоначчи }

{ $APPTYPE CONSOLE }

Uses

SysUtils;

Var

i, n, a, b, c: word;

Begin

write('n= ');

readln(n);

a: =1; b: =1;

for i: =3 to n do

Begin

c: = a + b;

a: = b;

b: = c;

end;

writeln('F(n)= ', b: 8);

readln;

End.

 

Приведенные решения представлены в виде консольных приложений. Учащиеся могут разрабатывать как консольные приложения, так и приложения, использующие компоненты Delphi.