Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Синтаксис
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.12.2023, 11:38
Liprikon Liprikon вне форума
Прохожий
 
Регистрация: 13.12.2023
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Сортировка массива

Нужно сделать сортировку простыми вставками двумерного массива с выводом в стрингрид
Вот код
Код:
Const 
u=5;
  g=5;
var
  Form1: TForm1;
  w:array [1..u,1..g] of integer;
implementation

{$R *.dfm}

procedure TForm1.btn2Click(Sender: TObject);
 var
   r, t, k, y, q, p, s: Integer;

 begin
  Randomize;
  for r:=1 to g do
  for p:=1 to u do
    begin
     w[r,p]:=Random(15);
    end;
      with strngrd2 do
       begin
        ColCount:=r+1;
        RowCount:=p+1;
        for r:=1 to g do
        for p:=1 to u do
         begin
           Cells[r,p]:=FloatToStr(w[r,p]);
         end;
       end;
  for s:=1 to 7*7 do
  for r:=1 to g do
  for p:=1 to u do
      begin
       t:=w[r,g];
       k:=1;
       q:=1;
        while (t>=w[k,q]) and (k<r) and (q<p) do
         for y:=r-1 downto k do
         w[y+1]:=w[y];
         w[k,q]:=t
        end;

     with strngrd3 do
       begin
        ColCount:=r+1;
        RowCount:=p+1;
        for r:=1 to g do
        for p:=1 to u do
         begin
           Cells[r,p]:=FloatToStr(w[r,p]);
         end;
       end;
 end;
end.

lmikle: пользуемся тегами для оформления

Последний раз редактировалось lmikle, 17.12.2023 в 01:12.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 04:23.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter