Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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




Доверь свою работу кандидату наук!
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

 

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

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.

 







Дата добавления: 2014-11-10; просмотров: 421. Нарушение авторских прав; Мы поможем в написании вашей работы!

Studopedia.info - Студопедия - 2014-2022 год . (0.018 сек.) русская версия | украинская версия