Работа с двумерными массивами (матрицами) средствами Delphi

Posted by obzor under Delphi

Дан двумерный массив размером n*m.
1.Заменить максимальный элемент каждой строки нулем
2.Вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей.
3.Удалить самый левый столбец, в котором встретиться четный отрицательный элемент.
4.Поменять местами второй и предпоследний столбцы.

newerow1989

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const n=12;
      m=10;
var p:array[1..n,1..m] of integer;

procedure Vyvod(Labeli:TLabel);
var i,j:integer;
begin
   Labeli.Caption:='';
   For i:=1 to n do
   begin
      For j:=1 to m do
         Labeli.Caption:=Labeli.Caption+IntToStr(p[ i,j])+' ';
      Labeli.Caption:=Labeli.Caption+#13#10;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
   Randomize;
   For i:=1 to n do
      For j:=1 to m do
         p[i,j]:=Random(41)-20;
   Vyvod(Label1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,max:integer;
begin
   For i:=1 to n do
   begin
      max:=p[ i,1];
      For j:=2 to m do
         If max<p[ i,j] then
            max:=p[ i,j];
      For j:=1 to m do
         If p[ i,j]=max then
            p[ i,j]:=0;
   end;
   Vyvod(Label2);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
   Label2.Caption:='';
   For i:=1 to n do
   begin
      If p[ i,1] mod 3=0 then
      begin
         For j:=1 to m do
            Label2.Caption:=Label2.Caption+'0 ';
         Label2.Caption:=Label2.Caption+#13#10;
      end;
      For j:=1 to m do
         Label2.Caption:=Label2.Caption+IntToStr(p[ i,j])+' ';
      Label2.Caption:=Label2.Caption+#13#10;
   end;
end;

procedure TForm1.Button3Click(Sender: TObject);
label l;
var i,j,nj:integer;
begin
   nj:=1;
   For j:=1 to m do
      For i:=1 to n do
         If (p[ i,j]<0) and (p[ i,j] mod 2=0) then
         begin
            nj:=j;
            goto l;
         end;
   l:
   Label2.Caption:='';
   For i:=1 to n do
   begin
      For j:=1 to m do
         If j<>nj then
            Label2.Caption:=Label2.Caption+IntToStr(p[ i,j])+' ';
      Label2.Caption:=Label2.Caption+#13#10;
   end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var i,z:integer;
begin
   For i:=1 to n do
   begin
      z:=p[ i,2];
      p[ i,2]:=p[ i,m-1];
      p[ i,m-1]:=z;
   end;
   Vyvod(Label2);
end;

end.

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

Похожие статьи

• Динамические массивы Turbo Pascal
• Использование нетипизированного указателя для передачи массива
• Запись данных в файла из массив с помощью FileStream
• Как перемешать массив, заполненный английским алфавитом?
• Как создать двумерный динамический массив?
• Класс, который ищет совпадение в массиве
• Умножение матриц
• Получить из текста строки, и занести их в массив
• Как использовать цвета в массиве
• Как сравнить переменную с набором чисел?