ВУЗ:
Составители:
Рубрика:
41
WHILE (I<= N) DO
BEGIN
WRITE (‘ВВЕДИТЕ РАЗМЕР’,I,’-ОЙ ДЕТАЛИ В ММ: ’);
READLN (R);
SUM:= SUM+R;
I:=I+1;
END;
SR:= SUM/N;
WRITE (‘СРЕДНЕАРИФМЕТИЧЕСКИЙ РАЗМЕР ДЕТАЛЕЙ’);
WRITELN (‘В ПАРТИИ РАВЕН ’, SR:4:3,’ ММ’);
READKEY;
END.
Оператор цикла с постусловием REPEAT. Организует выполнение
цикла, состоящего из любого числа операторов, с заранее неизвестным
числом повторений.
Структура оператора REPEAT такова:
REPEAT
< ОПЕРАТОР 1>;
< ОПЕРАТОР 2>;
................................
< ОПЕРАТОР N>
UNTIL <УСЛОВИЕ>; ,
где < ОПЕРАТОРЫ> – выполняемые операторы, составляющие тело цик-
ла; <УСЛОВИЕ> – логическое выражение, истинность которого проверя-
ется в конце каждой итерации.
Служебные слова «REPEAT – UNTIL» выполняют роль ограничите-
лей тела цикла, что позволяет обходиться без операторных скобок
«BEGIN – END» при наличии нескольких операторов в теле цикла.
Так как истинность логического выражения проверяется в конце цик-
ла REPEAT, то тело цикла выполняется, по крайней мере, один раз, даже
если условие с самого начала оказалось истинным.
Страницы
- « первая
- ‹ предыдущая
- …
- 40
- 41
- 42
- 43
- 44
- …
- следующая ›
- последняя »
