Считать числа и символы с клавиатуры и выполнить над числами заданную операцию - Turbo Pascal
Формулировка задачи:
Помогите пожалуйста!
Дано 2 числа и символ. Символы обозначают математическую операцию(+,-,*,\).необходимо считать числа и символы с клавиатуры и выполнить над числами заданную операцию,результат вывести на экран.если введен не верный символ ,то вывести сообщение о ошибке.
Решение задачи: «Считать числа и символы с клавиатуры и выполнить над числами заданную операцию»
textual
Листинг программы
Program calculator; var a,b,c,d,e:real; z:char; Begin Write('Первое число a='); Readln(a); Write('Второе число b='); Readln(b); write('Знак операции +,-,*,/ z='); Readln(z); case z of '+':write(a+b:0:2); '-':write(a-b:0:2); '*':write(a*b:0:2); '/':if b=0 then write('Деление на 0') else write(a/b:0:2); else write('Такой операции нет'); end; Readln; End.
Объяснение кода листинга программы
- Программа начинается с объявления переменных a, b, c, d, e типа real и переменной z типа char.
- Затем происходит чтение первого числа с клавиатуры и его сохранение в переменной a.
- После этого происходит чтение второго числа и его сохранение в переменной b.
- Далее происходит чтение знака операции из клавиатуры и его сохранение в переменной z.
- В зависимости от значения z выполняется соответствующая операция: сложение, вычитание, умножение или деление.
- Если значение b равно нулю, то выводится сообщение
Деление на 0
. - После выполнения всех операций происходит чтение еще одного числа с клавиатуры и его сохранение в переменной c.
- Затем происходит вывод результата операции на экран.
- Наконец, программа завершается после чтения символа новой строки с клавиатуры.