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

Программа на языке Pascal, которая вычисляет сумму, разность, произведение и частное двух действительных чисел x и y, может выглядеть следующим образом:

pascal
Копировать
program CalculateOperations;
var
  x, y, sum, difference, product, quotient: real;
begin
  { Вводим значения для x и y }
  writeln('Введите значение x: ');
  readln(x);
  writeln('Введите значение y: ');
  readln(y);
  
  { Вычисление операций }
  sum := x + y;
  difference := x - y;
  product := x * y;
  
  { Проверяем, не равно ли y нулю, чтобы избежать деления на ноль }
  if y <> 0 then
    quotient := x / y
  else
    quotient := 0;  { Можно обработать ошибку деления на ноль, например, выводом сообщения }
  
  { Выводим результаты }
  writeln('Сумма x и y: ', sum:0:2);
  writeln('Разность x и y: ', difference:0:2);
  writeln('Произведение x и y: ', product:0:2);
  
  if y <> 0 then
    writeln('Частное x и y: ', quotient:0:2)
  else
    writeln('Ошибка: деление на ноль.');
end.

Объяснение программы:

1. Программа начинается с объявления переменных для двух чисел (x и y) и результатов операций (sum, difference, product, quotient).

2. Затем программа запрашивает у пользователя ввод значений для переменных x и y.

3. После ввода значений программа выполняет четыре операции:

   • Сумма (sum) — просто складываем x и y.

   • Разность (difference) — вычитаем y из x.

   • Произведение (product) — умножаем x и y.

   • Частное (quotient) — делим x на y, при этом проверяем, не равно ли y нулю, чтобы избежать деления на ноль.

4. Программа выводит результаты вычислений на экран, с точностью до двух знаков после запятой.

Таким образом, программа корректно обрабатывает все четыре операции с числами x и y.