лабораторная работа / лабораторные работы по LAZARUS / Lab №5 варинат 21

МИНИСТЕРСТВО ОБЩЕГО И ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ РФ

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ

факультет: иженерно-строительный

кафедра: управление и информатика в технических системах

Лабораторная работа №5

по дисциплине: СПО

Вариант №21

Выполнил ст. гр. УИТ-33

Принял:

2009 г.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

Grids, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

DrawGrid1: TDrawGrid;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure DrawGrid1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Label1Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{ TForm1 }

type

zap=record // объявление записи

ves: integer;

sex: string[10];

end;

var

MZap:array[1..10] of zap; // объявление массива записей

procedure TForm1.FormCreate(Sender: TObject);

var i,vesmuzikov:integer;

begin

vesmuzikov:=0;

with DrawGrid1 do

begin // занесение информации в ячейки DrawGrid1

Cells[0,0]:='№';

Cells[1,0]:='Вес';

Cells[2,0]:='Пол';

for i:=1 to 9 do Cells[0,i]:=IntToStr(i);

Cells[1,1]:='73'; Cells[2,1]:='м';

Cells[1,2]:='45'; Cells[2,2]:='ж';

Cells[1,3]:='68'; Cells[2,3]:='м';

Cells[1,4]:='100'; Cells[2,4]:='м';

Cells[1,5]:='56'; Cells[2,5]:='ж';

Cells[1,6]:='71'; Cells[2,6]:='ж';

Cells[1,7]:='89'; Cells[2,7]:='м';

Cells[1,8]:='79'; Cells[2,8]:='м';

Cells[1,9]:='54'; Cells[2,9]:='ж';

Cells[1,10]:='64'; Cells[2,9]:='ж';

for i:=1 to 9 do

with MZap[i] do

begin // формирование полей массива записей

ves:=StrToInt(Cells[2,i]);

sex:=Cells[1,i];

if sex='ж' then

vesmuzikov:=vesmuzikov+ves;

end;

end;

Label1:=IntToStr(vesmuzikov)+' кг';

end;

procedure TForm1.Label1Click(Sender: TObject);

begin

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

end;

initialization

{$I unit1.lrs}

end.