Question

Напишите процедуру, которая переставляет три переданные ей числа в порядке возрастания. Пример: Введите три натуральных числа: 10 15 5 5 10 15 для Паскаля, без массива

Answer 1

Var x,y,z:integer;
procedure p(var a,b,c:integer);
var t:integer;
begin
if a>b then
 begin t:=a; a:=b; b:=t; end;
if b>c then
 begin t:=b; b:=c; c:=t; end;
if a>b then
 begin t:=a; a:=b; b:=t; end;
end;
begin
writeln('Введите 3 числа:');
readln(x,y,z);
p(x,y,z);
writeln('x = ',x,'  y = ',y,'  z = ',z);
end.

Пример:
Введите 3 числа:
8 5 2
x = 2  y = 5  z = 8

Answer 2

В Pascal можно реализовать данную процедуру с использованием переменных. Вот пример кода:

procedure SortNumbers(var a, b, c: Integer);
var
  temp: Integer;
begin
  // Сравниваем первое и второе число
  if a > b then
  begin
    // Если первое число больше второго, меняем их местами
    temp := a;
    a := b;
    b := temp;
  end;

// Сравниваем второе и третье число
  if b > c then
  begin
    // Если второе число больше третьего, меняем их местами
    temp := b;
    b := c;
    c := temp;
  end;

// Повторно сравниваем первое и второе число для случая, когда второе число стало третьим на предыдущем шаге
  if a > b then
  begin
    // Если первое число больше второго, меняем их местами
    temp := a;
    a := b;
    b := temp;
  end;
end;

var
  num1, num2, num3: Integer;

begin
  Write('Введите три натуральных числа: ');
  Readln(num1, num2, num3);

SortNumbers(num1, num2, num3);

Writeln(num1, ' ', num2, ' ', num3);
end.

Пример работы программы: ``` Введите три натуральных числа: 10 15 5 5 10 15 ```

В данном коде используется переменная `temp` для временного хранения значения при перестановке чисел. С помощью нескольких условных операторов мы сравниваем числа и, при необходимости, меняем их местами. После завершения процедуры все числа будут расположены в порядке возрастания.