Порядок контроля и приемкиКурсовую работу принимает преподаватель Трубников Ю.Ю. на электронном носителе и в распечатанном варианте. Смотрит, как выполняется программа и соответствует ли она всем параметрам. 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.
Список литературы Фараонов В.В. Основы Турбо Паскаля. Изд-во. МВТУ.ФЕСТОДИДАКТИК, 1992, 304с. Сергиевский М.В., Шалашов А.В. Турбо Паскаль 7,0. Язык среда программирования на языке Паскаль. Изд-во Москва. Машиностроение,1994, 254 с. Емелина Е.И.. Основы программирования на языке Паскаль. Изд-во Москва, Финансы и статистика, 1997, 208с. Немнюгин С.А. Турбо Паскаль., Изд-во СПб, 2001. (Учебник + практикум) Васюкова Н.Д., Тюлева В.В. Практикум по основам программирования. Язык Паскаль., Изд-во Москва.
|
