Сборник заданий для практических занятий по информатике. Крупенников О.Г - 43 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

42
Выход из цикла REPEAT осуществляется, если проверяемое условие
становится истинным. Если же оно ложно всегда, то цикл будет выпол-
няться бесконечное число раз (т. е. программа зациклится). Для выхода из
состояния зацикливания необходимо нажать комбинацию клавиш
«CTRL + BREAK».
Пример 4.3. Модернизировать программу из примера 4.2 с использо-
ванием цикла REPEAT. Алгоритм программы представлен в приложении
Г.6.
PROGRAM SRED_RAZM_2;
USES CRT;
VAR I, N: INTEGER;
SUM, SR, R: REAL;
BEGIN
CLRSCR;
WRITE (‘ВВЕДИТЕ КОЛИЧЕСТВО ДЕТАЛЕЙ В ПАРТИИ:’);
READLN (N);
SUM:= 0;
I:= 1;
REPEAT
WRITE (‘ВВЕДИТЕ РАЗМЕР’,I,’-ОЙ ДЕТАЛИ В ММ: ’);
READLN (R);
SUM:= SUM+R;
I:=I+1;
UNTIL (I>N);
SR:= SUM/N;
WRITE (‘СРЕДНЕАРИФМЕТИЧЕСКИЙ РАЗМЕР ДЕТАЛЕЙ’);
WRITELN(‘В ПАРТИИ РАВЕН ’, SR:4:3,’ ММ’);
READKEY;
END.

Страницы