Лекция 11.Реализация алгоритмов с использованием повторения
автор: Садовский Ефим Моисеевич1. Повторение.
Цикл For. Цикл While. Общий вид. Достоинства и недостатки.
Внимание! Цикл For применяется в тех случаях, когда заранее известно количество повторений, в остальных случаях используем цикл While.
2. Цикл WHILE.
Пример: С клавиатуры вводятся числа до тех пор, пока не будет введен 0. Найти их сумму.Program prim;
var s,n:real;
begin
s:=0;
n:=10;
while n<>0 do
begin
write('Введите N');
readln(n);
s:=s+n;
end;
writeln('Сумма S=',s);
end.N – числа, которые мы вводим. Так как числа вводим много раз (до первого нуля), то оператор ввода readln – внутри цикла. Обратите внимание на то, что для того, чтобы цикл сработал, необходимо задать любое значение n не равное 0, например, 10 (иначе n до цикла не будет определено).
3. Решение задач.
1. Вычислить сумму и произведение натуральных чисел от 1 до N.
2. Компьютер перебирает четные числа до тех пор, пока сумма их квадратов не превысит N. Чему равна сумма квадратов?
3. Для отбора в сборную по легкой атлетике прыгун в длину сделал N прыжков. Помогите тренеру определить среднюю дальность прыжка (вводится дальность каждого прыжка в сантиметрах).
4. В игре «Поле Чудес» победителю предлагают набрать призов на сумму N единиц. Если стоимость последнего выбранного приза превысит количество набранных очков, добрый Якубович оставит этот приз победителю. Но, чтобы игра не разорилась, Якубовичу надо вовремя сказать «Хватит». Составьте программу, которая по сумме набранных очков и цене за каждый выбранный приз выводит «Стоп», как только сумма отобранных призов превысит набранные очки.
К О Н С П Е К Т
Тема: Реализация алгоритмов с использованием повторения. 1. Цикл WHILE.
Пример: С клавиатуры вводятся числа до тех пор, пока не будет введен 0. Найти их сумму.Program prim;
var s,n:real;
begin
s:=0;
n:=10;
while n<>0 do
begin
write('Введите N');
readln(n);
s:=s+n;
end;
writeln('Сумма S=',s);
end.
| 
