Question

Составить алгоритм нахождения(это нужно делать в Паскале) 1) меньшего из двух чисел 2)меньшего из трех чисел

Answer 1

1. Меньшее из 2-х:

program Minimum;

var
  a, b: integer;

begin
  write('введите 2 числа: ');
  readln(a, b);
  if a < b
    then writeln('минимум: ', a)
  else writeln('минимум: ', b);
end.

2. Меньшее из 3-х с помощью функции:

var
  x1, x2, x3, mn: integer;

function min(a, b: integer): integer;
begin
  if a < b
    then min := a
  else min := b
end;

begin
  write('введите 3 числа: ');
  readln(x1, x2, x3);
  mn := min(x1, min(x2, x3));
  writeln('минимум: ', mn);
end.

Answer 2

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

1. Нахождение меньшего из двух чисел:

pascalCopy code
function MinTwoNumbers(a, b: Integer): Integer;
begin
  if a < b then
    Result := a
  else
    Result := b;
end;

2. Нахождение меньшего из трех чисел:

pascalCopy code
function MinThreeNumbers(a, b, c: Integer): Integer;
var
  temp: Integer;
begin
  temp := MinTwoNumbers(a, b);
  Result := MinTwoNumbers(temp, c);
end;

Пример использования:

pascalCopy code
program FindMinimum;

function MinTwoNumbers(a, b: Integer): Integer;
begin
  if a < b then
    Result := a
  else
    Result := b;
end;

function MinThreeNumbers(a, b, c: Integer): Integer;
var
  temp: Integer;
begin
  temp := MinTwoNumbers(a, b);
  Result := MinTwoNumbers(temp, c);
end;

var
  num1, num2, num3, minTwo, minThree: Integer;

begin
  // Пример для нахождения меньшего из двух чисел
  num1 := 10;
  num2 := 5;
  minTwo := MinTwoNumbers(num1, num2);
  writeln('Меньшее из двух чисел ', num1, ' и ', num2, ' : ', minTwo);

  // Пример для нахождения меньшего из трех чисел
  num1 := 15;
  num2 := 8;
  num3 := 12;
  minThree := MinThreeNumbers(num1, num2, num3);
  writeln('Меньшее из трех чисел ', num1, ', ', num2, ' и ', num3, ' : ', minThree);
end.

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