VPF::[Delphi]Сортировка массива - Форум программистов

aleksandrfnsv1

Дата 27.4.2008, 14:07 (ссылка)

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

Загрузка ...

Шустрый

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

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

Почему то не работает сортировка, почему понять не могу, а также кнопка info выводит неправильно

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  type
  TPismo = class
         private
         kolp,size,prioritet:integer;
         public
        constructor Create (akolp,asize,aprioritet:integer);
         function GetPrioritet(aprioritet:integer):integer;

  end;
  const L=18;
var
  Form1: TForm1;
  mas:array [1..L] of TPismo;
  i,j:integer;
  masel:Tpismo;

implementation

{$R *.dfm}
        constructor TPismo.Create (akolp,asize,aprioritet:integer);
        begin
        randomize;
        kolp:=akolp;
        size:=asize;
        prioritet:=aprioritet;
        end;

     function TPismo.GetPrioritet(aprioritet:integer):integer;
       begin
     result:=prioritet;
      end;

procedure Swap(iPos1, iPos2 : integer);
var
  tmp : TPismo;
begin
  tmp := mas[iPos1];
  mas[iPos1] := mas[iPos2];
  mas[iPos2] := tmp;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
memo2.Clear;
for i:=1 to L do
begin
mas[i]:=TPismo.Create(random(34),random(40),random(3+1));

    ShowMessage('kolpolychatelei='  +  inttostr(mas[i].kolp)  +  'size='  +  inttostr(mas[i].size)  +  'prioritet=' + inttostr(mas[i].prioritet));
memo1.Lines.Add(inttostr(mas[i].prioritet)) ;
end;

for i:=1 to L do
 for j:=i+1 to L-1 do
 begin
if mas[j].prioritet<mas[j+1].prioritet then
begin
swap(j,j+1);
    memo2.Lines.Add(inttostr(mas[i].prioritet));
end;
     end;
 end;
//if mas[i].prioritet<=3 then
//begin
  //  masel:=mas[i];
   // mas[i]:=mas[i+1];
    //mas[i+1]:=masel;
//end;

procedure TForm1.Button1Click(Sender: TObject);
begin
             // If i<>nil then
              //begin
i:=Strtoint(Edit1.Text);
if i<=18 then
ShowMessage('kolpolychatelei='  +  inttostr(mas[i].kolp)  +  'size='  +  inttostr(mas[i].size)  +  'prioritet=' + inttostr(mas[i].prioritet))
else
      ShowMessage('Takogo elementa net');
end;
               
end.

THandle

Дата 27.4.2008, 14:14 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

И чем тебя мой РАБОТАЮЩИЙ вариант вот отсюда:

http://forum.vingrad.ru/forum/topic-208502...y1493971/0.html

не устроил? А? Как надо сортировать.

И зачем создавать столько тем? Задал вопрос там - тебе ответили. Что то непонятно там же и продолжай спрашивать.

В данном тобой коде сортировка реализована не правильно. Смотри данную там мной сортировку методом пузырька, либо выбирай любой другой:

http://forum.vingrad.ru/faq/Vingrad-help-center.html

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