сортировка паскаль двумерного массива
Автор @хххМаксимуМххх@ задал вопрос в разделе Компьютеры, Связь
Сотавить программу на языке Turbo Pascal 6.0 .Произвести сортировку двумерного массива по убыванию. и получил лучший ответ
Ответ от Vaka[гуру]
вот набросал на скорую руку
var a:array[1..10,1..10] of integer;
i, j, n :integer;
begin
{формируем массив}
for i:=1 to 10 do
for j:=1 to 10 do begin
a[i, j]:=random(1000);
randomize;
end;
for i:=1 to 10 do
for j:=1 to 9 do begin
if a[i,j+1]>a[i,j] do begin
n:=a[i,j];
a[i,j]:=a[i,j+1];
a[i,j+1]:=a[i,j];
end;
end;
end.
Ответ от Константин Селиванов[гуру]
Ну и чо? Преобразуешь сначало двухмерный массив в одномерный, сортируешь его по убыванию, затем из одномерного обратно делаешь двухмерный. Как два файла переслать!
Ну и чо? Преобразуешь сначало двухмерный массив в одномерный, сортируешь его по убыванию, затем из одномерного обратно делаешь двухмерный. Как два файла переслать!
Ответ от Ѐеф[гуру]
Пусть массив A 20х30. Создай одномерный массив размерностью 600 и скопируй построчно в него все элементы массива А, отсортируй одномерный массив методом "пузырька", а затем построчно верни переставленные элементы вектора назад в матрицу. В результате, ты получишь отсортированную матрицу. Быстро и надёжно...
Пусть массив A 20х30. Создай одномерный массив размерностью 600 и скопируй построчно в него все элементы массива А, отсортируй одномерный массив методом "пузырька", а затем построчно верни переставленные элементы вектора назад в матрицу. В результате, ты получишь отсортированную матрицу. Быстро и надёжно...
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Сотавить программу на языке Turbo Pascal 6.0 .Произвести сортировку двумерного массива по убыванию.
как расположить попорядку массив . Впорядке возрастания или убывания (Pascal ABC)
//Сортируем по возрастанию
for k:=1 to 30-1 do
for j:=k+1 to 30 do
if A[k]>A[j]
подробнее...