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

⇐ Предыдущая 7 8 9 10 111213 14 15 16 Следующая ⇒

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

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.

⇐ Предыдущая 7 8 9 10 111213 14 15 16 Следующая ⇒

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

Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при которых тело находится под действием заданной системы сил...

Весы настольные циферблатные Весы настольные циферблатные РН-10Ц13 (рис.3.1) выпускаются с наибольшими пределами взвешивания 2...

Хронометражно-табличная методика определения суточного расхода энергии студента Цель: познакомиться с хронометражно-табличным методом определения суточного расхода энергии...

ОЧАГОВЫЕ ТЕНИ В ЛЕГКОМ Очаговыми легочными инфильтратами проявляют себя различные по этиологии заболевания, в основе которых лежит бронхо-нодулярный процесс, который при рентгенологическом исследовании дает очагового характера тень, размерами не более 1 см в диаметре...

Условия, необходимые для появления жизни История жизни и история Земли неотделимы друг от друга, так как именно в процессах развития нашей планеты как космического тела закладывались определенные физические и химические условия, необходимые для появления и развития жизни...

Метод архитекторов Этот метод является наиболее часто используемым и может применяться в трех модификациях: способ с двумя точками схода, способ с одной точкой схода, способ вертикальной плоскости и опущенного плана...

Примеры задач для самостоятельного решения. 1.Спрос и предложение на обеды в студенческой столовой описываются уравнениями: QD = 2400 – 100P; QS = 1000 + 250P 1.Спрос и предложение на обеды в студенческой столовой описываются уравнениями: QD = 2400 – 100P; QS = 1000 + 250P...

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