|
Оператор while является универсальной управляющей конструкцией. С его помощью можно записать любое циклическое действие. Формат оператора можно изобразить одним из следующих способов.
В нашем случае процедура Init будет выглядеть следующим образом:
procedure Init;
begin
Writeln('Insert chislo 1');
Readln(Chislo1);
Writeln('Insert Znak');
Readln(Znak);
Writeln('Insert chislo 2');
Readln(Chislo2);
While (znak=’/’) and (Chislo2=0) do
begin
Writeln('Insert chislo 2');
Readln(Chislo2);
End;
End
Если знак действия не будет равен "/" или второе число будет неравно нулю, то в процессе выполнения программы этот цикл будет обойден, то есть цикл ни разу не выполнится. Посмотрите, как работает эта программа, проведя ее трассировку (используя клавишу F7).
Достарыңызбен бөлісу: | 
