Реализация циклов в языке Паскаль
Для организации цикла с известным числом повторений в языке Паскаль используется оператор for.
Структура цикла, организованного с помощью этого оператора, имеет вид:
for i : = a down to b do
begin
тело цикла
end;
for i := a to b do begin
тело цикла
end;
Здесь i — параметр, изменяющийся в цикле; а, b — выражения, обозначающие начальное, конечное значения параметра цикла. Шаг изменения номера параметра цикла равен 1, если в заголовке цикла стоит to; и — 1 — при down to. С другим шагом параметр цикла изменяться не может. Параметр цикла, его начальное и конечное значения должны быть совместимых типов, причем это могут быть только порядковые типы (целые, символьный, логический, перечисляемый и диапазонный).
Задача 1. Дано натуральное п, действительное х. Вычислить:
S = sin1 х + sin2 x + ••• + sinn x.
Разработаем алгоритм решения задачи:
1) ввести данные — количество слагаемых п и число X ,
2) присвоить переменной, в которой будем хранить степени sinx, значение 1; S := 0;
3) присвоить параметру цикла значение 1;
4) если значение параметра цикла меньше п, перейти к следующему пункту, иначе к п. 9;
5) вычислить очередную степень sin x ;
6) добавить вычисленное значение к сумме;
7) увеличить параметр цикла на 1;
8) перейти к п. 4;
9) вывести на печать сумму S;
10) конец.
program summa;
var s, x, pr : геаl; n, i : integer;
Begin
write('введите число слагаемых и х: '); readln(n, x);
pr := 1; {в этой переменной хранятся последовательные степени sin x}
|
|
s := 0;
for i : = 1 to n do
begin pr:=pr*sin(x); {очередная степень, sin(x)}
s := s + pr
end;
writeln ('сумма равна ', s :7 :4)
end.
Для организации итерационных циклов используются операторы цикла с предусловием while и циклы с постусловием repeat — until.
Эти операторы не задают закон изменения параметра цикла, поэтому необходимо перед циклом задавать начальное значение параметра с помощью оператора присваивания, а внутри цикла изменять текущее значение этого параметра.
Соответствующие структуры циклов:
While b do
Begin
тело цикла
end ;
Repeat
тело цикла
until с;
Здесь b, с — логические выражения.
Для оператора цикла с предусловием проверяет значение логического выражения; если оно имеет значение true, то операторы, входящие в цикл, выполняются, в противном случае осуществляется выполнение оператора, следующего за циклом.
Цикл с постусловием выполняется хотя бы один раз. Проверяется логическое выражение; если его значение false, то операторы, входящие в цикл, выполняются, противном случае осуществляется выход из цикла.
Дата добавления: 2020-12-12; просмотров: 75; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!