Переместить минимальные элементы в начало

@Zoha · Регистрация: 05.04.2012

Author24 — интернет-сервис помощи студентам

Одномерный массив длиной N
Переместить минимальные элементы в начало, сдвинув остальные элементы вправо.

@Andretti · 06.04.2012, 00:52

Вот -

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i1,i:word;
str:string;
begin
for i1:=1 to StringGrid1.RowCount do
for i:=0 to  StringGrid1.rowcount-2 do
if strtofloat(StringGrid1.Cells[0,i]) > strtofloat(StringGrid1.Cells[0,i+1]) then
begin
str:=StringGrid1.Cells[0,i];
StringGrid1.Cells[0,i]:=StringGrid1.Cells[0,i+1];
StringGrid1.Cells[0,i+1]:=str;
end;
end;
 
end.

@Zoha 0 / 0 / 0 Регистрация: 05.04.2012 Сообщений: 7
		1
	Переместить минимальные элементы в начало 05.04.2012, 21:44. Показов 1292. Ответов 1 Метки нет (Все метки) Одномерный массив длиной N Переместить минимальные элементы в начало, сдвинув остальные элементы вправо. 0

	06.04.2012, 00:52

Переместить минимальные элементы в начало

Решение