Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:02 семестр / Задачи на Paskal / Stringgrid. Примеры задач / StringGrid. Перемещение диагоналей матрицы / Unit1
.pas 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.
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. Перемещение диагоналей матрицы