Основы применения вычислительной техники и программирование. Беспалов В.В. - 26 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Вначале выполняется тело цикла, затем проверяется условие вы-
хода из цикла. В любом случае этот цикл выполняется хотя бы один раз.
Если условие не выполняется, т. е. результатом выражения является
False, то цикл активизируется еще раз. Если условие выполнено, то
происходит выход из цикла. Использования операторных скобок, в слу-
чае если тело цикла состоит из нескольких операторов, не требуется.
Пример 2.11. Составить программу, которая вводит и суммирует
целые числа. Если введено значение 999, то на экран выводится резуль-
тат суммирования.
program s;
var x, s:integer;
begin
s:=0;
repeat
Write(‘Ввести число ’); Readln(x);
if x<>999 then s:=s+x;
until x=999;
Writeln(‘Сумма введенных чисел ’, s);
end.
2.8.4. Типовые задачи с использованием циклов
Пример 2.12. Составить программу для вычисления конечной
суммы ряда n нечётных чисел:
S = 1 + 3 + 5 + 7 + ... + (2⋅n – 1)
для произвольного значения n, введённого с клавиатуры.
Решение:
program summa;
var i,n,s:integer;
begin
write(‘n=’); readln(n);
s:=0;
for i:=1 to n do
s:=s+(2*i-1);
writeln(‘Сумма ряда = ’,s);
end.
Пример 2.13. Составить программу для вычисления суммы ряда
(с точностью до ε = 10
-5
)
S = 1− 1/2
2
+ 1/3
2
− 1/4
2
+ ...
Полученный результат сравнить с точным S = π
2
/12.
27

Страницы