Автор работы: Пользователь скрыл имя, 10 Января 2012 в 17:27, курсовая работа
Цель индивидуального задания, состоит в разработке программы «Калькулятор шестнадцатеричных чисел».
Задачи:
Изучить теоретический материал по теме «системы счисления», на примере шестнадцатеричной системы счисления.
Разработать полноценный программный пакет в среде визуализированного программирования Delphi, с отдельной разработкой дизайна программы.
ВВЕДЕНИЕ 3
1. Теоретический обзор 4
1.1 Позиционные системы счисления 4 1.2 Шестнадцатеричная система счисления 5
2. Алгоритм задачи 6
2.1. Блок-схема программы 6
2.2 Описание процедур 7
3. Руководство по эксплуатации 8
3.1. Разработка пользовательского интерфейса 8
3.2 Минимальный требования к конфигурации ПК 8 3.3 Инструкция по применению 8
3.4. Тестирование программы 9
ЗАКЛЮЧЕНИЕ 10
СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ 11
ПРИЛОЖЕНИЕ А 12
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
LastAdd:='A';
Text.Text:=Text.Text + 'A';
end;
procedure TMainForm.Button20Click(
begin
Text.Text:='0';
end;
procedure TMainForm.Button21Click(
var DelOp:string;
begin
DelOp:=Text.Text;
delete(DelOp, length(DelOp), 1);
Text.Text := DelOp;
end;
procedure TMainForm.Button2Click(Sender: TObject);
begin
LastAdd:='B';
Text.Text:=Text.Text + 'B';
end;
procedure TMainForm.Button3Click(Sender: TObject);
begin
LastAdd:='C';
Text.Text:=Text.Text + 'C';
end;
procedure TMainForm.Button4Click(Sender: TObject);
begin
LastAdd:='3';
Text.Text:=Text.Text + '3';
end;
procedure TMainForm.Button5Click(Sender: TObject);
begin
LastAdd:='2';
Text.Text:=Text.Text + '2';
end;
procedure TMainForm.Button6Click(Sender: TObject);
begin
LastAdd:='1';
Text.Text:=Text.Text + '1';
end;
procedure TMainForm.Button7Click(Sender: TObject);
begin
LastAdd:='E';
Text.Text:=Text.Text + 'E';
end;
procedure TMainForm.Button8Click(Sender: TObject);
begin
LastAdd:='0';
Text.Text:=Text.Text + '0';
end;
procedure TMainForm.Button9Click(Sender: TObject);
begin
LastAdd:='F';
Text.Text:=Text.Text + 'F';
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
Text.Text:='';
end;
procedure TMainForm.TextChange(Sender: TObject);
begin
end;
procedure TMainForm.Panel1Click(Sender: TObject);
begin
end;
end.