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

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

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

unit Unit1;

interface

uses

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

Dialogs, Menus, StdCtrls, Grids;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

PopupMenu1: TPopupMenu;

StringGrid1: TStringGrid;

Button1: TButton;

Button2: TButton;

Memo1: TMemo;

Button6: TButton;

N1: TMenuItem;

max1: TMenuItem;

min1: TMenuItem;

sum: TMenuItem;

N2: TMenuItem;

clear1: TMenuItem;

clearstringgrid1: TMenuItem;

clearmemo1: TMenuItem;

close1: TMenuItem;

Button7: TButton;

Button3: TButton;

max2: TMenuItem;

min2: TMenuItem;

sum1: TMenuItem;

memoclear1: TMenuItem;

close2: TMenuItem;

procedure Button7Click(Sender: TObject);

procedure max1Click(Sender: TObject);

procedure min1Click(Sender: TObject);

procedure sumClick(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure close1Click(Sender: TObject);

procedure clearstringgrid1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure clearmemo1Click(Sender: TObject);

procedure max2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; a:array [1..5,1..5] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button7Click(Sender: TObject);

var i,j:integer;

begin

for i:=1 to 5 do

for j:=1 to 5 do

a[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]);

end;

procedure TForm1.max1Click(Sender: TObject);

var max:integer; i,j:integer;

begin

max:=a[1,1];

for i:=1 to 5 do

for j:=1 to 5 do

if a[i,j]>=max then max:=a[i,j];

memo1.Lines.Add('max value ='+ inttostr(max));

end;

procedure TForm1.min1Click(Sender: TObject);

var min:integer; i,j:integer;

begin

min:=a[1,1];

for i:=1 to 5 do

for j:=1 to 5 do

if a[i,j]<=min then min:=a[i,j];

memo1.Lines.Add('min value ='+ inttostr(min));

end;

procedure TForm1.sumClick(Sender: TObject);

var sum:integer; i,j:integer;

begin

sum:=0;

for i:=1 to 5 do

for j:=1 to 5 do

sum:=sum+a[i,j];

memo1.Lines.Add('sum ='+ inttostr(sum));

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

max1Click(max1);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

min1Click(min1);

end;

procedure TForm1.close1Click(Sender: TObject);

begin

button6Click(button6);

end;

procedure TForm1.clearstringgrid1Click(Sender: TObject);

var i,j:integer;

begin

for i:=0 to 4 do

for j:=0 to 4 do

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

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

memo1.Clear;

end;

procedure TForm1.clearmemo1Click(Sender: TObject);

begin

button3Click(button3);

end;

procedure TForm1.max2Click(Sender: TObject);

begin

max1Click(max1);

end;

end.

Приложение Е

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