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