Question

Даны три целых числа. вывести их в порядке возрастания. паскаль.

Answer 1

Program DaNNuu;
uses crt;
const n=3;
var
  a:array [1..n] of integer;
  i,j,min,temp:integer;
begin
  randomize;
  {создание массива}
  writeln('Элементы массива:');
  for i:=1 to n do
    begin
      a[i]:=random(101)-50;
      write (a[i]:5);
    end;
  {сортировка массива}
  for i:=1 to n-1  do
    begin
      min:=i;
      for j:=i+1 to n do
        if a[min]>a[j] then
          min:=j;
      temp:=a[i];
      a[i]:=a[min];
      a[min]:=temp;
    end;
  writeln();
  {вывод массива}
  writeln('Результат сортировки:');
  for i:=1 to n do
    write(a[i]:5);
end.

Answer 2

Решение наркоманское, но вышло короче :3

 

Uses CRT;
Var
a,b,c:integer;
begin
writeln('Введите три числа: '); readln(a,b,c);
if (a>b) and (b>c) then
writeln(a,b,c);
if (a>b) and (b>c) then writeln(c,b,a);
if (a>c) and (c>b) then writeln(b,c,a);
if (b>a) and (a>c) then writeln(c,a,b);
if (b>c) and (c>a) then writeln(a,c,b);
if (c>a) and (a>b) then writeln(b,a,c);
if (c>b) and (b>a) then writeln(a,b,c);
end.

Answer 3

Вот пример кода на Pascal, который сортирует три целых числа в порядке возрастания:

lessCopy code
program SortThreeNumbers;
var
  a, b, c, temp: integer;
begin
  writeln('Введите три целых числа: ');
  readln(a, b, c);

  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;

  writeln('Числа в порядке возрастания: ', a, ' ', b, ' ', c);
end.

Сначала мы запрашиваем у пользователя три целых числа. Затем мы сравниваем первые два числа и, если первое число больше второго, меняем их местами. Затем мы сравниваем второе и третье число и, если второе число больше третьего, меняем их местами. Наконец, мы снова сравниваем первое и второе число и, если первое число больше второго, меняем их местами. В конце мы выводим отсортированные числа на экран.