Предмет: Информатика,
автор: Nevariant
Информатика. Составить программу "Электронный калькулятор".
Программа должна предложить ввести два действительных числа и знак арифметической операции (+,-,*,/).Произвести требуемое вычисление и вывести результат операции.
Ответы
Автор ответа:
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,
автор: Аноним
Предмет: Биология,
автор: belkowwowf
Предмет: Алгебра,
автор: diamond07