Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Delphi / Операторы цикла в Paskal / LAB5
.PAS program case_1;
var
operation:char;
x,y,z: real;
stop:boolean;
begin
stop:=false;
repeat
writeln;
write('®ЇҐа жЁп:');
readln(operation);
case operation of
'+': z:=x+y;
'-': z:=x-y;
'*': z:=x*y;
'/': z:=x/y;
else
stop:=true;
end;
if not stop then
writeln('१г«мв в=',z);
until stop
end.
var
operation:char;
x,y,z: real;
stop:boolean;
begin
stop:=false;
repeat
writeln;
write('®ЇҐа жЁп:');
readln(operation);
case operation of
'+': z:=x+y;
'-': z:=x-y;
'*': z:=x*y;
'/': z:=x/y;
else
stop:=true;
end;
if not stop then
writeln('१г«мв в=',z);
until stop
end.
Соседние файлы в папке Операторы цикла в Paskal