Арифметические действия над числами - 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.

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

  1. Ввод первых двух чисел (r1 и r2) с помощью функции readln.
  2. Вывод на экран списка арифметических операций, которые можно выполнить с введенными числами.
  3. Ввод третьего числа (w) с помощью функции readln.
  4. Использование конструкции case для определения, какую операцию необходимо выполнить в зависимости от значения переменной w.
  5. Выполнение соответствующей операции и вывод ее результата на экран.
  6. При вычитании двух чисел, результат выводится в обоих направлениях.
  7. При делении с плавающей точкой, результат выводится с точностью до 5 знаков после запятой.

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

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