• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Тлумачний словник
Авто
Автоматизація
Архітектура
Астрономія
Аудит
Біологія
Будівництво
Бухгалтерія
Винахідництво
Виробництво
Військова справа
Генетика
Географія
Геологія
Господарство
Держава
Дім
Екологія
Економетрика
Економіка
Електроніка
Журналістика та ЗМІ
Зв'язок
Іноземні мови
Інформатика
Історія
Комп'ютери
Креслення
Кулінарія
Культура
Лексикологія
Література
Логіка
Маркетинг
Математика
Машинобудування
Медицина
Менеджмент
Метали і Зварювання
Механіка
Мистецтво
Музика
Населення
Освіта
Охорона безпеки життя
Охорона Праці
Педагогіка
Політика
Право
Програмування
Промисловість
Психологія
Радіо
Регилия
Соціологія
Спорт
Стандартизація
Технології
Торгівля
Туризм
Фізика
Фізіологія
Філософія
Фінанси
Хімія
Юриспунденкция

Листинги программ к лабораторной работе 4

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Grids;

type

TForm1 = class(TForm)

DrawGrid1: TDrawGrid;

Timer1: TTimer;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Timer1Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

var k,i,j:integer; area:TRect;

begin

DrawGrid1.Canvas.Brush.Color:=clBlack;

for i:=0 to 174 do

for j:=0 to 104 do

begin

area:= DrawGrid1.CellRect(j,i);

drawGrid1.Canvas.FillRect(area);

end;

k:=-1;

DrawGrid1.Canvas.Brush.Color:=clWhite;

for i:=0 to 174 do

for j:=0 to 104 do

begin inc(k);

if frac(sqrt(k))=0 then

begin

area:= DrawGrid1.CellRect(j,i);

drawGrid1.Canvas.FillRect(area);

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

timer1.Enabled:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

begin

for j:=0 to 4 do

if (j<>1)and (j<>3) then

for i:=0 to 4 do

StringGrid2.Cells[j,i]:=StringGrid1.Cells[j,i];

for i:=0 to 4 do

begin

StringGrid2.Cells[1,i]:=StringGrid1.Cells[3,i];

StringGrid2.Cells[3,i]:=StringGrid1.Cells[1,i];

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

var i,j:integer;

begin

for i:=0 to 4 do

for j:=0 to 4 do

StringGrid2.Cells[j,i]:=' ';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

stringgrid2.Cols[0]:=stringgrid1.Cols[0];

stringgrid2.Cols[1]:=stringgrid1.Cols[3];

stringgrid2.Cols[2]:=stringgrid1.Cols[2];

stringgrid2.Cols[3]:=stringgrid1.Cols[1];

stringgrid2.Cols[4]:=stringgrid1.Cols[4];

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.

Приложение Д

Переглядів: 266