VPF::[Delphi]Упорядочить элементы очереди

Oshparenuy

Дата 20.6.2008, 08:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Народ помогите, с трудом сформирвоал очередь целых чисел (мало чего понимаю в Делфи и вообще в программировании) вот чего получилось, помогите отсортировать элементы ее

Код


type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button4: TButton;
    Button3: TButton;
    Button5: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  link = ^elem;
  elem = record
  val : integer;
  next : link
  end;

  
var
  Form1: TForm1;
  p,q:link;
  i : byte;
  L:link;
implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 randomize;
 new(L);
 L.val:= -5 + random(10);
 p:=L;
 for  i:=2  to  10  do
  begin
   new(q);
   q.val:= -5 + random(10);
   p.next:=q;
   p:=q
  end;
p.next:=nil;
showmessage('Î÷åðåäü ñîçäàíà')
end;

procedure TForm1.Button3Click(Sender: TObject);
var   p:link;
begin
label1.Caption:='';
p:=L;
while   p<>nil  do
begin
label1.Caption:=label1.Caption + inttostr(p.val) + '   ';
p:=p.next
end;
end;
end.

deswars

Дата 26.6.2008, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Сортировка выбором:

Код


procedure dynsort(p:link);
 var
  p1,p2:link;
  k:integer;
 begin
  while p^.next<>nill do
   begin
    p1:=p^.next;
    p2:=p1^.next;
    while p2<>nill do
     begin
      if p1^.val>p2^.val then
        p1:=p2;
      p2:=p2^.next;
     end;
    if p1^.val<p^.val then
     begin
      k:=p^.val;
      p^.val:=p1^.val;
      p1^.val:=k;
     end;
   end;
 end;

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