VPF::[Delphi] Сортировка элементов на ДЕЛФИ.

Николай1

Дата 28.11.2011, 17:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Разработать приложение, реализующее сортировку элементов одномерного массива простым выбором. Предусмотреть визуализацию алгоритма сортировки через использование массива объектов.

MetalFan

Дата 28.11.2011, 18:23 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

There are always someone smarter than you...

BestCoder1

Дата 28.11.2011, 21:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Могу выполнить
icq: 588002847
email: [email protected]
skype: rfhfcerf

Fhusy

Дата 2.12.2011, 09:40 (ссылка)

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

Загрузка ...

Шустрый

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

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

вот держи , на коленке за 15 минут наваял

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    sg1: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure simpleselect(sg:tstringgrid);
var i,j,n,m:integer;
begin
n:=maxint;
    for i:=0 to 9 do
        if strtoint(sg.Cells[i,0])<n then
           n:=strtoint(sg.Cells[i,0]);
    m:=strtoint(sg.Cells[0,0]);
    sg.Cells[0,0]:=inttostr(n);
    for i:=1 to 9 do
    for j:=9 downto i+1 do
        if strtoint(sg.Cells[i,0])>=strtoint(sg.Cells[j,0]) then begin
           m:=strtoint(sg.Cells[i,0]);
           sg.Cells[i,0]:=sg.Cells[j,0];
           sg.Cells[j,0]:=inttostr(m);
        end;

end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
randomize;
for i:=0 to 9 do
   sg1.Cells[i,0]:=inttostr(random(100));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  simpleselect(sg1);
end;

end.

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