Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Информатика. Составить программу "Электронный калькулятор".
Программа должна предложить ввести два действительных числа и знак арифметической операции (+,-,*,/).Произвести требуемое вычисление и вывести результат операции.

Ответ оставил Гость

varx,y,z: real;sign: char;beginwhile True do beginwrite(sign: ); readln(sign);if sign = 0 then break;if sign in [+,-,*,/] then beginwrite(x=); readln(x);write(y=); readln(y);case sign of+: begin z := x + y; writeln(z:5:2) end;-: begin z := x - y; writeln(z:5:2); end;*: begin z := x * y; writeln(z:5:2); end;/: if y <> 0 then beginz := x / y;writeln(z:5:2)endelsewriteln(Division by zero!);end;endelse writeln(Bad sign!)end;end.