Арифметические действия над числами по выбору пользователя - Pascal ABC
Формулировка задачи:
Арифметические действия над числами пронумерованы следующим образом;
1- сложение, 2- вычитание, 3- умножение, 4- деление. Дан номер действия N (целое число в диапазоне 1-4) и все действенные числа A и B (B не равно 0). Выполнить над числами указанное действие и вывести результат.
Решение задачи: «Арифметические действия над числами по выбору пользователя»
textual
Листинг программы
uses crt; var a,b:real; n:byte; begin clrscr; write('A='); readln(a); repeat write('B='); readln(b); until b<>0; writeln('1- сложение, 2- вычитание, 3- умножение, 4- деление'); repeat write('N='); readln(n); until (n>=1) and (n<=4); case n of 1:writeln(a+b:2:2); 2:writeln(a-b:2:2); 3:writeln(a*b:2:2); 4:writeln(a/b:2:2); end; end.
Объяснение кода листинга программы
- Объявлены переменные a, b, n типа real и byte соответственно.
- Задана инициализация начального значения переменной a.
- Выполняется цикл до тех пор, пока значение переменной b не станет равным нулю.
- В каждой итерации цикла происходит вывод сообщения с просьбой ввести значение переменной b.
- Выполняется цикл до тех пор, пока значение переменной n не станет равным одному из значений от 1 до 4.
- В каждой итерации цикла происходит вывод сообщения с просьбой ввести значение переменной n.
- В зависимости от значения переменной n выполняется соответствующая операция: сложение, вычитание, умножение или деление.
- Результат операции выводится на экран с указанием типа чисел и количества знаков после запятой.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д