Текст программы. Приведем три реализации данных алгоритмов с использованием различных операторов циклаДоверь свою работу кандидату наук!
Приведем три реализации данных алгоритмов с использованием различных операторов цикла. 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; untili>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; fori:=1 to n do F :=F*i; writeln(n,'!=',F:12); readln; end.
Пример 2. Найдите n-й член ряда Фибоначчи. Члены ряда Фибоначчи можно вычислить по формуле a1 = a2 = 1, ai = ai-1 + ai-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.
|