Алгоритмические языки и программирование

Автор работы: Пользователь скрыл имя, 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

Скачать (82.75 Кб) Сколько стоит заказать работу?
Работа состоит из  1 файл

Курсовая.docx

— 92.80 Кб (Скачать документ)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Программный Код 

 

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.

 


Информация о работе Алгоритмические языки и программирование