Question

Ребят, хелп, нужно перевести обычную программу Паскаль в процедуры const n = 100; { количество элементов в массиве } var a:array[1..n] of integer; i,j,ord:integer; begin {Заполняем массив случайными целыми числами из диапазона от 0 до 9 и выводим массив на экран} for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); end; for i:=1 to n-1 do for j:=i+1 to n do {В этой строке начинающие программисты чаcто допускают ошибку} if a[i]>a[j] then begin ord:=a[i]; a[i]:=a[j]; a[j]:=ord; end; writeln; writeln('Массив после сортировки пузырьковым методом: '); for i:=1 to n do write(a[i],' '); end.

Answer 1

const

   n = 100; { количество элементов в массиве }

var

   a : array of integer := new integer[n];

function sortArr(d : array of integer) : array of integer;

var

   ord : integer;

begin

   for var i := 0 to n-2 do for var j := i+1 to n-1 do if d[i] > d[j] then begin

       ord := d[i];

       d[i] := d[j];

       d[j] := ord;

   end;

   result := d;

end;

begin

   a := arrRandom(n, 0, 9);

   writeln(a);

   a := sortArr(a);

   writeln;

   writeln('Массив после сортировки пузырьковым методом: ');

   writeln(a);

end.

Answer 2

Вот перевод данной программы Паскаль на процедуры:

pascalCopy code
const
  n = 100; { количество элементов в массиве }

var
  a: array[1..n] of integer;
  i, j, ord: integer;

procedure FillArray;
begin
  for i := 1 to n do
  begin
    a[i] := random(10);
    write(a[i], ' ');
  end;
end;

procedure BubbleSort;
begin
  for i := 1 to n - 1 do
    for j := i + 1 to n do
    begin
      if a[i] > a[j] then
      begin
        ord := a[i];
        a[i] := a[j];
        a[j] := ord;
      end;
    end;
end;

procedure PrintArray;
begin
  writeln;
  writeln('Массив после сортировки пузырьковым методом: ');
  for i := 1 to n do
    write(a[i], ' ');
end;

begin
  FillArray;
  BubbleSort;
  PrintArray;
end.

В данном переводе исходная программа разделена на три процедуры:

1. Процедура FillArray заполняет массив a случайными целыми числами и выводит массив на экран.

2. Процедура BubbleSort выполняет сортировку массива методом пузырька.

3. Процедура PrintArray выводит отсортированный массив на экран.

Затем в основной программе (основном блоке кода) вызываются эти процедуры последовательно: FillArray, BubbleSort и PrintArray.