Двухмерным массивом символов в Делфи. Поменять местами максимальный и минимальный элементы

Posted by obzor under Delphi

Рамерность массива — А [2 х 4]
Тип елементов массива — char
Задание — В матрице поменять местами max и min элементы в Delphi

newerow1989

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..2,1..4] of char;
    i,j,imin,jmin,imax,jmax:integer;
    c:char;

   procedure Write(var Lab:TLabel);
   var i,j:integer;
   begin
      Lab.Caption:='';
      For i:=1 to 2 do
      begin
         For j:=1 to 4 do
            Lab.Caption:=Lab.Caption+a[ i,j]+' ';
         Lab.Caption:=Lab.Caption+#13#10;
      end;
   end;

begin
   Randomize;
   For i:=1 to 2 do
      For j:=1 to 4 do
         a[ i,j]:=Char(224+Random(32));
   Write(Label1);
   imin:=1;
   jmin:=1;
   imax:=1;
   jmax:=1;
   For i:=1 to 2 do
      For j:=1 to 4 do
      begin
         If a[ i,j]<a[imin,jmin] then
         begin
            imin:=i;
            jmin:=j;
         end;
         If a[ i,j]>a[imax,jmax] then
         begin
            imax:=i;
            jmax:=j;
         end;
      end;
   c:=a[imin,jmin];
   a[imin,jmin]:=a[imax,jmax];
   a[imax,jmax]:=c;
   Write(Label2);
end;

тема на форуме

Случайные статьи

• Капитал — это …
• Спрятать часть картинки в div
• Работа с двумерными массивами (матрицами) средствами Delphi
• Проверка на наличие процесса
• Как найти все подпапки скрытой папки.
• Определить самую длинную строку в ListBox
• Особенности виртуального ListBox при отображении больших объемов информации
• Как сделать копии формы?
• Как можно узнать список всех окон процесса?
• Рассылка. Выпуск 76