![]() |
|
Модераторы: Snowy, MetalFan, bems, Poseidon |
![]()
|
|
| Toen |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 30.11.2010 Репутация: нет Всего: нет |
Доброго дня суток! Хочу попросить помощи в написании программы на Делфи, перерыл много форумов вроде как и много описано задач по матрицам но все же не могу понять...Пожалуйста помогите на примере данном ниже и опишите по подробнее как все делается т.к. Делфи дается мне тяжеловато.
Задача:Дана матрица целых чисел размером 4x3. Отсортировать каждую строку матрицы по возрастанию. Вывести содержимое матрицы до обработки и после обработки. Как я понял на форме должны быть 2 элемента стрингрида и 1 кнопка. Буду благодарен всем кто пожелает помощь!(хотелось бы подробное описание для понимания программы) |
|||
|
||||
| Toen |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 30.11.2010 Репутация: нет Всего: нет |
procedure TForm1.Button1Click(Sender: TObject);
var x:array[1..4,1..3] of integer; i,ii,jj,j,aa:integer; begin randomize; for i:=1 to 4 do for j:=1 to 3 do begin x[i,j]:=random(100); StringGrid1.Cells[j-1,i-1]:=IntToStr(x[i,j]); end; for ii:=1 to 4 do for jj:=1 to 3 do for i:=ii to 4 do for j:=jj to 3 do if x[ii,jj]>x[i,j] then begin aa:=x[ii,jj]; x[ii,jj]:= x[i,j]; x[i,j]:=aa; end; for i:=1 to 4 do for j:=1 to 3 do begin StringGrid2.Cells[j-1,i-1]:=IntToStr(x[i,j]); end; end; Сделал программу выше дан текст, но сортировка происходит по всей матрице а мне нужно по строчно,помогите пожалуиста как сделать что бы сортировка осуществлялась по строкам |
|||
|
||||
| remax |
|
|||
|
Доцент ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 686 Регистрация: 7.4.2002 Где: Украина, Харьков Репутация: нет Всего: 5 |
-------------------- Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку |
|||
|
||||
| Toen |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 30.11.2010 Репутация: нет Всего: нет |
спасибо я уже разобрался сам=)
|
|||
|
||||
![]()
|
| Правила форума "Delphi: Для новичков" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Для новичков | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |