Арифметические действия над числами - Pascal ABC
Формулировка задачи:
3. Даны два действительных положительных числа. Арифметические действия пронумерованы (1-сложение, 2-вычитание, 3- умножение, 4 –деление). Составить программу, которая по введенному номеру выполняет то или иное действие над числами.
Решение задачи: «Арифметические действия над числами»
textual
Листинг программы
var r1,r2:real; w:integer; begin writeln('Введите число(r1)'); readln(r1); writeln('Введите второе число(r2)'); readln(r2); writeln('1-сложение'); writeln('2-вычитание'); writeln('3-умножение'); writeln('4-деление'); readln(w); case w of 1:writeln(r1+r2); 2:writeln('r1-r2 = ',r1-r2,' r2-r1 = ',r2-r1); 3:writeln('r1*r2 = ',r1*r2); 4:writeln('r1/r2 = ',r1/r2:0:5,' r2/r1 = ',r2/r1:0:5); end; end.
Объяснение кода листинга программы
- Ввод первых двух чисел (r1 и r2) с помощью функции readln.
- Вывод на экран списка арифметических операций, которые можно выполнить с введенными числами.
- Ввод третьего числа (w) с помощью функции readln.
- Использование конструкции case для определения, какую операцию необходимо выполнить в зависимости от значения переменной w.
- Выполнение соответствующей операции и вывод ее результата на экран.
- При вычитании двух чисел, результат выводится в обоих направлениях.
- При делении с плавающей точкой, результат выводится с точностью до 5 знаков после запятой.