Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.12.2011, 21:47   #1
kiker777
Новичок
Джуниор
 
Аватар для kiker777
 
Регистрация: 11.12.2011
Сообщений: 4
Восклицание Матрица

Сделал задачу -(Составить программу, которая создает матрицу случайных положительных чисел размером 6x6 и переставляет строки этой матрицы таким образом, чтобы они были упорядочены по возрастанию элементов последнего столбца. Программа должна выводить на печать матрицу до и после преобразования) !ниже код!,
?Теперь вопрос?Как упорядочить по возрастанию элементы первого столбца, ну или первые элементы каждой строки?
Код:
const m=6;n=6;
var i,j,u,x:integer; a:array [1..6,1..6] of byte;
begin
randomize;
For i:=1 to n do begin
For j:=1 to m do begin
a[i,j]:=random(10); write(' ',a[i,j]);end;
writeln;end;
For U:=1 to m do
For i:=2 to n do
if a[i,m]<a[i-1,m] then begin
For j:=1 to m do   begin
x:=a[i-1,j];
a[i-1,j]:=a[i,j];
a[i,j]:=x;
end;
end;
writeln;
Writeln('После преобразования:');
For i:=1 to n do begin
For j:=1 to m do
write(' ',a[i,j]); writeln;

Последний раз редактировалось Stilet; 11.12.2011 в 22:21.
kiker777 вне форума Ответить с цитированием
Старый 11.12.2011, 22:24   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Как упорядочить по возрастанию элементы первого столбца
У тебя в коде подсказка:
Цитата:
x:=a[i-1,j];
a[i-1,j]:=a[i,j];
a[i,j]:=x;
Метод пузырька. Им и воспользуйся.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.12.2011, 07:59   #3
kiker777
Новичок
Джуниор
 
Аватар для kiker777
 
Регистрация: 11.12.2011
Сообщений: 4
По умолчанию

Спасибо за подсказку, но метод пузырька не помог, сделал методом прямого выбора
kiker777 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Матрица С++ 3dg_fan Помощь студентам 11 27.02.2011 22:07
Непонятки с DirectX (матрица поворота, камера, матрица проекции) ROD Общие вопросы C/C++ 2 17.09.2010 17:00
Матрица Adeletto Microsoft Office Excel 4 11.09.2010 14:57
Матрица elya88 Помощь студентам 10 01.02.2010 16:33
TurboPascal: граф, матрица смежности и матрица инцидентности. ulala Помощь студентам 0 02.12.2009 10:11