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

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;

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

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

• Как записать в таблицу Paradox значение из CheckBox?
• Конструкция while(true)
• Отображение изображений из базы данных
• Иракские боевики «прослушивали» американские БПЛА
• TChromium (CEF3), сохранение изображений
• Вычислить сумму неотрицательных элементов двумерного массива А [4..4]
• Работа с джойстиком через USB
• Как вывести в WebBrowser определённую часть сайта
• Как работать с графикой на канве в среде Дельфи. Урок 3-4
• Как программно отправить CTRL+V?