Предмет: Информатика, автор: Nevariant

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

Ответы

Автор ответа: abduqodirovaziz
0
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.
Похожие вопросы
Предмет: Математика, автор: Yaroslav2021
Предмет: Қазақ тiлi, автор: Аноним
Предмет: Алгебра, автор: diamond07