Министерство образования и науки Украины

Национальный горный университет

Кафедра геоинформационных систем

Отчёт по лабораторным работам по дисциплине ооп

Выполнил:

студент группы КНгр-10-1

Петровский С.В.

Проверил:

доцент Никулин С. Л.

Днепропетровск

2011

Содержание:

Лабораторная работа № 1 …………………………………………3

Код программы ………………………………………....3

Скриншоты……………………………………………....5

Лабораторная работа № 2………………………………………….6

Код программы ………………………………………...6

Скриншоты……………………………………………..11

Лабораторная работа № 3…………………………………………12

Код программы ………………………………………...12

Скриншоты……………………………………………...17

Лабораторная работа № 4 ...………………………………………18

Код программы ………………………………………..18

Скриншоты……………………………………………..22

Лабораторная работа № 5...………………………………………..23

Код программы ………………………………………...23

Скриншоты……………………………………………...28

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

Задание: динамическая реализация объектов.

Реализовать динамически некоторые из указанных элементов управления.

Код программы:

unit Lab1;

interface

uses

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

Dialogs, StdCtrls, Math;

type

TForm1 = class(TForm)

Button2: TButton;

Edit4: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

T,x,y,z:real;

begin

try

x:=strtofloat(Edit1.Text);

y:=strtofloat(Edit2.Text);

z:=strtofloat(Edit3.Text);

T:=(sqr(x)+sin(y))/sqrt(z);

Edit4.Text:=floattostr(T);

except

on EZeroDivide do Showmessage('Ne deli na nol');

on EConvertError do Showmessage ('Oshibka vvoda');

on EInvalidOp do ShowMessage ('Z dolzhno bit bolshe nulya');

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1:=TEdit.Create(Edit1);

Edit1.Left:=64;

Edit1.Top:=16;

Edit1.Text:='';

Edit1.Parent:=Form1;

Edit2:=TEdit.Create(Edit2);

Edit2.Left:=64;

Edit2.Top:=48;

Edit2.Text:='';

Edit2.Parent:=Form1;

Edit3:=TEdit.Create(Edit3);

Edit3.Left:=64;

Edit3.Top:=80;

Edit3.Text:='';

Edit3.Parent:=Form1;

Button1:=TButton.Create(Button1);

Button1.Left:=240;

Button1.Top:=24;

Button1.Caption:='RUN';

Button1.Parent:=Form1;

Button1.OnClick:=Button1Click;

end;

end.

Скриншот незапущенной программы:

Скриншот запущенной программы: