Слева направо сверху вниз

@Иннокентий · Регистрация: 01.11.2012

Слева направо от наименьших чисел к наибольшим используя 2-мepный мaccив! Обмозгуйте код я тупой!
используя стринггрид

Delphi

for k:=1 to n*m do  {повторяем сколько элементов в матрице}
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
  if j<>n-1 then {если элемент в строке не последний}
   begin
    if a[i,j+1]<a[i,j]
     then
      begin  {обмен элементов}
       x:=a[i,j+1];
       a[i,j+1]:=a[i,j];
       a[i,j]:=x;
      end;
   end
  else if (i<>m-1)and(a[i+1,0]<a[i,j]) {если строка не последняя}
  {меняем первый элемент в следущей строке с последним элементом в текущей строке}
  then
   begin  {обмен элементов}
    x:=a[i+1,0];
    a[i+1,0]:=a[i,j];
    a[i,j]:=x;
   end;

BuPy7 · 01.11.2012, 22:59

Сообщение от Иннокентий

Обмозгуйте код я тупой!

Что вы хотите? Там всё ясно, как день.

BuPy7 Нет ТЗ - давай досвидания 745 / 376 / 64 Регистрация: 01.12.2011 Сообщений: 2,250
	01.11.2012, 22:59	2
	Сообщение от Иннокентий Обмозгуйте код я тупой! Что вы хотите? Там всё ясно, как день. 0

Опции темы