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

UptoLike

ВУЗ: 

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

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

Рубрика: 

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

Страницы