Приложения а. Листинг индивидуального задания №1

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button4: TButton;

Label6: TLabel;

Edit7: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,d,e,f,g1,g2,g3:integer;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=StrToInt(Edit3.Text);

d:=StrToInt(Edit4.Text);

e:=StrToInt(Edit5.Text);

f:=StrToInt(Edit6.Text);

g1:=a+d;

g2:=b+e;

g3:=c+f;

label3.Caption:='('+inttostr(g1)+';'+inttostr(g2)+';'+inttostr(g3)+')';

end;

procedure TForm1.Button2Click(Sender: TObject);

var a,b,c,d,e,f,g1,g2,g3:integer;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=StrToInt(Edit3.Text);

d:=StrToInt(Edit4.Text);

e:=StrToInt(Edit5.Text);

f:=StrToInt(Edit6.Text);

g1:=a-d;

g2:=b-e;

g3:=c-f;

label4.Caption:='('+inttostr(g1)+';'+inttostr(g2)+';'+inttostr(g3)+')';

end;

procedure TForm1.Button3Click(Sender: TObject);

var a,b,c,d,e,f,g1,g2,g3:integer;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=StrToInt(Edit3.Text);

d:=StrToInt(Edit4.Text);

e:=StrToInt(Edit5.Text);

f:=StrToInt(Edit6.Text);

g1:=a*d+b*e+d*f;

label5.Caption:=inttostr(g1);

end;

procedure TForm1.Button4Click(Sender: TObject);

var a,b,c,d,g1,g2,g3:integer;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=StrToInt(Edit3.Text);

d:=StrToInt(Edit7.Text);

g1:=a*d;

g2:=b*d;

g3:=c*d;

label6.Caption:='('+inttostr(g1)+';'+inttostr(g2)+';'+inttostr(g3)+')';

end;

end.

Приложения б. Листинг индивидуального задания №2

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit2: TEdit;

Button1: TButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Edit3: TEdit;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

d,d1,g:double;

begin

a:=1;

b:=StrToInt(Edit2.Text);

d1:=0;

g:=StrToFloat(Edit1.Text);

while a<b do

begin

d:=(Exp(a*ln(2)))/(Exp(a*ln(3))*a);

if d>g then

begin

d1:=d1+d;

end;

a:=a+1;

end;

label3.caption:=FloatToStr(d1);

end;

procedure TForm1.Button2Click(Sender: TObject);

var a,b:integer;

d,d1:double;

begin

a:=1;

b:=StrToInt(Edit3.Text);

d1:=0;

while a<=b do

begin

d:=(Exp(a*ln(2)))/(Exp(a*ln(3))*a);

d1:=d1+d;

a:=a+1;

end;

label11.caption:=FloatToStr(d1);

end;