Лабораторная работа №2 (по Delphi)

unit Un;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit3: TEdit;

Edit4: TEdit;

Label6: TLabel;

Label7: TLabel;

Edit5: TEdit;

Edit6: TEdit;

Panel1: TPanel;

procedure Form2(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

t1,t2,t3,t4,t5,t6:extended;

a,b,c,p,r,s,t,Per:real;

implementation

{$R *.dfm}

procedure TForm1.Form2(Sender: TObject);

begin

t1:=strtofloat(Edit1.Text);

t2:=strtofloat(Edit2.Text);

t3:=strtofloat(Edit3.Text);

t4:=strtofloat(Edit4.Text);

t5:=strtofloat(Edit5.Text);

t6:=strtofloat(Edit6.Text);

a:=sqrt(sqr(t1-t3)+sqr(t2-t4));

b:=sqrt(sqr(t3-t5)+sqr(t4-t6));

c:=sqrt(sqr(t5-t1)+sqr(t6-t2));

Per:=a+b+c;

r:=sqrt(sqr(t1)+sqr(t2))+sqrt(sqr(t3)+sqr(t4));

s:=sqrt(sqr(t1)+sqr(t2))+sqrt(sqr(t5)+sqr(t6));

t:=sqrt(sqr(t5)+sqr(t6))+sqrt(sqr(t3)+sqr(t4));

if (r=a)or(r=b)or(r=c)or(s=a)or(s=b)or(s=c)

or(t=a)or(t=b)or(t=c) then

Panel1.Caption:='Центр принадлежит треугольнику'

else Panel1.Caption:='Центр не принадлежит треугольнику'

end;

end.

unit Unit2;

interface

uses

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

Dialogs, ExtCtrls;

type

TForm2 = class(TForm)

Panel1: TPanel;

procedure Panel1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Un;

{$R *.dfm}

procedure TForm2.Panel1Click(Sender: TObject);

begin

if (r=a)or(r=b)or(r=c)or(s=a)or(s=b)or(s=c)

or(t=a)or(t=b)or(t=c) then

Panel1.Caption:='Центр принадлежит треугольнику'

else Panel1.Caption:='Центр не принадлежит треугольнику'

end;

end.

Лабораторная работа №3 (по Delphi)

unit U;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Panel3: TPanel;

Button1: TButton; edit3: TEdit;

procedure Button1Click(Sender: TObject); procedure Panel3Click(Sender: TObject);

private

Private declarations

public

Public declarations

end;

var

Form1: TForm1;

implementation

$R *.dfm

procedure TForm1.Button1Click(Sender: TObject);

var p,q,x,i,j:real; j,h,i,k,x1:integer;

x2,y:real;

a:array[-6..10] of string;

b:string;

begin

x:=strtofloat(edit3.Text);

i:=0;

repeat

y:=x mod 1000;

case y of

000:a[i]:='0';

001:a[i]:='1';

010:a[i]:='2';

011:a[i]:='3';

100:a[i]:='4';

101:a[i]:='5';

110:a[i]:='6';

111:a[i]:='7';

end;

i:=i+1;

until x1=0;

repeat

b:=b+(a[j]);

j:=j-1;

until j=k;

end;

procedure TForm1.Panel3Click(Sender: TObject);

begin

panel3.Caption:=b;

end;

end.