Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 19 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

writeln(N, ’-й член прогрессии равен =’,AN:6:3);
writeln(’Сумма первых ’,N,’ членов прогрессии равна =’,SA:6:3);
END;
2:
BEGIN
writeln(’Вы выбрали геометрическую прогрессию.’);
write(’Введите первый член прогрессии B1 =’); readln(B1);
write(’Введите знаменатель прогрессии q =’); readln(q);
write(’Введите номер N =’); readln(N);
BN:=B1∗exp((N-1)∗ln(q));
SB:=(BN∗q-B1)/(q-1);
writeln(N, ’-й член прогрессии равен =’,BN:6:3);
writeln(’Сумма первых ’,N,’ членов прогрессии равна =’,SB:6:3);
END;
END.
2.5. Программирование циклических алгоритмов
Алгоритмы, в которых действия повторяются многократно, назы-
ваются циклическими. Виды циклических алгоритмов и способы их
программирования приведены в табл. 2.5.1. Часто используются циклы
для расчета сумм, произведений, количества. Виды сумм и способы их
расчета приведены в табл. 2.5.2. Примеры программ с циклическими ал-
горитмами приведены также в следующих разделах: 6, 7, 8.
В языке Паскаль существуют три оператора цикла:
FOR … TO …
DO, WHILE … DO, REPEAT … UNTIL.
Общий вид оператора WHILE A DO ST, где А – логическое выра-
жение, ST – оператор, простой или составной.
WHILE X< >0 DO BEGIN G:= C+1/X; x:=x-1 END; В данном при-
мере вычисляется логическое выражение типа X< >0.
Если оно «истина», то будут выполняться операторы G:= 1/X;
X:=X-1; и управление опять будет передаваться вновь на проверку вы-
ражения X< >0. Как только условие X<>0, будет «ложь», будет выпол-
няться оператор, следующий за
END. То есть цикл повторяется пока
X< >0.
Оператор цикла
FOR:
FOR i:=n1 TO n2 DO ST;
где i - переменная цикла; n1 - конечное значение переменной; n2 - ко-
нечное значение переменой ST - оператор, простой или составной.
FOR i:= 1 TO 20 DO a:=a+1; При такой записи будет выполняться
оператор A:=A+1; пока i поочередно принимает значения i= 1,2,...,20.
19

Страницы