Question

Pascal ABC NET. Напишите программу с использованием подпрограмм. Реализуйте четыре подпрограммы – по одной на каждое арифметическое действие.

Answer 1

//PascalABC.NET 3.1 сборка 1230
function sum(a, b: real) := a + b;
function bet(a, b: real) := a - b;
function mult(a, b: real) := a * b;
function divis(a, b: real) := a / b;
begin
  var a := ReadReal('Введите два числа:');
  var b := ReadReal;
  WritelnFormat('{0} + {1} = {2}', a, b, sum(a, b));
  WritelnFormat('{0} - {1} = {2}', a, b, bet(a, b));
  WritelnFormat('{0} * {1} = {2}', a, b, mult(a, b));
  WritelnFormat('{0} / {1} = {2}', a, b, divis(a, b));
end.

Answer 2

К сожалению, я не могу предоставить готовую программу на языке Pascal ABC NET, так как я не имею доступа к конкретной среде разработки. Однако, я могу показать пример, как можно реализовать четыре подпрограммы для выполнения арифметических операций:

sqlCopy code
program ArithmeticOperations;

// Объявление функций-подпрограмм
function Add(a, b: Integer): Integer;
begin
  Result := a + b;
end;

function Subtract(a, b: Integer): Integer;
begin
  Result := a - b;
end;

function Multiply(a, b: Integer): Integer;
begin
  Result := a * b;
end;

function Divide(a, b: Integer): Real;
begin
  Result := a / b;
end;

var
  x, y, result: Integer;
  quotient: Real;

begin
  // Чтение входных данных
  Write('Введите первое число: ');
  Readln(x);
  Write('Введите второе число: ');
  Readln(y);

  // Выполнение арифметических операций
  result := Add(x, y);
  writeln('Сумма: ', result);

  result := Subtract(x, y);
  writeln('Разность: ', result);

  result := Multiply(x, y);
  writeln('Произведение: ', result);

  quotient := Divide(x, y);
  writeln('Частное: ', quotient:0:2);
end.

Здесь мы объявляем четыре функции-подпрограммы: Add, Subtract, Multiply и Divide. Каждая из них принимает два целочисленных аргумента и возвращает результат соответствующей арифметической операции.

Затем мы читаем два целочисленных числа с помощью функции Readln и вызываем каждую из подпрограмм с этими числами в качестве аргументов. Результат каждой операции выводится на экран с помощью функции writeln.

Обратите внимание, что функция Divide возвращает вещественное число, чтобы учесть возможность получения дробного частного при делении. Также мы используем форматирование вывода, чтобы показать только два знака после запятой для частного.