Пример. Вычислить сумму и произведение целых чисел от 1 до N, вводимых с клавиатуры.

ЛАБОРАТОРНАЯ РАБОТА

ЦИКЛЫ

Хабаровск

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

ЗАДАНИЕ

Создать блок-схемы и программы вычисления суммы и произведения в соответствии с вариантом.

Вариант	Сумма	Произведение

ТЕОРЕТИЧЕСКАЯ ЧАСТЬ

ОПЕРАТОРЫ ЦИКЛА

Циклическим называется вычислительный процесс, содержащий многократные вычисления по одним и тем же математическим зависимостям, но с разными значениями переменных.

Для организации циклов в Турбо Паскале используется три оператора:

1. Цикл с параметром;

2. Цикл с предусловием;

3. Цикл с постусловием.

Операторы цикла являются сложными операторами, так как в их состав входят другие операторы. Для всех операторов цикла характерны следующие особенности:

P повторяющаяся часть программы записывается только один раз;

P вход в цикл осуществляется через его начало;

P переменные, используемые в операторе цикла должны быть определены до входа в циклическую часть;

P обязательно должен быть предусмотрен выход из цикла, иначе цикл будет повторяться бесконечно.

ОПЕРАТОР ЦИКЛА С ПАРАМЕТРОМ

Оператор цикла с параметром используется в программах в тех случаях, когда заранее известно сколько раз должна повториться циклическая часть.

Операторы имеют вид:

А) FOR i:= A TO B DO

(для) (до) (выполнить)

оператор;

где i – параметр цикла - переменная целого типа ;

A и B – начальное и конечное значения параметра цикла;

оператор – любой простой или составной оператор.

Шаг изменения параметра по умолчанию равен 1.

Б) FOR i:=B DOWNTO A DO оператор;

где i, A и B – начальное и конечное значения переменной «i», а шаг наращивания параметра равен -1.

Для операторов цикла с параметром существуют некоторые ограничения:

P нельзя задавать шаг изменения значения параметра, отличный от 1 или -1;

P нельзя изменять внутри цикла значения параметра цикла, начальное и конечное значения параметра;

P входить в цикл можно только через его начало, а выходить – либо при исчерпании значений параметра цикла, либо при выполнении оператора перехода по метке, расположенной вне данного цикла.

Пример. Вычислить сумму и произведение целых чисел от 1 до N, вводимых с клавиатуры.

Program Primer_1;

Var i,N,S,P:integer;

Begin

Write('Введите количество чисел N= ');

Readln(N);

S:=0; P:=1;

FOR i:=1 TO N DO

Begin

S:=S+i; P:=P*i;

End;

Writeln('S= ',S, ‘ P=’, P);

Readln

End.

ОПЕРАТОР ЦИКЛА С ПРЕДУСЛОВИЕМ

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

WHILE условие DO оператор;

(пока) (выполнять)

где условие – это логическое выражение, от значения которого зависит продолжать повторы или завершить цикл;

оператор – любой простой или составной оператор.

Оператор действует следующим образом: пока логическое условие «True» (истина), то выполняется оператор, входящий в цикл.

Выход из цикла произойдет тогда, когда логическое выражение в его заголовке примет значение "False" (ложно).

Пример. Вычислить сумму и произведение целых чисел от 1 до N, вводимых с клавиатуры.

Program Primer_2;

Var i,N,S,P:integer;

Begin

Write('Введите количество чисел N= ');

Readln(N);

S:=0; P:=1;

i:=1;

WHILE i<=N DO

Begin

S:=S+i;

P:=p*i;

i:=i+1;

end;

Writeln('S= ',S, ‘ P=’,P);

Readln

End.

ОПЕРАТОР ЦИКЛА С ПОСТУСЛОВИЕМ

Оператор цикла с постусловием имеет вид:

REPEAT

(повторять)

Операторы тела цикла;

UNTIL условие;

(до тех пор)

где условие – логическое выражение, диктующее завершение повторов.

Оператор действует следующим образом: повторять цикл до тех пор пока условие не примет значение истина (True).

Если это условие истина, то осуществляется выход из цикла.

Если же значение логического выражения ложно (False), то выполнение операторов тела цикла повторяется.

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

Пример. Вычислить сумму и произведение целых чисел от 1 до N, вводимых с клавиатуры.

Program Primer_3;

Var i,N,S,P:integer;

Begin

Write('Введите количество чисел N= ');

Readln(N);

S:=0; P:=1;

i:=1;

REPEAT

S:=S+i;

P:=1;

i:=i+1;

UNTIL i>N;

Writeln('S= ',S, ‘P=’, P);

Readln

End.

Не нашли, что искали? Воспользуйтесь поиском по сайту: