Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 34 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

33
Пример 4.3. Модернизировать программу из примера 4.2 с использовани-
ем цикла WHILE.
PROGRAM SRED_RAZM_1;
USES CRT;
VAR I, N: INTEGER;
SUM, SR, R: REAL;
BEGIN
CLRSCR;
WRITE(‘ВВЕДИТЕ КОЛИЧЕСТВО ДЕТАЛЕЙ В ПАРТИИ:’);
READLN(N);
SUM:=0;
I:=1;
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» при
наличии нескольких операторов в теле цикла.

Страницы