Question

Даны два действительных числа а и b. Вычислить их сумму, разность, произведение  и частное. напишите программу в паскаль

Answer 1

program raf105;

var

 a,b: real;

begin

 write('a = ');

 readln(a);

 write('b = ');

 readln(b);

 writeln(a,' + ',b,' = ',a+b);

 writeln(a,' - ',b,' = ',a-b);

 writeln(a,' * ',b,' = ',a*b);

 writeln(a,' / ',b,' = ',a/b);

end.

PascalABC 3.4.2

Answer 2

Для вычисления суммы, разности, произведения и частного двух действительных чисел a и b в Pascal, можно использовать следующую программу:

pascalCopy code
program ArithmeticOperations;

var
  a, b, sum, difference, product, quotient: real;

begin
  // Вводим значения переменных a и b
  write('Введите число а: ');
  readln(a);

  write('Введите число b: ');
  readln(b);

  // Вычисляем сумму, разность, произведение и частное
  sum := a + b;
  difference := a - b;
  product := a * b;
  quotient := a / b;

  // Выводим результаты
  writeln('Сумма: ', sum:0:2);
  writeln('Разность: ', difference:0:2);
  writeln('Произведение: ', product:0:2);

  // Проверяем, что деление на ноль не происходит
  if b <> 0 then
    writeln('Частное: ', quotient:0:2)
  else
    writeln('Деление на ноль невозможно.');

  readln;
end.

Программа запрашивает у пользователя два действительных числа a и b, а затем вычисляет и выводит их сумму, разность, произведение и частное. Обратите внимание, что программа проверяет, что b не равно нулю перед вычислением частного, чтобы избежать деления на ноль, что может привести к ошибке.