- •1 Лабораторная работа. Создание проекта с использованием компонентов Edit, Label, Memo, Button
- •1.1 Этапы создания оконного приложения
- •1.2 Задание к лабораторной работе
- •1.3 Контрольные вопросы
- •1.4 Варианты заданий
- •2 Лабораторная работа. Использование компонентов ListBox, ComboBox
- •2.1 Списки ListBox, ComboBox
- •2.2 Задание к лабораторной работе
- •2.3 Контрольные вопросы
- •2.4 Варианты заданий
- •3 Лабораторная работа. Панель переключателей RadioGroup и список выключателей CheckListBox
- •3.1 Панель переключателей RadioGroup и список выключателей CheckListBox
- •3.2 Задание к лабораторной работе
- •3.3 Контрольные вопросы
- •3.4 Варианты заданий
- •4 Лабораторная работа. Использование таблиц DrawGrid и StringGrid и компонента Timer
- •4.1 Компоненты DrawGrid и StringGrid
- •4.2 Задание к лабораторной работе
- •4.3 Контрольные вопросы
- •4.4 Варианты заданий
- •5 Лабораторная работа. Создание меню. Компоненты Main Menu и Popup Menu
- •5.1 Компоненты Main Menu и Popup Menu
- •5.2 Задание 1 к лабораторной работе
- •5.3 Компоненты ToolBar и StatusBar
- •5.4 Задание 2 к лабораторной работе
- •5.5 Контрольные вопросы
- •5.5 Задания к лабораторной работе
- •6 Лабораторная работа. Построение графиков математических функций. Построение диаграмм с помощью компонента Chart
- •6.1 Поверхность рисования
- •6.2 Система координат
- •6.3 Графические инструменты
- •6.4 Задание 1 к лабораторной работе
- •6.5 Компонент Chart (для отображения графиков и диаграмм)
- •6.6 Задание 2 к лабораторной работе
- •6.7 Контрольные вопросы
- •6.8 Варианты заданий
- •Приложение а
- •Приложение б
- •Приложение в
- •Приложение г
- •Приложение д
- •Приложение е
- •Список литературы
- •Содержание
Приложение д
Листинги программ к лабораторной работе 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.