Автор работы: Пользователь скрыл имя, 11 Мая 2012 в 21:28, курсовая работа
Данная курсовая работа выполнена в среде программирования Delphi. Delphi — результат развития языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль.
Введение……………………………………………………………….…………..3
1 Задание на курсовую работу……………………………………………..….....5
2 Разработка программы……...………………………………..………………....6
3 Описание данных ...………………………………………………..…………....7
4 Разбиение задачи на подзадачи (структуризация)……………………..……..8
5 Блок схемы………………………………………………………………..……..9
6 Текст программы………………………………………………………………11
Рекомендуемая литература..…………………..………………………….….….23
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
PixelsPerInch = 96
TextHeight = 13
object Edit1: TEdit
Left = 8
Top = 8
Width = 689
Height = 32
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 3
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object Button3: TButton
Left = 8
Top = 48
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 = 1
OnClick = Button3Click
end
object Button4: TButton
Left = 224
Top = 120
Width = 41
Height = 25
Caption = '-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button4Click
end
object Button5: TButton
Left = 152
Top = 184
Width = 65
Height = 33
Caption = '='
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button5Click
end
object Button14: TButton
Left = 224
Top = 152
Width = 41
Height = 65
Caption = '+'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button14Click
end
object Back: TButton
Left = 152
Top = 48
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 = 5
OnClick = BackClick
end
object Button15: TButton
Left = 224
Top = 88
Width = 41
Height = 25
Caption = 'X'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = Button15Click
end
object Button16: TButton
Left = 272
Top = 48
Width = 97
Height = 33
Caption
= '/ '#1053#1072#1094#1077#1083#
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = Button16Click
end
object Button17: TButton
Left = 152
Top = 88
Width = 65
Height = 25
Caption = '+/-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = Button17Click
end
object Button1: TButton
Left = 80
Top = 48
Width = 65
Height = 33
Caption = 'OFF'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
OnClick = Button1Click
end
object GroupBox1: TGroupBox
Left = 8
Top = 83
Width = 105
Height = 120
Caption = #1062#1080#1092#1088#1099
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
object Button8: TButton
Left = 8
Top = 56
Width = 25
Height = 25
Caption = 'L'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = Button8Click
end
object Button2: TButton
Left = 8
Top = 88
Width = 25
Height = 25
Caption = 'I'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button2Click
end
object Button6: TButton
Left = 40
Top = 88
Width = 25
Height = 25
Caption = 'V'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button6Click
end
object Button7: TButton
Left = 72
Top = 88
Width = 25
Height = 25
Caption = 'X'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button7Click
end
object Button9: TButton
Left = 40
Top = 56
Width = 25
Height = 25
Caption = 'C'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button9Click
end
object Button10: TButton
Left = 72
Top = 56
Width = 25
Height = 25
Caption = 'D'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = Button10Click
end
object Button11: TButton
Left = 8
Top = 24
Width = 25
Height = 25
Caption = 'M'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = Button11Click
end
end
object Edit2: TEdit
Left = 8
Top = 312