Считать числа и символы с клавиатуры и выполнить над числами заданную операцию - 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.

Объяснение кода листинга программы

  1. Программа начинается с объявления переменных a, b, c, d, e типа real и переменной z типа char.
  2. Затем происходит чтение первого числа с клавиатуры и его сохранение в переменной a.
  3. После этого происходит чтение второго числа и его сохранение в переменной b.
  4. Далее происходит чтение знака операции из клавиатуры и его сохранение в переменной z.
  5. В зависимости от значения z выполняется соответствующая операция: сложение, вычитание, умножение или деление.
  6. Если значение b равно нулю, то выводится сообщение Деление на 0.
  7. После выполнения всех операций происходит чтение еще одного числа с клавиатуры и его сохранение в переменной c.
  8. Затем происходит вывод результата операции на экран.
  9. Наконец, программа завершается после чтения символа новой строки с клавиатуры.

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы