6.5. Порядок контроля и приемки

Курсовую работу принимает преподаватель Трубников Ю.Ю. на электронном носителе и в распечатанном варианте. Смотрит, как выполняется программа и соответствует ли она всем параметрам.

7. Приложение II: исходный код

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Edit1: TEdit;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

Button12: TButton;

Button13: TButton;

Button14: TButton;

Button15: TButton;

Button16: TButton;

Button17: TButton;

Button18: TButton;

Button19: TButton;

Button20: TButton;

Button21: TButton;

Button22: TButton;

Button23: TButton;

Button24: TButton;

Button25: TButton;

Button26: TButton;

Button27: TButton;

Button28: TButton;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

procedure Button21Click(Sender: TObject);

procedure Button22Click(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure Button25Click(Sender: TObject);

procedure Button26Click(Sender: TObject);

procedure Button27Click(Sender: TObject);

procedure Button28Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

oper:byte;

a:real;

b:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

edit1.Text:='';

oper:=1;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

Edit1.Text:='';

oper:=2;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

edit1.Text:='';

oper:=3;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

edit1.Text:='';

oper:=4;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(1);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(2);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(3);

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(4);

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(5);

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(6);

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(7);

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(8);

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(9);

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+inttostr(0);

end;

procedure TForm1.Button14Click(Sender: TObject);

var r:real;

begin

b:=strtofloat(edit1.Text);

if oper=1 then

begin

r:=a*b;

Edit1.Text:=floattostr(r);

end;

if oper=2 then

begin

if (b<>0) then

begin r:=a/b; Edit1.Text:=floattostr(r); end else

ShowMessage('На 0 делить нельзя');

end;

if oper=3 then

begin

r:=a+b;

Edit1.Text:=floattostr(r);

end;

if oper=4 then

begin

r:=a-b;

Edit1.Text:=floattostr(r);

end;

if oper=5 then

begin

r:=exp(b*ln(a));

Edit1.Text:=floattostr(r);

end;

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

edit1.Text:='';

end;

procedure TForm1.Button17Click(Sender: TObject);

var r:real; f:real;

begin

a:=strtofloat(edit1.Text);

f:=a*3.14159265359/180 ;

r:=sin(f);

Edit1.Text:=floattostr(r);

end;

procedure TForm1.Button18Click(Sender: TObject);

var r:real; f:real;

begin

a:=strtofloat(edit1.Text);

f:=a*3.14159265359/180 ;

r:=cos(f);

Edit1.Text:=floattostr(r);

end;

procedure TForm1.Button19Click(Sender: TObject);

var r:real; f:real; n:longint;

begin

a:=strtofloat(edit1.Text);

f:=a*3.14159265359/180 ;

if (f<>180/2+180*n) then

begin r:=sin(f)/cos(f); Edit1.Text:=floattostr(r); end else

ShowMessage('Невозможно определить');

end;

procedure TForm1.Button20Click(Sender: TObject);

var r:real; f:real; n:longint;

begin

a:=strtofloat(edit1.Text);

f:=a*3.14159265359/180 ;

if (f<>180*n) then

begin r:=cos(f)/sin(f); Edit1.Text:=floattostr(r); end else

ShowMessage('Невозможно определить');

end;

procedure TForm1.Button21Click(Sender: TObject);

Var i:integer; factorial:longint; n:byte;

begin

n:=strToInt (edit1.Text);

factorial:=1;

For i:=1 to n do

Factorial:=factorial*i;

edit1.Text:=floattostr(factorial);

end;

procedure TForm1.Button22Click(Sender: TObject);

var r:real;

begin

a:=strtofloat(edit1.Text);

r:=a*a;

edit1.Text:=floattostr(r);

end;

procedure TForm1.Button23Click(Sender: TObject);

begin

b:=3.14159265359;

edit1.Text:=floattostr(b);

end;

procedure TForm1.Button24Click(Sender: TObject);

var r:real;

begin

a:=strtofloat(edit1.Text);

r:=a*a*a;

edit1.Text:=floattostr(r);

end;

procedure TForm1.Button25Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

edit1.Text:='';

oper:=5;

end;

procedure TForm1.Button26Click(Sender: TObject);

var r:real;

begin

a:=strtofloat(edit1.Text);

if a>=0 then begin

r:=sqrt(a);

edit1.Text:=floattostr(r);

end else begin

ShowMessage('Корень из отрицательного числа извлечь нельзя');

end;

end;

procedure TForm1.Button27Click(Sender: TObject);

var r:real;

begin

a:=strtofloat(edit1.Text);

if a>0 then begin

r:=ln(a); edit1.Text:=floattostr(r)end else

ShowMessage('ln при x<=0 неопределён');

end;

procedure TForm1.Button28Click(Sender: TObject);

var r:real;

begin

a:=strtofloat(edit1.Text);

if (a<>0) then begin

r:=1/a; Edit1.Text:=floattostr(r); end else

ShowMessage('На 0 делить нельзя');

end;

end.