Вывести на экран результат соответствующий операции - Turbo Pascal
Формулировка задачи:
Ввести с клавиатуры 2 числа и знак арифметической операции (+ - / *).
Вывести на экран результат соответствующий этой операции
Решение задачи: «Вывести на экран результат соответствующий операции»
textual
Листинг программы
var a, b: integer; oper: char; begin readln(a, b); readln(oper); case oper of '+' : writeln(a,oper,b,'=',a+b); '-' : writeln(a,oper,b,'=',a-b); '*' : writeln(a, oper,b,'=',a*b); '/' : writeln(a,oper,b,'=',a/b); end; readln; end.
Объяснение кода листинга программы
- Объявлены три переменные:
a
,b
иoper
типа integer и char соответственно. - Введен ввод с клавиатуры двух чисел в переменные
a
иb
. - Введен ввод с клавиатуры оператора ('+', '-', '*' или '/') в переменную
oper
. - Производится проверка значения переменной
oper
. - Выводится на экран результат операции в зависимости от значения переменной
oper
. - Завершается программа.