[Grynyuk]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76

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

Код:

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

[Alegun]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

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]

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