Автор работы: Пользователь скрыл имя, 11 Декабря 2011 в 21:45, курсовая работа
Человеку достаточно сложно произвести в уме математические операции над двоичными числами. Для облегчения расчетов люди создают специальные приложения, выполняющие функции калькулятора. Одним из средств разработки таких программ является Borland Delphi.
В данной курсовой работе предложено создать Windows-приложение на языке Object Pascal в среде визуального программирования Borland Delphi, которое должно обеспечивать выполнение операций по вводу, обработке и выводу информации, содержащей двоичные числа.
Введение 2
Глава1. Двоичная система счисления. 2
§ 1История 2
§ 2 Целочисленные и вещественные типы данных языка Object Pascal 2
Глава 2. Приложение для реализации алгоритмов над данными целочисленных типов 2
§ 1 Система программирования Borland Delphi 2
§ 2 Описание компонентов Delphi 2
Компонент TButton 2
Компонент TEdit 2
Компонент TLabel 2
Компонент RadioButton 2
Компонент TMainMenu 2
Компонент TSaveDialog 2
§ 3 Инструкция пользователя 2
Заключение 2
Список источников 2
Приложение 1. Текст программных модулей 2
Приложение 2. Система тестов 2
end;
end;
procedure TForm1.PastClick(Sender: TObject);
begin
k:=0;
Memo1.lines.LoadFromFile('D:\
st:=memo1.Lines.Text;
for i:=1 to length(st) do
if (st[i]<>'1') and (st[i]<>'0') and (st[i]<>' ') then k:=k+1;
if k>0 then
begin
beep;
showmessage('В файле содержаться нечисловые данные');
end
else
if st='' then
begin
beep;
showmessage('Файл пуст!!!');
end
else
begin
k1:=0;
for i:=1 to length(st) do
if st[i]=' ' then k1:=k1+1;
if k1=0 then
begin
beep;
showmessage('В файле слишком мало данных');
end
else
begin
k:=0;
for i:=1 to length(st) do
if st[i]=' ' then
begin
if k<2 then begin
k:=k+1;
st1:=copy(st,1,i-1);
end;
end ;
for i:=1 to length(st1) do
if st1[i]=' ' then
begin
st:=copy(st1,1,i-1);
st2:=copy(st1,i+1,length(st1))
edparametr1.text:=st;
edparametr2.Text:=st2;
end;
end;
end;
end;
end.
Попробуем выполнить представленные в приложении операции без его использования.
Возьмем два двоичных числа. Например, число 1001 и число 111.
Попробуем сложить эти два числа.
1001
+
111
10000
В десятичной системе счисления число 1001=9, число 111=7
9+7=16
16 в двоичной системе счисления равно 10000.
Протестируем разработанное приложение с теми же числами.
После запуска с клавиатуры набираем Число 1=1001 и Число 2=111. Далее нажимаем «+». Сейчас мы можем закрыть приложение, вставить данные из файла и вывести результат в двоичной системе счисления. Действие «Сохранить в файл» не доступно.
В поле «Ответ» отражен результат проведенного вычисления (рис 20).
Рисунок 20.
Результаты наших вычислений и результаты работы приложения совпадают.
Информация о работе Разработка приложения «Двоичный калькулятор» средствами Borland Delphi