Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Изм.
Лист
№ докум.
Подпись
Дата
Лист
1
ПКТУ ТР.1004.000 ПР
Разработал
Игнатов Д.А.
Проверил
Горбарчук С.А
Практическая
работа №10
Лит.
Листов
45ПРО-10
Практическая работа №10
Тема: Доработка структур данных.
Цель: Научиться программировать задачи с использованием пользовательского типа данных.
Оборудование: IBM PC, Delphi.
Выполнения работы
1. Ввести структуру данных с использованием пользовательского типа.
2. Составить программу по программированию данных пользовательского типа.
Ход работы
1. Ввел структуру данных с использованием пользовательского типа.
2. Составил программу по программированию данных пользовательского типа.
type TShop = record
id:integer;
count:integer;
s:double;
fio:string;
end;
type
TForm1 = class(TForm)
sSkinManager1: TsSkinManager;
sEdit1: TsEdit;
sLabel1: TsLabel;
sLabel2: TsLabel;
sLabel3: TsLabel;
sEdit2: TsEdit;
sLabel4: TsLabel;
sEdit3: TsEdit;
sButton1: TsButton;
sButton2: TsButton;
sButton3: TsButton;
sEdit4: TsEdit;
procedure FormCreate(Sender: TObject);
procedure sButton1Click(Sender: TObject);
procedure sButton2Click(Sender: TObject);
procedure sButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
shop:array[1..150] of TShop;
n:integer;
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=1;
end;
procedure TForm1.sButton1Click(Sender: TObject);
begin
shop[n].id:=StrToInt(Trim(sEdit1.Text));
shop[n].count:=StrToInt(Trim(sEdit2.Text));
shop[n].s:=StrToFloat(Trim(sEdit3.Text));
shop[n].fio:=Trim(sEdit4.Text);
inc(n);
ShowMessage('Товар добавлен');
end;
procedure TForm1.sButton2Click(Sender: TObject);
var i:integer;
begin
Form2.Show;
for i:=1 to n-1 do
Begin
Form2.StringGrid1.Cells[0,i]:=IntToStr(Form1.shop[i].id);
Form2.StringGrid1.Cells[1,i]:=IntToStr(Form1.shop[i].count);
Form2.StringGrid1.Cells[2,i]:=FloatToStr(Form1.shop[i].s);
Form2.StringGrid1.Cells[3,i]:=Form1.shop[i].fio;
End;
end;
procedure TForm1.sButton3Click(Sender: TObject);
begin
shop[Form2.d].id:=StrToInt(Trim(sEdit1.Text));
shop[Form2.d].count:=StrToInt(Trim(sEdit2.Text));
shop[Form2.d].s:=StrToFloat(Trim(sEdit3.Text));
shop[Form2.d].fio:=Trim(sEdit4.Text);
sButton2Click(Sender);
ShowMessage('Товар Изменен');
end;
end.
Вывод: Научился программировать задачи с использованием пользовательского типа данных.