Пример составного

Programоператораprimer case

Type Operate=(plus,minus,divide,ost);

Var x,y,res: integer; i:byte; operator:operate; Begin

writeln(‘Введите два целых числа’); readln(x,y); writeln(‘Введите операцию’); writeln(‘1) + 2) - 3) div 4) mod ’); readln(i); i:=i-1;

Operator:=operate(i); Case operator of Plus: Res:=x+y; minus: Res:=x-y; divide: Res:=x div y; ost: Res:=x mod y; End;

Writeln(‘Результат операции ’,res:5:2); end.

Пример цикла с предусловием

Цикл REPEAT .. UNTIL

оператор

да

нет

Пример цикла с постусловием

Контроль правильности ввода

Приближенное вычисление бесконечных рядов

Вычисление