МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ, МОЛОДЕЖИ И СПОРТА УКРАИНЫ
ЧЕРНИГНОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНОЛОГИЧЕСКИЙ УНИВЕРСИТЕТ
Кафедра электрических систем и сетей
КУРСОВАЯ РАБОТА
По дисциплине «Вычислительная техника, алгоритмические языки и программное обеспечение»
Вариант № 1
Выполнил:
Студент группы ЗEM-111 ____________ Шакало С.Н.
Проверил:
Ст.преподователь ____________ \ Красножон А.В.
Чернигов ЧГТУ 2013
СОДЕРЖАНИЕ
1 ВВЕДЕНИЕ. 4
2 АЛГОРИТМ.. 5
3 ПРОГРАММА.. 6
3.1..... Интерфейс программы 6
3.2..... Текст программы 7
3.3..... Описание текста программы 31
4 РЕЗУЛЬТАТЫ ТЕСТИРОВАНИЯ И ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ.. 33
4.1..... Результаты тестирования 33
4.2..... Инструкция пользователя 34
5 ВЫВОДЫ.. 36
6 ИСПОЛЬЗОВАННАЯ ЛИТЕРАТУРА.. 37
ВВЕДЕНИЕ
Программы, работающие на компьютере, можно разделить на три категории:
1. Прикладные программы, непосредственно обеспечивающие выполнение необходимых пользователям работ: редактирование текстов, рисование, обработку информационных массивов и т.д.
2.Системные программы, выполняющие различные вспомогательные функции, например диагностика компьютера или резервное копирование информации.
3.Инструментальные системы (системы программирования), обеспечивающие создание новых программ.
Данные категории программ в свою очередь так – же разделяются на несколько разделов. Например, прикладные программы можно разделить по уровню сложности обработки информации и результатов. Для математических вычислений существует множество различных программных продуктов. Это известные всем пакеты MathCad, MathLab, Mathematika, Axum. Есть и более простые: всевозможные программы – калькуляторы (имитирующие работу обычного калькулятора). В среде Windows есть такая программа (Calc.exe), по аналогии с ней было сделано данное задание [ 1 ],[ 2 ].
АЛГОРИТМ
На рисунке 2.1 показана блок-схема работы калькулятора, с кратким описанием каждого блока.
Рисунок 2.1 – Блок-схема работы калькулятора
ПРОГРАММА
Интерфейс программы
На рисунке 3.1 показан конструктор формы, с компонентами ввода чисел, функций, операций с памятью и меню калькулятора.
Рисунок 3.1 – Интерфейс калькулятора
При нажатии пункта меню калькулятора «Справка» видим окно «About» с названием приложения, вариантом и именем автора – рисунок 3.2
Рисунок 3.2 – О программе
Текст программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls,Math,clipbrd,UnitAbout;
type
TJournal=record
x,y,z:real;
cod:char;
end;
TForm1 = class(TForm)
bmod: TButton;
open_brace: TButton;
close_brace: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button6: TButton;
B7: TButton;
B8: TButton;
B9: TButton;
B4: TButton;
B5: TButton;
B6: TButton;
B3: TButton;
B2: TButton;
B1: TButton;
B0: TButton;
Button24: TButton;
Button25: TButton;
Button26: TButton;
Button27: TButton;
Button28: TButton;
Button_Calculate: TButton;
Button30: TButton;
BSqrt: TButton;
Button1: TButton;
Edit1: TEdit;
RadioGroup1: TRadioGroup;
MainMenu1: TMainMenu;
N2: TMenuItem;
CtrlC1: TMenuItem;
CtrlV1: TMenuItem;
N_Spravka: TMenuItem;
N_invokespravka: TMenuItem;
N7: TMenuItem;
N_aboutprogram: TMenuItem;
N8: TMenuItem;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button22: TButton;
Button23: TButton;
ListBox1: TListBox;
Button19: TButton;
procedure B9Click(Sender: TObject); //процедуры ввода данных
procedure Button24Click(Sender: TObject);
procedure Button25Click(Sender: TObject);
procedure Button26Click(Sender: TObject);
procedure Button27Click(Sender: TObject);
procedure Button28Click(Sender: TObject);
procedure Button_CalculateClick(Sender: TObject);
procedure Button30Click(Sender: TObject);
procedure BSqrtClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure B0Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure open_braceClick(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure B1Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button20Click(Sender: TObject);
procedure close_braceClick(Sender: TObject);
procedure B2Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button22Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button23Click(Sender: TObject);
procedure B3Click(Sender: TObject);
procedure B4Click(Sender: TObject);
procedure B5Click(Sender: TObject);
procedure B6Click(Sender: TObject);
procedure B7Click(Sender: TObject);
procedure B8Click(Sender: TObject);
procedure CtrlC1Click(Sender: TObject);
procedure CtrlV1Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N_invokespravkaClick(Sender: TObject);
procedure N_aboutprogramClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
const
journal_max=1000;
var
Form1: TForm1;
code: char;
op1, y, z: real;
x1, y1, z1: Integer;
mem_str,journal_str:String;
journal_array:array[1..journal_max] of TJournal;
ji:Integer;
implementation
{$R *.dfm}
procedure TForm1.B9Click(Sender: TObject); //ввод данных
begin
Edit1.Text:=Edit1.Text+'9';
end;
procedure TForm1.Button24Click(Sender: TObject); //ввод запятой
begin
Edit1.Text:=Edit1.Text+',';
end;
procedure TForm1.Button25Click(Sender: TObject);
begin
if edit1.Text<>'' then op1:=strtofloat(edit1.text);
code:= '+';
Edit1.Clear;
end;
procedure TForm1.Button26Click(Sender: TObject);
begin
if edit1.Text<>'' then op1:=strtofloat(edit1.text);
code:= '-';
Edit1.Clear;
end;
procedure TForm1.Button27Click(Sender: TObject);
begin
if edit1.Text<>'' then op1:=strtofloat(edit1.text);
code:= '*';
Edit1.Clear;
end;
procedure TForm1.Button28Click(Sender: TObject);
begin
if edit1.Text<>'' then op1:=strtofloat(edit1.text);
code:= '/';
Edit1.Clear;
end;
procedure TForm1.Button_CalculateClick(Sender: TObject); //рассчет данных и вывод в журнал событий
begin
if edit1.Text<>'' then y:=strtofloat(edit1.text);
journal_array[ji].x:=op1;
journal_array[ji].y:=y;
journal_array[ji].cod:=code;
journal_str:=FloatToStr(op1);
journal_str:=journal_str+ code + FloatToStr(y);
ListBox1.Items.Add(journal_str);
case code of
'+': z:=op1+y;
'-': z:=op1-y;
'*': z:=op1*y;
'/': z:=op1/y;
'^': z:=Power(op1,y);
'[': z:=Trunc(op1) Mod Trunc(y);
']': z:=Trunc(op1) Div Trunc(y);
'{': z:=Power(op1,1/y);
end;
edit1.Text:=floattostr(z); // вывод в поле Edit1 значение переменной z
journal_array[ji].z:=z;
Inc(ji);
if ji=journal_max then ji:=1;
end;
procedure TForm1.Button30Click(Sender: TObject); //расчет обратного числа
begin
op1:= strtofloat(edit1.text);
z:=1/op1;
edit1.Clear; //очищаем поле
edit1.Text:=floattostr(z);
end;
procedure TForm1.BSqrtClick(Sender: TObject); //вычисление квадратного корня
begin
op1:= strtofloat(edit1.text);
z:=Power(op1,1/2);
edit1.Clear;
edit1.Text:=floattostr(z);
end; //завершение процедуры
procedure TForm1.Button2Click(Sender: TObject); //ввод данных
begin
op1:= strtofloat(edit1.text);
z:=(op1*(-1));
edit1.Clear;
edit1.Text:=floattostr(z);
end;
procedure TForm1.B0Click(Sender: TObject); //ввод данных
begin
Edit1.Text:=Edit1.Text+'0';
end;
procedure TForm1.Button6Click(Sender: TObject); //стирание всех данных,
op1:=0; // не занесенных в память
begin
y:=0;
z:=0;
Edit1.Clear;
end;
procedure TForm1.Button18Click(Sender: TObject); //стирание последнего
begin //введенного числа
Edit1.Text:='';
end;
procedure TForm1.Button17Click(Sender: TObject); //стирание знаков
var
st:string;
begin
st:=Edit1.Text;
delete(st,length(st),1);
Edit1.Text:=st;
if Edit1.Text='' then begin
Edit1.Text:='';
end;
end;
procedure TForm1.Button3Click(Sender: TObject); //вычисление котангенса
begin
if RadioGroup1.ItemIndex=0 then begin
op1:=(strtofloat(edit1.text)*3.141592653589793)/180;
z:=cos(op1)/sin(op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
if RadioGroup1.ItemIndex=1 then begin
op1:=strtofloat(edit1.text);
z:=cos(op1)/sin(op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
if RadioGroup1.ItemIndex=2 then begin
op1:=strtofloat(edit1.text);
z:=cos(gradtorad(op1))/sin(gradtorad(op1));
edit1.Clear;
edit1.Text:=floattostr(z);
end;
end;
procedure TForm1.Button4Click(Sender: TObject); //возведение в квадрат числа
begin
op1:= strtofloat(edit1.text);
z:=Power(op1,2);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
procedure TForm1.Button1Click(Sender: TObject); //возведение в степень числа
begin
op1:= strtofloat(edit1.text);
code:= '^';
edit1.Clear;
end;
procedure TForm1.open_braceClick(Sender: TObject);//открытие скобок
begin
op1:= strtofloat(edit1.text);
code:= '{';
edit1.Clear;
end;
procedure TForm1.Button13Click(Sender: TObject); // вызов числа из памяти
begin
mem_str:='';
mem_str:=Edit1.Text;
end;
procedure TForm1.Button5Click(Sender: TObject); //регистр последнего результата
i:Integer; //вычеслений
result:Real;
begin
result:=1;
op1:=strtofloat(edit1.text);
if (Trunc(op1) < 0) then begin
Edit1.Text:='Недопустимый ввод';
end
else if (Trunc(op1) = 0) then begin
Edit1.Text:='1';
end
else begin
for i:= 1 to Trunc(op1) do begin
result:= result * i;
end;
Edit1.Text:=FloatToStr(result);
end;
end;
procedure TForm1.Button7Click(Sender: TObject); //вычисление десятичного
begin //логарифма
op1:= strtofloat(edit1.text);
z:=log10(op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
procedure TForm1.B1Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'1';
end;
procedure TForm1.Button8Click(Sender: TObject);//вычисление натурального
begin //логарифма
op1:=strtofloat(edit1.text);
z:=ln(op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
procedure TForm1.Button14Click(Sender: TObject); //занести отображаемое
begin //число в память
if (mem_str<>'') then Edit1.Text:=mem_str else Edit1.Text:='';
end;
procedure TForm1.Button9Click(Sender: TObject); // вывод числа Pi
begin
edit1.Text:='3,141592653589793';
end;
procedure TForm1.Button10Click(Sender: TObject); //вычисление синуса
Var
rcs:Real;
begin
if RadioGroup1.ItemIndex=0 then begin
op1:=(strtofloat(edit1.text)*3.141592653589793)/180;
z:=sin(op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
if RadioGroup1.ItemIndex=1 then begin
op1:=strtofloat(edit1.text);
z:=sin(op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
if RadioGroup1.ItemIndex=2 then begin
op1:=strtofloat(edit1.text);
z:=sin(gradtorad(op1));
edit1.Clear;
edit1.Text:=floattostr(z);
end;
journal_array[ji].x:=op1;
journal_array[ji].y:=0;
journal_array[ji].cod:='0';
journal_array[ji].z:=z;
journal_str:=FloatToStr(op1);
journal_str:='sin('+journal_str+')';
ListBox1.Items.Add(journal_str);
Inc(ji);
if ji=journal_max then ji:=1;
end;
procedure TForm1.Button11Click(Sender: TObject); //вычисление косинуса
begin
if RadioGroup1.ItemIndex=0 then begin
op1:=(strtofloat(edit1.text)*3.141592653589793)/180;
z:=cos(op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
if RadioGroup1.ItemIndex=1 then begin
op1:=strtofloat(edit1.text);
z:=cos(op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
if RadioGroup1.ItemIndex=2 then begin
op1:=strtofloat(edit1.text);
z:=cos(gradtorad(op1));
edit1.Clear;
edit1.Text:=floattostr(z);
end;
journal_array[ji].x:=op1;
journal_array[ji].y:=0;
journal_array[ji].cod:='0';
journal_array[ji].z:=z;
journal_str:=FloatToStr(op1);
journal_str:='cos('+journal_str+')';
ListBox1.Items.Add(journal_str);
Inc(ji);
if ji=journal_max then ji:=1;
end;
procedure TForm1.Button19Click(Sender: TObject); // вычисление тангенса
begin
if RadioGroup1.ItemIndex=0 then begin
op1:=(strtofloat(edit1.text)*3.141592653589793)/180;
z:=sin(op1)/cos(op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
if RadioGroup1.ItemIndex=1 then begin
op1:=strtofloat(edit1.text);
z:=sin(op1)/cos(op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
if RadioGroup1.ItemIndex=2 then begin
op1:=strtofloat(edit1.text);
z:=sin(gradtorad(op1))/cos(gradtorad(op1));
edit1.Clear;
edit1.Text:=floattostr(z);
end;
journal_array[ji].x:=op1;
journal_array[ji].y:=0;
journal_array[ji].cod:='0';
journal_array[ji].z:=z;
journal_str:=FloatToStr(op1);
journal_str:='tan('+journal_str+')';
ListBox1.Items.Add(journal_str);
Inc(ji);
if ji=journal_max then ji:=1;
end;
procedure TForm1.close_braceClick(Sender: TObject); //закрытие скобок
begin
op1:= strtofloat(edit1.text);
code:= '}';
edit1.Clear;
end;
procedure TForm1.B2Click(Sender: TObject); //ввод числа 2
begin
Edit1.Text:=Edit1.Text+'2';
end;
procedure TForm1.Button21Click(Sender: TObject); //вывод числа Эйлера
Var
e:Real;
begin
e:=2.7182818284;
op1:= strtofloat(edit1.text);
z:=Power(e,op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
procedure TForm1.Button22Click(Sender: TObject); //Возведение в степень по основанию 10
begin
op1:= strtofloat(edit1.text);
z:=Power(10,op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
procedure TForm1.Button12Click(Sender: TObject); //очистить память
begin
mem_str:='';
end;
procedure TForm1.Button23Click(Sender: TObject); //возвращает дробную часть числа
с плавающей запятой
begin
op1:= strtofloat(edit1.text);
z:=Frac(op1);
edit1.Clear;
edit1.Text:=floattostr(z);
end;
procedure TForm1.B3Click(Sender: TObject); //ввод числа 3
begin
Edit1.Text:=Edit1.Text+'3';
end;
procedure TForm1.B4Click(Sender: TObject); //ввод числа 4
begin
Edit1.Text:=Edit1.Text+'4';
end;
procedure TForm1.B5Click(Sender: TObject); //ввод числа 5
begin
Edit1.Text:=Edit1.Text+'5';
end;
procedure TForm1.B6Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'6';
end;
procedure TForm1.B7Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'7';
end;
procedure TForm1.B8Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'8';
end;
procedure TForm1.CtrlC1Click(Sender: TObject); //копировать
begin
Edit1.SelectAll;
Edit1.CopyToClipboard;
end;
procedure TForm1.CtrlV1Click(Sender: TObject); //вставить
begin
Edit1.SelectAll;
Edit1.PasteFromClipboard;
end;
procedure TForm1.N8Click(Sender: TObject); //выход из приложения
begin
Form1.Close;
end;
procedure TForm1.N_invokespravkaClick(Sender: TObject); //вызов справки
begin
WinExec('hh.exe calc.htm',SW_SHOW);
end;
procedure TForm1.N_aboutprogramClick(Sender: TObject); //вывод окна про
программу
begin
AboutBox.Show;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ji:=1;
end;
procedure TForm1.ListBox1Click(Sender: TObject); //журнал событий
var
ind:Integer;
begin
ind:=(ListBox1.ItemIndex);
Inc(ind);
z:=journal_array[ind].z;
Edit1.Text:=FloatToStr(z);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); //ввод с клавиату
begin
if key='+' then begin Button25Click(Sender);Edit1.Clear; end;
if key='-' then begin Button26Click(Sender);Edit1.Clear; end;
if key='*' then begin Button27Click(Sender);Edit1.Clear; end;
if key='/' then begin Button28Click(Sender);Edit1.Clear; end;
if key='=' then Button_CalculateClick(Sender);
end;
end.
Описание текста программы
Список переменных использованных в программе с кратким описанием:
code: char; Тип операции
op1, y, z: real; Первый и второй операнд, и результат.
type
TJournal=record
x,y,z:real;
cod:char;
end; Тип записи журнала событий
mem_str,journal_str:String; Строка записываемая в журнал событий
journal_array:array[1..journal_max] of TJournal; Массив куда записываются ход
вычислений.
ji:Integer; Индекс в массиве журнала.
Список процедур и функций, использованных в программе с кратким
описанием:Были использованы обработчики событий визуальных компонент и
стандартные функции с модулей Math и clipbrd.
При каждом вычислении результат сохраняется в структуре массива
journal_array и в ListBox появляется новая запись при щелчке на запись в
журнале событий в поле ввода появляется результат предыдущих вычислений.
При нажатии на кнопку MR перезаписывается содержимое переменной m, и
устанавливается M в Panel1. При нажатии на кнопку MC обнуляется
содержимое переменной m и сбрасывается содержимое Panel1.caption.
При нажатии F1 или выбора с меню справка -> вызов справки вызывается
справка в формате chm созданной с помощю программы HTML HELP
Workshop.
На рисунке 3.3 показано окно вызова справки.
Рисунок 3.3 – Справка калькулятора
РЕЗУЛЬТАТЫ ТЕСТИРОВАНИЯ И ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ
Результаты тестирования
На рисунке 4.1 показано результаты тестирования с показом журнала записей и результатом.
Введем 35, умножим на 50, получаем 1750.
Делим на 105, получаем 16,6
Вычисляем синус в радианах, получаем -0,818.
Вычитаем 100, получаем -100,818447253158
Рисунок 4.1 – Результаты тестирования
Инструкция пользователя
Данная программа предназначена для выполнения тех же действий, что и обычный калькулятор. Она выполняетосновные арифметические действия, такие, как сложение и вычитание, плюс функции научного калькулятора, такие как тригонометрические функции, логарифмы, степени ит. Также есть возможность записи хода вычислений в журнал событий. Нажимая на каждое событие в ListBox, мы получаем результаты предыдущих вычислений.
Можно производить вычисления, нажимая на кнопки калькулятора.Или вводя символы с клавиатуры. Кроме того, доступен ввод цифр и действий с цифровой клавиатуры, когда нажата клавиша NUMLOCK.
Выполнение простых вычислений:
Введите первое число;
Нажмите кнопку + (сложение), - (вычитание), * (умножение) или / (деление);
Введите следующее число;
Введите необходимый оператор;
Введите остальные числа и операторы;
Нажмите кнопку =.
Работа с памятью
Чтобы занести отображаемое число в память, нажмите кнопку MS.
Чтобы вызвать число из памяти, нажмите кнопку MR.
Чтобы очистить память, нажмите кнопку MC.
Чтобы сложить отображаемое число с числом, хранящимся в памяти, нажмите
кнопку M+. Чтобы вызвать результат, нажмите кнопку MR.
После сохранения числа над кнопками памяти на панели калькулятора появится индикатор M. Каждое новое число, занесенное в память, заменяет предыдущее.
Горячие клавиши:
1. F1 – Вызов справки
2. F10 – Выход из программы
ВЫВОДЫ
Был написан калькулятор, выполняющий действия, что и обычный калькулятор только с возможностью записи в журнал событий, была написана справка помощь для калькулятора. Отработаны и закреплены на практике навыки работы в среде программирования Delphi. Простота, скорость и эффективность Delphi объясняют ее популярность. Delphi имеет один из самых быстрых компиляторов, порождающий, тем не менее, весьма и весьма неплохой объектный код. Есть и другие достоинства: простота изучения Object Pascal; облегчающие жизнь нововведения - вроде свойств (properties); программы, написанные на Delphi, не требуется снабжать дополнительными библиотеками (в отличие от связки C++/MFC) [ 3 ]. В самом деле, VCL предоставляет удобный, легко расширяемый объектно-ориентированный интерфейс к Windows, что ни в коей мере не мешает программисту опускаться в самые глубины Windows API. Создателям оригинальных компонентов это приходится делать довольно часто, в отличие от "просто программистов". Как было сказано выше, модель программирования в Delphi - компонентная, что позволяет пользоваться компонентами, написанными другими разработчиками, даже не имея их исходного кода и уж подавно не изучая его. В Интернете есть огромное количество компонентов, значительная часть которых распространяется бесплатно. Применение компонентной модели приводит к тому, что довольно многое в поведении объектов программировать не нужно вообще, и многое, на что в других средах ушли бы недели, можно сделать за часы или даже минуты. Оно и понятно - это ведь RAD-среда. К достоинствам можно отнести очень быстрый браузер классов и мгновенный вывод подсказки автозавершения кода (code completion) [ 4 ]. Если кратко - может все. Конечно, Object Pascal накладывает определенные ограничения, но для тех вещей, для которых ее писали, Delphi подходит практически оптимально.
ИСПОЛЬЗОВАННАЯ ЛИТЕРАТУРА
1. Культин Н. Delphi 6. Программирование на Object Pascal. – СПб.:БХВ-Петербург,2002., – 356с.
2. Фаранов В.В. Delphi 6. Учебный курс. –М.: «Издательство Молгачева С.В.», 2001., – 150с.
3. Культин Н. Основы программирования в Delphi 7: Самоучитель. - СПб.:БХВ-Петербург,2003., – 231с.
4. Бакнелл Д.М. Фундаментальные алгоритмы и структуры данных в Delphi. СПб.: Диасофт ЮП. 2003., – 566с.
