Информатика. Составить программу "Электронный калькулятор".

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

Question

Информатика

Евгеныч

13 апреля, 15:11

Информатика. Составить программу "Электронный калькулятор".

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

+1

Ответы (1)

Знаете ответ на вопрос?

Павлин · Answer 1

var x, y, z: real; sign: char; begin while True do begin write ('sign: ') ; readln (sign) ; if sign = '0' then break; if sign in ['+','-','*','/'] then begin write ('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 begin z : = x / y; writeln (z:5:2) end else writeln ('Division by zero!') ; end; end else writeln ('Bad sign!') end; end.