[Grynyuk]

Задание в массиве поменять местами 1 и мин элемент. Помогите найти ошибку. Если можно подскажите как использовать вместо стринггрид мемо для ввода и листбокс для вывода
Код Delphi

Код:

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const n=10;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  i:=0;
  while i<n-1 do
  begin
    stringgrid2.Cells[1,1]:=stringgrid1.Cells[i+1,1];
    stringgrid2.Cells[i+1,1]:=stringgrid1.Cells[i,1];
 
  end;
  label2.Visible:=true;
  stringgrid2.Visible:=true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
min,k:string;
  begin
    for i:=0 to n-1 do
      begin
        stringgrid1.ColWidths[i]:=40;
        stringgrid2.ColWidths[i]:=40;
        stringgrid1.Cells[i,0]:=inttostr(i+1);
        stringgrid2.Cells[i,0]:=inttostr(i+1);
        stringgrid1.Cells[i,1]:=inttostr(random(101));
             min:=  stringgrid1.Cells[i,1];
 
            for j:=1 to n-1 do
                if   stringgrid1.Cells[j,1]<min then
                      begin min:=stringgrid1.Cells[2,1];
                    end;
                    k:=  stringgrid1.Cells[1,1];
           stringgrid1.Cells[1,1]:=min;
           min:=k;
     end;
    stringgrid1.Width:=414;
    stringgrid2.Width:=414;
    label2.Visible:=false;
    stringgrid2.Visible:=false;
  end;
 
 
end.

MAD: Пользуемся тегами, иначе бан!

[poli-smen]

Сообщение от Grynyuk

Задание в массиве поменять местами 1 и мин элемент. Помогите найти ошибку. Если можно подскажите как использовать вместо стринггрид мемо для ввода и листбокс для вывода
Код Delphi

Код:

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
min,k:string;
  begin
    for i:=0 to n-1 do
      begin
        stringgrid1.ColWidths[i]:=40;
        stringgrid2.ColWidths[i]:=40;
        stringgrid1.Cells[i,0]:=inttostr(i+1);
        stringgrid2.Cells[i,0]:=inttostr(i+1);
        stringgrid1.Cells[i,1]:=inttostr(random(101));
             min:=  stringgrid1.Cells[i,1];
 
            for j:=1 to n-1 do
                if   stringgrid1.Cells[j,1]<min then
                      begin min:=stringgrid1.Cells[2,1]; <--- у тебя минимальный элемент всегда во второй колонке?
                    end;
                    k:=  stringgrid1.Cells[1,1];
           stringgrid1.Cells[1,1]:=min;
           min:=k;                                       <--- и что потом со значением переменной min происходит? - ничего...
     end;
    stringgrid1.Width:=414;
    stringgrid2.Width:=414;
    label2.Visible:=false;
    stringgrid2.Visible:=false;
  end;

И зачем здесь вложенные циклы? Да, должно быть 2 цикла, но не вложенных, а идущие подряд: первый настраивает StringGrid, а второй ищет минимальное значение.
А в тех местах которые я прокомментировал: сначала сохраняешь в переменную min номер колонки с минимальным значением (а не само минимальное значение как ты пытаешься сделать), а потом в эту колонку StringGrid'а записываешь значение первой колонки (вместо того чтобы просто считывать это значение в переменную min).

[Alegun]

Сообщение от Grynyuk

...в массиве поменять местами 1 и мин элемент...использовать вместо стринггрид мемо для ввода и листбокс для вывода...

Код:

var
  mass: array of integer;
  min:  array [0..1] of integer;

procedure TForm1.Button1Click(Sender: TObject);
var
 i, tmp: integer;
 sl: TStringList;
begin
 sl:= TStringList.Create;
 sl.DelimitedText:= Memo1.Text;
 sl.Delimiter:= ',';

 SetLength(mass, sl.Count);

 for i := 0 to sl.Count-1 do
  mass[i]:= StrToInt(sl.Strings[i]);

 sl.Free;

 min[0]:= mass[0];
 min[1]:= 0;

 for i := 0 to High(mass) do
  begin
   tmp:= mass[i];
   if tmp < min[0] then
    begin
     min[0]:= tmp;
     min[1]:= i;
    end;
  end;

 tmp:= mass[1]; 
 mass[1]:= min[0];
 mass[min[1]]:= tmp;

 for i := Low(mass) to High(mass) do
  ListBox1.Items.Add(inttostr(mass[i]));
end;

[Grynyuk]

Всем спасибо очень помогли