Автор работы: Пользователь скрыл имя, 11 Мая 2012 в 21:28, курсовая работа
Данная курсовая работа выполнена в среде программирования Delphi. Delphi — результат развития языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль.
Введение……………………………………………………………….…………..3
1 Задание на курсовую работу……………………………………………..….....5
2 Разработка программы……...………………………………..………………....6
3 Описание данных ...………………………………………………..…………....7
4 Разбиение задачи на подзадачи (структуризация)……………………..……..8
5 Блок схемы………………………………………………………………..……..9
6 Текст программы………………………………………………………………11
Рекомендуемая литература..…………………..………………………….….….23
Width = 689
Height = 32
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 11
end
object Button12: TButton
Left = 584
Top = 48
Width = 115
Height = 33
Caption
= #1042' '#1072#1088#1072#1073#1089#
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 12
OnClick = Button12Click
end
object Button13: TButton
Left = 584
Top = 272
Width = 113
Height = 33
Caption
= #1042' '#1088#1080#1084#1089#1082#
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 13
OnClick = Button13Click
end
object Button18: TButton
Left = 8
Top = 280
Width = 25
Height = 25
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 14
OnClick = Button18Click
end
object Button19: TButton
Left = 40
Top = 280
Width = 25
Height = 25
Caption = '1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 15
OnClick = Button19Click
end
object Button20: TButton
Left = 72
Top = 280
Width = 25
Height = 25
Caption = '2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 16
OnClick = Button20Click
end
object Button21: TButton
Left = 104
Top = 280
Width = 25
Height = 25
Caption = '3'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 17
OnClick = Button21Click
end
object Button22: TButton
Left = 136
Top = 280
Width = 25
Height = 25
Caption = '4'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 18
OnClick = Button22Click
end
object Button23: TButton
Left = 168
Top = 280
Width = 25
Height = 25
Caption = '5'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 19
OnClick = Button23Click
end
object Button24: TButton
Left = 200
Top = 280
Width = 25
Height = 25
Caption = '6'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 20
OnClick = Button24Click
end
object Button25: TButton
Left = 232
Top = 280
Width = 25
Height = 25
Caption = '7'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 21
OnClick = Button25Click
end
object Button26: TButton
Left = 264
Top = 280
Width = 25
Height = 25
Caption = '8'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 22
OnClick = Button26Click
end
object Button27: TButton
Left = 296
Top = 280
Width = 25
Height = 25
Caption = '9'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 23
OnClick = Button27Click
end
object Button28: TButton
Left = 336
Top = 272
Width = 65
Height = 33
Caption = 'Clear'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 24
OnClick = Button28Click
end
object Button29: TButton
Left = 408
Top = 272
Width = 113
Height = 33
Caption = 'Back Space'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 25
OnClick = Button29Click
end
object Button30: TButton
Left = 376
Top = 48
Width = 121
Height = 33
Caption
= #1054#1089#1090#1072#1090#
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 26
OnClick = Button30Click
end
object Button31: TButton
Left = 528
Top = 272
Width = 49
Height = 33
Caption = '+/-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 27
OnClick = Button31Click
end
end
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button14: TButton;
Back: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button1: TButton;
Button2: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
GroupBox1: TGroupBox;
Edit2: TEdit;
Button12: TButton;
Button13: TButton;