В результате выполнения данной курсовой работы была разработана программа "Turbo Pascal".

В результате исследования были выявлены следующие недостатки полученного программного продукта:

Запуск выполняется в несколько раз медленнее запуска обычного приложения, поскольку требует загрузки в оперативную память компонентов виртуальной машины и внешних библиотек. Работает только под Windows.

Помимо недостатков, есть и достоинства у этого программного продукта:

Качественная среда разработки, включающая мощный отладчик. Удачная система помощи - язык можно изучить лишь по справочным статьям, без посторонних книг. Высокая скорость компиляции, высокая скорость выполнения откомпилированных программ. Качественно реализованное объединение паскаля и ассемблера.

В результате учета всех сделанных выше замечаний возможно улучшение созданного программного продукта, на которое потребуется минимум изменений исходного кода программы.

Список использованной литературы

Руководство пользователю

Программа "Turbo Pascal" предназначена для обучения программированию на языке Паскаль и ориентирована на школьников и студентов младших курсов. Эта система призвана осуществить плавный переход от простейших программ к модульному, объектно-ориентированному, событийному и компонентному программированию. Многие концепции в Turbo Pascal упрощены, что позволяет использовать их на более ранних этапах обучения. Например, модуль графики обходится без объектов, хотя его возможности практически совпадают с графическими возможностями Delphi.

Установка программы:

1. Запустить файл setup. exe.

2. В появившемся окне нажмите кнопку Next.

Рис. 13. Установка программы.

В следующем окне укажите место установки.

Рис. 14. Выбор места установки.

Нажмите кнопку Next, инсталляция "Turbo Pascal"завершена. Переходим в каталог, куда вы установили "Turbo Pascal" и запускаем файл TPX. EXE.

Рис. 15. Создание нового проекта или открытие старого.

Главное меню содержит следующие разделы:

File. Позволяет выполнять все основные действия с файлами (создание, открытие, сохранение)

Edit. Позволяет выполнять все основные операции редактирования текста (копирование, вставка, удаление фрагментов, отмена последних изменений)

Search. Позволяет осуществлять поиск и замену фрагментов текста.

Run. Позволяет запускать программу, в том числе в пошаговом режиме.

Compile. Позволяет осуществлять компиляцию программы.

Debug. Содержит команды, облегчающие процесс поиска ошибок в программе.

Tools. Содержит некоторые дополнительные средства Турбо Паскаль.

Options. Позволяет установить необходимые для работы параметры компилятора и среды разработчика.

Window. Позволяет выполнять все основные операции с окнами (открывать, закрывать, перемещать, изменять размер).

Help. Позволяет получить имеющуюся в системе справочную информацию.

Для запуска программы в текущем окне редактора следует нажать клавишу ALT+F9 или кнопку Run.

Программа вначале компилируется во внутреннее представление, после чего, если не найдены ошибки, программа начинает выполняться. При выполнении программы кнопка запуска программы становится неактивной. Выполнение программы можно в любой момент прервать нажатием комбинации клавиш Ctrl-F2.

Рис. 16. Компиляция и вывод результата.

Режим пошагового выполнения предназначен для отладки программы. Для выполнения одного шага (одной строки) программы следует нажать клавишу F8. Прервать программу, находящуюся в режиме пошагового выполнения, можно с помощью комбинации клавиш Ctrl-F2.

В случае неправильного ввода кода, при компиляции программа выдаст сообщение: "Ошибка" и установит курсор на строку с ошибкой.

Описание ошибок, которые могут возникнуть при работе можно посмотреть во вкладке Help.

Приложение B

Руководство системного программиста

Программа "Turbo Pascal" предназначена для обучения программированию на языке Паскаль и ориентирована на школьников и студентов младших курсов. Эта система призвана осуществить плавный переход от простейших программ к модульному, объектно-ориентированному, событийному и компонентному программированию.

Программа "Turbo Pascal" предназначена для использования под операционной системой семейства Win32. Минимальные требования к аппаратной части:

Тактовая частота процессора - 200 MHz

Объем оперативной памяти - 7 Mb

Объем свободного дискового пространства - 11 Mb.

В "Turbo Pascal" выделяют три области экрана: строка меню, рабочая область, строка состояния.

В рабочей области имеется возможность открывать различные окна программы - окна редактируемого текста, окна помощи, отладки и настройки.

Строка состояния содержит перечень клавиш или комбинаций клавиш быстрого управления, которые наиболее часто используются в данной ситуации, а также то действие, которое выполняется или может выполняться в данный момент в среде.

Основное меню содержит следующие поля:

работа с файлами (File);

редактирование (Edit);

поиск (Search);

выполнение (Run);

компиляция (Compile);

отладка (Debug);

инструментальные средства (Tools);

параметры (Options);

окна (Window);

помощь (Help).

Работа данной программы описывает схема (рис. 1).

Настройка программы

Для корректной работы программу необходимо установить на диск c: \Program Files\ затем перейти в каталог с установленной программой и запусить файл TPX. EXE

Проверка программы

Проверка программы осуществляется путем ее запуска, ввода кода и компиляции.

Рис. 17. Проверка работоспособности.

Рис. 18. Вывод результата.

Приложение C

Листинг модулей программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Spin, StdCtrls, ComCtrls, ToolWin, Menus, ExtCtrls,XPMan,

ImgList;

type

TForm1 = class (TForm)

mm1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

stat1: TStatusBar;

tlb1: TToolBar;

btn1: TToolButton;

btn3: TToolButton;

btn5: TToolButton;

btn6: TToolButton;

btn7: TToolButton;

btn9: TToolButton;

cbb1: TComboBox;

btn2: TToolButton;

btn4: TToolButton;

btn8: TToolButton;

redt1: TRichEdit;

btn11: TToolButton;

dlgOpen1: TOpenDialog;

dlgSave1: TSaveDialog;

N4: TMenuItem;

dlgFind1: TFindDialog;

dlgReplace1: TReplaceDialog;

dlgFont1: TFontDialog;

cbb2: TComboBox;

dlgColor1: TColorDialog;

il1: TImageList;

btn10: TToolButton;

procedure N3Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure dlgFind1Find (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure dlgReplace1Replace (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure N19Click (Sender: TObject);

procedure cbb2Click (Sender: TObject);

procedure cbb1Click (Sender: TObject);

procedure N20Click (Sender: TObject);

procedure N23Click (Sender: TObject);

procedure btn3Click (Sender: TObject);

procedure btn1Click (Sender: TObject);

procedure btn4Click (Sender: TObject);

procedure btn5Click (Sender: TObject);

procedure btn2Click (Sender: TObject);

procedure btn7Click (Sender: TObject);

procedure btn9Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm1. N3Click (Sender: TObject);

begin

if dlgOpen1. Execute

then

redt1. Lines. LoadFromFile (dlgOpen1. FileName);

stat1. Panels [0]. Text: =dlgOpen1. FileName;

end;

procedure TForm1. N5Click (Sender: TObject);

begin

if dlgSave1. Execute

then

redt1. Lines. SaveToFile (dlgSave1. FileName);

stat1. Panels [0]. Text: =dlgSave1. FileName;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

redt1. Lines. SaveToFile (Form1. Text+'. rtf');

end;

procedure TForm1. N2Click (Sender: TObject);

begin

Form1. Text: ='Безымянный';

redt1. Lines. Clear;

stat1. Panels [0]. Text: ='';

end;

procedure TForm1. N6Click (Sender: TObject);

begin

Close;

end;

procedure TForm1. N10Click (Sender: TObject);

begin

redt1. CopyToClipboard;

end;

procedure TForm1. N9Click (Sender: TObject);

begin

redt1. CutToClipboard;

end;

procedure TForm1. N11Click (Sender: TObject);

begin

redt1. PasteFromClipboard;

end;

procedure TForm1. N8Click (Sender: TObject);

begin

redt1. Undo;

end;

procedure TForm1. N12Click (Sender: TObject);

begin

redt1. ClearSelection;

end;

procedure TForm1. N13Click (Sender: TObject);

begin

dlgFind1. Execute;

end;

procedure TForm1. dlgFind1Find (Sender: TObject);

begin

if Pos (dlgFind1. FindText,redt1. Text) <>0 then

begin

redt1. HideSelection: =false;

redt1. SelStart: =Pos (dlgFind1. FindText,redt1. Text) - 1;

redt1. SelLength: =Length (dlgFind1. FindText);

end;

end;

procedure TForm1. N14Click (Sender: TObject);

begin

dlgReplace1. Execute;

end;

procedure TForm1. dlgReplace1Replace (Sender: TObject);

begin

redt1. HideSelection: =True;

if Pos (dlgReplace1. FindText,redt1. Text) <>0 then

begin

redt1. SelStart: =Pos (dlgReplace1. FindText,redt1. Text);

redt1. SelLength: =Length (dlgReplace1. FindText);

redt1. SelText: =dlgReplace1. ReplaceText;

end;

redt1. HideSelection: =false;

end;

procedure TForm1. N16Click (Sender: TObject);

begin

redt1. Font. Name: ='Arial';

redt1. Font. Size: =10;

redt1. Font. Color: =clBlack;

redt1. Color: =clWhite;

end;

procedure TForm1. N19Click (Sender: TObject);

begin

if dlgFont1. Execute then

redt1. Font: =dlgFont1. Font;

end;

procedure TForm1. cbb2Click (Sender: TObject);

begin

if cbb2. ItemIndex=0 then redt1. Font. Name: ='Arial';

if cbb2. ItemIndex=1 then redt1. Font. Name: ='Comic Sans MS';

if cbb2. ItemIndex=2 then redt1. Font. Name: ='MS Sans Serif';

if cbb2. ItemIndex=3 then redt1. Font. Name: ='Txt';

if cbb2. ItemIndex=4 then redt1. Font. Name: ='System';

end;

procedure TForm1. cbb1Click (Sender: TObject);

begin

redt1. Font. Size: =cbb1. ItemIndex;

end;

procedure TForm1. N20Click (Sender: TObject);

begin

if dlgColor1. Execute then

redt1. Color: =dlgColor1. Color;

end;

procedure TForm1. N23Click (Sender: TObject);

begin

aboutbox. showmodal;

end;

procedure TForm1. btn3Click (Sender: TObject);

begin

Form1. Text: ='Безымянный';

redt1. Lines. Clear;

stat1. Panels [0]. Text: ='';

end;

procedure TForm1. btn1Click (Sender: TObject);

begin

if dlgSave1. Execute

then

redt1. Lines. SaveToFile (dlgSave1. FileName);

stat1. Panels [0]. Text: =dlgSave1. FileName;

end;

procedure TForm1. btn4Click (Sender: TObject);

begin

if dlgOpen1. Execute

then

redt1. Lines. LoadFromFile (dlgOpen1. FileName);

stat1. Panels [0]. Text: =dlgOpen1. FileName;

end;

procedure TForm1. btn5Click (Sender: TObject);

begin

if dlgFont1. Execute then

redt1. Font: =dlgFont1. Font;

end;

procedure TForm1. btn2Click (Sender: TObject);

begin

if dlgColor1. Execute then

redt1. Color: =dlgColor1. Color;

end;

procedure TForm1. btn7Click (Sender: TObject);

begin

redt1. Font. Name: ='Arial';

redt1. Font. Size: =10;

redt1. Font. Color: =clBlack;

redt1. Color: =clWhite;

end;

procedure TForm1. btn9Click (Sender: TObject);

begin

aboutbox. showmodal;

end;

end.

Размещено на Allbest.ru