Автор работы: Пользователь скрыл имя, 27 Июня 2013 в 20:02, курсовая работа
Программы, работающие на компьютере, можно разделить на три категории:
1. Прикладные программы, непосредственно обеспечивающие выполнение необходимых пользователям работ: редактирование текстов, рисование, обработку информационных массивов и т.д.
2. Системные программы, выполняющие различные вспомогательные функции, например диагностика компьютера или резервное копирование информации.
3. Инструментальные системы (системы программирования), обеспечивающие создание новых программ.
1.Введение…………………………………………………………………………...3
2.Необходимые формулы и требования…………………………………………...4
4.Интерфейс………………………………………………………………………....5
5.Вывод………………………………………………………………………………6
6.Приложение I……………………………………………………………………...6
6.1. Техническое задание…………………………………………………………7
6.1.1. Основания для разработки……………………………………………8
6.2. Требования к программе или программному изделию……………………8
6.2.1. Требования к функциональным характеристикам…………………..8
6.2.2.Условия эксплуатации…………………………………………………8
6.2.3.Требования к составу и параметрам технических средств………….9
6.2.4.Требования к информационной и программной совместимости…...9
6.2.5.Требования к транспортированию и хранению……………………...9
6.3.Технико-экономические показатели………………………………………9
6.4.Стадии и этапы разработки………………………………………………...9
7.Руководство Пользователя………………………………………………...10
8.Список литературы……………………………………………………………...11
Программный Код
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Memo1: TMemo;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
BitBtn11: TBitBtn;
BitBtn12: TBitBtn;
BitBtn13: TBitBtn;
BitBtn14: TBitBtn;
BitBtn15: TBitBtn;
BitBtn16: TBitBtn;
BitBtn17: TBitBtn;
BitBtn18: TBitBtn;
BitBtn19: TBitBtn;
BitBtn20: TBitBtn;
BitBtn21: TBitBtn;
BitBtn22: TBitBtn;
BitBtn23: TBitBtn;
BitBtn24: TBitBtn;
BitBtn25: TBitBtn;
BitBtn26: TBitBtn;
BitBtn27: TBitBtn;
BitBtn28: TBitBtn;
BitBtn29: TBitBtn;
BitBtn30: TBitBtn;
BitBtn31: TBitBtn;
BitBtn32: TBitBtn;
Panel1: TPanel;
BitBtn33: TBitBtn;
BitBtn34: TBitBtn;
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn12Click(Sender: TObject);
procedure BitBtn17Click(Sender: TObject);
procedure BitBtn15Click(Sender: TObject);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn16Click(Sender: TObject);
procedure BitBtn33Click(Sender: TObject);
procedure BitBtn34Click(Sender: TObject);
procedure BitBtn19Click(Sender: TObject);
procedure BitBtn22Click(Sender: TObject);
procedure BitBtn20Click(Sender: TObject);
procedure BitBtn21Click(Sender: TObject);
procedure BitBtn18Click(Sender: TObject);
procedure BitBtn27Click(Sender: TObject);
procedure BitBtn26Click(Sender: TObject);
procedure BitBtn25Click(Sender: TObject);
procedure BitBtn24Click(Sender: TObject);
procedure BitBtn23Click(Sender: TObject);
procedure BitBtn32Click(Sender: TObject);
procedure BitBtn31Click(Sender: TObject);
procedure BitBtn30Click(Sender: TObject);
procedure BitBtn29Click(Sender: TObject);
procedure BitBtn28Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x,y,z,MS,Mp,Mm:real;
p,k,l,d,i,j,t:integer;
implementation
{$R *.dfm}
procedure TForm1.BitBtn11Click(Sender: TObject);
begin
if k=0 then
memo1.Text:=memo1.Text+'0' else
memo1.Text:='0';
k:=0;
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
if k=0 then
memo1.Text:=memo1.Text+'1' else
memo1.Text:='1';
k:=0;
end;
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
if k=0 then
memo1.Text:=memo1.Text+'2' else
memo1.Text:='2';
k:=0;
end;
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
if k=0 then
memo1.Text:=memo1.Text+'3' else
memo1.Text:='3';
k:=0;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
if k=0 then
memo1.Text:=memo1.Text+'4' else
memo1.Text:='4';
k:=0;
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
if k=0 then
memo1.Text:=memo1.Text+'5' else
memo1.Text:='5';
k:=0;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
if k=0 then
memo1.Text:=memo1.Text+'6' else
memo1.Text:='6';
k:=0;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if k=0 then
memo1.Text:=memo1.Text+'7' else
memo1.Text:='7';
k:=0;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if k=0 then
memo1.Text:=memo1.Text+'8' else
memo1.Text:='8';
k:=0;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if k=0 then
memo1.Text:=memo1.Text+'9' else
memo1.Text:='9';
k:=0;
end;
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
x:=strtofloat(memo1.Text)*(-1)
memo1.Text:=floattostr(x);
end;
procedure TForm1.BitBtn12Click(Sender: TObject);
begin
if p=0 then
begin
memo1.Text:=memo1.Text+',';
p:=1;
end;
end;
procedure TForm1.BitBtn17Click(Sender: TObject);
begin
d:=1;
k:=1;
x:=strtofloat(memo1.Text);
p:=0;
end;
procedure TForm1.BitBtn15Click(Sender: TObject);
begin
d:=2;
p:=0;
k:=2;
x:=strtofloat(memo1.Text);
end;
procedure TForm1.BitBtn14Click(Sender: TObject);
begin
d:=3;
p:=0;
k:=3;
x:=strtofloat(memo1.Text);
end;
procedure TForm1.BitBtn13Click(Sender: TObject);
begin
d:=4;
p:=0;
k:=4;
x:=strtofloat(memo1.Text);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ms:=0;
x:=0;
z:=0;
y:=0;
k:=0;
p:=0;
d:=0;
Mp:=0;
Mm:=0;
end;
procedure TForm1.BitBtn16Click(Sender: TObject);
begin
z:=strtofloat(memo1.Text);
if d=1 then
y:=x+z;
if d=2 then
y:=x-z;
if d=3 then
y:=x*z;
if d=4 then
y:=x/z;
if d=5 then
begin
t:=strtoint(memo1.Text);
y:=1;
for i:=1 to t do
y:=y*x;
end;
memo1.Text:=floattostr(y);
end;
procedure TForm1.BitBtn33Click(Sender: TObject);
begin
memo1.Text:='';
x:=0;
z:=0;
y:=0;
k:=0;
p:=0;
d:=0;
Mp:=0;
Mm:=0;
end;
procedure TForm1.BitBtn34Click(Sender: TObject);
begin
memo1.Text:='';
end;
procedure TForm1.BitBtn19Click(Sender: TObject);
begin
ms:=strtofloat(memo1.Text);
panel1.Caption:='M';
end;
procedure TForm1.BitBtn22Click(Sender: TObject);
begin
memo1.Text:=floattostr(MS);
end;
procedure TForm1.BitBtn20Click(Sender: TObject);
begin
panel1.Caption:='M';
MS:=MS+strtofloat(memo1.Text);
end;
procedure TForm1.BitBtn21Click(Sender: TObject);
begin
panel1.Caption:='M';
MS:=MS-strtofloat(memo1.Text);
end;
procedure TForm1.BitBtn18Click(Sender: TObject);
begin
MS:=0;
panel1.Caption:='';
end;
procedure TForm1.BitBtn27Click(Sender: TObject);
begin
x:=strtofloat(memo1.Text);
y:=1/x;
memo1.Text:=floattostr(y);
end;
procedure TForm1.BitBtn26Click(Sender: TObject);
begin
memo1.Text:=floattostr(pi);
end;
procedure TForm1.BitBtn25Click(Sender: TObject);
begin
d:=5;
x:=strtofloat(memo1.Text);
k:=1;
end;
procedure TForm1.BitBtn24Click(Sender: TObject);
begin
x:=strtofloat(memo1.Text);
y:=sqr(x)*x;
memo1.Text:=floattostr(y);
end;
procedure TForm1.BitBtn23Click(Sender: TObject);
begin
x:=strtofloat(memo1.Text);
y:=sqr(x);
memo1.Text:=floattostr(y);
end;
procedure TForm1.BitBtn32Click(Sender: TObject);
begin
p:=0;
x:=strtofloat(memo1.Text);
y:=int(x);
memo1.Text:=floattostr(y);
end;
procedure TForm1.BitBtn31Click(Sender: TObject);
begin
x:=strtofloat(memo1.Text);
y:=sin(x)/cos(x);
memo1.Text:=floattostr(y);
end;
procedure TForm1.BitBtn30Click(Sender: TObject);
begin
x:=strtofloat(memo1.Text);
y:=cos(x);
memo1.Text:=floattostr(y);
end;
procedure TForm1.BitBtn29Click(Sender: TObject);
begin
x:=strtofloat(memo1.Text);
y:=sin(x);
memo1.Text:=floattostr(y);
end;
procedure TForm1.BitBtn28Click(Sender: TObject);
begin
t:=strtoint(memo1.Text);
y:=1;
for i:=1 to t do
y:=y*i;
memo1.Text:=floattostr(y);
end;
end.
Информация о работе Алгоритмические языки и программирование