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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.12.2010, 18:07   #1
Пьеро
 
Регистрация: 15.11.2010
Сообщений: 9
Восклицание Двумерный массив Delphi(Пузырьковая сортировка)

условие:
Пусть дана матрица А(n x m).Разработать программу,позволяющую упорядочить столбцы матрицы по возрастанию сумм элементов этого столбца.

Помогите доделать решение....

Код:
program Project1;
 
{$APPTYPE CONSOLE}
  {$R+}
uses
        SysUtils;
type
        TMatrix = array of array of integer;
var
        c,b,x: Integer;
        A: TMatrix;
  RowCount,ColCount: Integer;
        i,j,k:Integer;
  flag: boolean;
  MinX: Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Randomize;
Write ('vvedite 4islo strok matrix A:');
ReadLn (RowCount);
Write ('Vvedite 4islo stolbcov matrix A:');
ReadLn (ColCount);
SetLength (A,RowCount,ColCount);
WriteLn ('Matrix A:');
For i:= 0 to High (A) do
Begin
For j:=0 to High(A) do
begin
A[i,j] :=-10+Random(21);
Write(A[i,j]:5);
end;
WriteLn;
end;
i := 0;
repeat
Flag := True;
for j := 0 to High(a)-i-1 do
if a[j] > a[j+1]
then begin
a[j]:=a[j]+a[j+1];
a[j+1]:= a[j]- a[j+1];
a[j]:=a[j]-a[j+1];
Flag := False;
end;
Inc(i);
until (i >= n) or Flag;
SetLength(a,N);
       for k := 0 to High do
     begin
ReadLn(x);
i:=k;
while (i>0) and (a[i-1]>x) do
 begin
   a[i]:=a[i-1];
 Dec(i)
 end;
a[i]:=x
     end;
ReadLN(x);
/// ????

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

Сговорились вы там все что ли?
http://www.programmersforum.ru/showthread.php?t=126962
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 13.12.2010, 22:54   #3
Пьеро
 
Регистрация: 15.11.2010
Сообщений: 9
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Сговорились вы там все что ли?
http://www.programmersforum.ru/showthread.php?t=126962
По любому совподение....там решено я не видел даже эту тему(
Пьеро вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Двумерный массив Delphi MrMorozko Помощь студентам 10 24.11.2013 19:56
Delphi двумерный массив ДваДваВо7 Помощь студентам 2 08.12.2010 17:19
Двумерный массив на Delphi КРОШка Помощь студентам 2 15.11.2009 18:38
Delphi Двумерный массив forumu Помощь студентам 1 23.12.2007 02:04