Top.Mail.Ru
Ответы

Надо срочно код для задачи паскаль

Кто то дайте код в паскаль на сортировку двумерного массива по строкам. Заполнение рандомными числами и вывод я уже сделал. Нужен только код для сортировки

По дате
По рейтингу
Аватар пользователя
Мудрец

Какой код для какой сортировки какого массива на каком Паскале? Вы вообще соображает о чём спрашиваете? Вот как формируется целочисленная матрица размера m×n, реализованная как двумерный динамический массив с рандомными элементами из диапазона [a;b], и как её строки сортируются по возрастанию пузырьковым методом. FreePascal:

123456789101112131415161718192021222324252627282930313233343536373839
 uses crt; 
var a, b, c, k, l, m, n: integer; 
Arr: array of array of integer; 
 
procedure print(s: string); 
begin 
  writeln(s); 
  for k := 0 to m-1 do 
    begin 
      for l := 0 to n-1 do write(Arr[k,l]: 6); 
      writeln() 
    end 
end; 
   
begin 
  textcolor(black); 
  textbackground(white); 
  clrscr(); 
  write('a b m n: '); 
  readln(a, b, m, n); 
  c := b + 1 - a; 
  setlength(Arr, m, n); 
  randomize(); 
  for k := 0 to m-1 do 
    for l := 0 to n-1 do 
      Arr[k,l] := a + random(c); 
  print('Исходный массив:'); 
  for k := 0 to m-1 do 
    for l := 1 to n-1 do 
      for c := n-1 downto l do 
        if Arr[k, c-1] > Arr[k, c] then 
          begin 
            b := Arr[k, c-1]; 
            Arr[k, c-1] := Arr[k, c]; 
            Arr[k, c] := b 
          end; 
  print('Отсортированный массив:'); 
  readln(); 
end. 

А Вам, собственно, что нужно?

Аватар пользователя
Гуру


Видео по теме