Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> матрица 3*4(сортировка),перерыл все не могу понять 
:(
    Опции темы
Toen
  Дата 30.11.2010, 22:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 30.11.2010

Репутация: нет
Всего: нет



Доброго дня суток! Хочу попросить помощи в написании программы на Делфи, перерыл много форумов вроде как и много описано задач по матрицам но все же не могу понять...Пожалуйста помогите на примере данном ниже и опишите по подробнее как все делается т.к. Делфи дается мне тяжеловато.
Задача:Дана матрица целых чисел размером 4x3.  Отсортировать каждую строку матрицы по возрастанию.  Вывести содержимое матрицы до обработки  и после обработки.
Как я понял на форме должны быть 2 элемента стрингрида и 1 кнопка. Буду благодарен всем кто пожелает помощь!(хотелось бы подробное описание для понимания программы)
PM MAIL   Вверх
Toen
Дата 1.12.2010, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 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;
Сделал программу выше дан текст, но сортировка происходит по всей матрице а мне нужно по строчно,помогите пожалуиста как сделать что бы сортировка осуществлялась по строкам
PM MAIL   Вверх
remax
Дата 1.12.2010, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доцент
**


Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: нет
Всего: 5



Код

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 2 do  // Перебор столбцов 
    for j:=jj+1 to 3 do
       if x[ii,jj]>x[ii,j] then  
          begin 
             aa:=x[ii,jj]; 
             x[ii,jj]:= x[ii,j]; 
             x[ii,j]:=aa; 
          end;
 for i:=1 to 4 do
   for j:=1 to 3 do
        StringGrid2.Cells[j-1,i-1]:=IntToStr(x[i,j]);
end;



--------------------
Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку
PM MAIL ICQ Skype   Вверх
Toen
Дата 1.12.2010, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 30.11.2010

Репутация: нет
Всего: нет



спасибо я уже разобрался сам=)
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0470 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.