Показать сообщение отдельно
Непрочитано 18.12.2006, 10:25   #4
Vanya
Мужской Недосягаемый
 
Аватар для Vanya
 
Регистрация: 24.11.2003
Адрес: Наукоград Пущино
Синтаксис подзабыл, но думаю разберешся.
важна идея


Код:
mass[1..mx,1..my]:integer; (массив mx на my)
temp:integer;
change:boolean;

repeat
begin
change:=false;
  for t=1 to mx*my-1
    x := t div mx
    y := t mod mx
    x1:=(t+1) div mx
    x2:=(t+1) mod mx
    if mass[x,y]>mass[x1,y1] do 
      begin
      temp:=mass[x,y]
      mass[x,y]:=mass[x1,y1]
      mass[x1,y1]:=temp
      change:=true
      end
  end
until channge;
примерно так...

мог напутать с условием until
мог напутать с пределами массива, в паскале вроде с нуля начинается
__________________
Признайся себе, что тебе в этот момент меньше всего хочется делать
и сделай это.

Последний раз редактировалось Vanya; 18.12.2006 в 10:29.
Vanya вне форума  
Ответить с цитированием