Скачиваний:
75
Добавлен:
04.03.2014
Размер:
1.94 Кб
Скачать
unit Unit1;

interface

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

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

var
Form1: TForm1; var a:matr; n,m,imin,jmin:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,l:integer;
begin {создание массива в табл. 1}
stringgrid1.fixedrows:=0;
stringgrid1.fixedcols:=0;
stringgrid2.fixedrows:=0;
stringgrid2.fixedcols:=0;
n:=strtoint(inputbox('N','Введите кол-во строк ',''));
m:=strtoint(inputbox('M','Введите кол-во столбцов :)',''));
input(a,m,n);
stringgrid1.rowcount:=n;
stringgrid1.colcount:=m;
stringgrid2.rowcount:=n;
stringgrid2.colcount:=m;



for i := 1 to n do begin
for j := 1 to m do begin
stringgrid1.cells[j-1,i-1]:=inttostr(a[i,j]);
end; end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
min1(a,m,n,imin,jmin);
up1(a,m,n,imin,jmin);
for i := 1 to n-1 do begin
for j := 1 to m do begin
stringgrid2.cells[j-1,i-1]:=inttostr(a[i,j]);
end; end;

end;

procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
begin
min1(a,m,n,imin,jmin);
left1(a,m,n,imin,jmin);
for i := 1 to n do begin
for j := 1 to m-1 do begin
stringgrid2.cells[j-1,i-1]:=inttostr(a[i,j]);
end; end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;

end.
Соседние файлы в папке StringGrid. Перемещение диагоналей матрицы
  • #
    04.03.2014450 б74Project1.cfg
  • #
    04.03.2014213 б75Project1.dpr
  • #
    04.03.20144.4 Кб74Project1.res
  • #
    04.03.20146.66 Кб75Unit1.dcu
  • #
    04.03.20141.95 Кб75Unit1.dfm
  • #
    04.03.20141.94 Кб75Unit1.pas
  • #
    04.03.20141.35 Кб75Unit2.dcu
  • #
    04.03.20141.2 Кб75Unit2.pas