Программированиеи компьютеры /
←предыдущая следующая→
1 2
Содержание
ОПИСАНИЕ ПРОГРАММЫ 4
2.1 ОБЩИЕ СВЕДЕНИЯ 5
2.2 ИСПОЛЬЗУЕМЫЕ ТЕХНИЧЕСКИЕ CРЕДСТВА 7
2.3 ИНСТРУКЦИЯ ПО ВЫПОЛНЕНИЮ 8
2.4 ВХОДНЫЕ И ВЫХОДНЫЕ ДАННЫЕ 9
2.5 ИСПЫТАНИЕ ПРОГРАММЫ 9
ЗАКЛЮЧЕНИЕ 9
СПИСОК ЛИТЕРАТУРЫ 11
ПРИЛОЖЕНИЕ 1 (ТЕКСТ ПРОГРАММЫ)...........12
Введение
Язык Turbo-Pascal - один из самых распро-страненных языков программирования компь-ютеров. К важным достоинствам языка Turbo-Pascal относится небольшой размер компиля-тора, высокая скорость трансляции программ, компиляции и их компоновки. Кроме того, удобство и высокое качество дизайна диалого-вой оболочки, делают написание и отладку программ наиболее удобным в сравнении с альтернативными языками нового поколения.
Данная курсовая работа представляет разработку программного продукта с ис-пользованием системного языка нового уровня - Turbo-Pascal. Эта программа по-зволяет любому пользователю ( с любым уровнем компьютерной грамотности ) производить необходимые расчеты с вы-сокой скоростью и достаточным уровнем сервиса.
1. Постановка задачи
Темой данного курсового проекта, кото-рый был выполнен в ходе изучения курса “Основы программирования и алгоритми-ческие языки”, - разработка программы для работы в графическом режиме с пра-вильным треугольником, используя эле-менты пересчета координат его вершин при вращении треугольника вокруг опи-санной около него окружности .
Условие задачи :
Дан равносторонний треугольник. Требу-ется вращать его в плоскости экрана во-круг центра описанной вокруг него ок-ружности.
2. Разработка алгоритма
Алгоритм работы программы имеет раз-ветвленную структуру.
Программа состоит из трех основных частей :
1. Описание переменных используемых при решении поставленной задачи.
2. Описание процедур при помощи кото-рых была реализована данная программа.
3. Тело главной программы, являющейся важнейшей составной частью решения поставленной задачи.
Процедурная часть программы состоит из набора процедур предназначенных для более оптимальной реализации разрабо-танного метода решения задачи.
В программе используются стандартные модули языка Turbo-Pascal с набором процедур, необходимых для выполнения работы.
При составлении процедур были исполь-зованы классические методы просчета ко-ординат вершин треугольника, вывода ре-зультата на экран.
В программу также были включены функции предоставляющие пользовате-лю некоторый сервис и удобство при ра-боте ( использование модулей Turbo-Vision 2.0 for Borland Pascal).
Описание программы
2.1 Общие сведения
Данная программа предназначена для
визуального отображения вращающегося тре-угольника в плоскости экрана.
Требования к Turbo-Pascal :
Наличие модулей Crt, Graph, System, Drivers. Модуль System является автоматически под-ключаемым и хранит все процедуры и функ-ции стандартного Паскаля, а также встроен-ные процедуры и функции Турбо Паскаля, модуль Crt содержит процедуры и функции, обеспечивающие управление текстовым ре-жимом работы экрана. С помощью входящих в модуль подпрограмм можно перемещать курсор в произвольную позицию экрана, ме-нять цвет выводимых символов и окружаю-щего фона, создавать и удалять окна. Кроме того, в модуле содержатся процедуры управления звуком и процедуры работы с клавиатурой. Сервис при работе в графиче-ском режиме предоставлен в модуле Graph (прорисовка линий, отображение текста в графическом режиме, установка нужного ви-деорежима и шрифта, изменение аттрибута линий и текста). Модуль Drivers (точнее объект TEvent ) использовался с целью уп-рощения обработки событий, поступивших с клавиатуры.
Требования к системе :
Наличие операционной системы MS-DOS версии 3.xx и выше или OS/2 Warp 3.0 & FullScreen DOS. Программа не требует ни высокой скорости процессора, ни большого объема оперативной памяти и места на дис-ке, ни наличия манипулятора типа Mouse. В комплекте с исполняемым файлом находится файл со шрифтом TRIP.CHR, необходимый для корректной работы программы.
2.2 Используемые технические средства
При отладке программы был использован компьютер типа IBM Pentium 120 Triton & PipeLine Cashe 256 / 16Mb RAM, в состав ко-торой входит :
монитор 17’’ с адаптером SVGA S3TRIO Trio64 764;
клавиатура 105 клавиш;
FDD и ;
HDD Cuantum FireBall 1.08Gb;
2.3 Инструкция по выполнению
Для вызова программы необходимо убе-диться, что файлы CURSPROJ.EXE и TRIP.CHR находятся в одной директории. После проверки необходимо запустить файл CURSPROJ.EXE или в среде Паскаля отком-полировать файл CURSPROJ.PAS (в коплекте прилагается файл EGAVGA.OBJ , необходи-мый для линковки в основную программу файла EGAVGA.BGI).
Интерфейс программы представлен на анг-лийском языке ввиду временного отсутсвия дополнительных русских шрифтов.
Возможные действия в процессе выпол-нения программы:
- остановить/продолжить вращение треугольника.
- изменить направление вращения.
- c помощью клавиш вверх/вниз можно менять скорость вращения треугольника.
- выход из программы.
Программа CURSPROJ.PAS имеет размер 3772 байт или 120 строк.
Выполняемый файл CURSPROJ.EXE име-ет размер 24348 байт.
2.4 Входные и выходные данные
Входными данными для данной програм-мы является двумерный массив, содержащий координаты вершин равностороннего тре-угольника.
Выходные данные : Визуальное отобра-жение вращения треугольника и текущих ко-ординат каждой из вершин.
2.5 Испытание программы
Программа была испытана для всех ва-риантов ввода-вывода и различных типов видеоадаптеров, что исключает возникнове-ние фатальных сбоев при работе программы.
Заключение
Данная курсовая работа представляет собой программный продукт, предназначенный для ра-боты в графическом режиме. Программный про-дукт написан на современном языке Turbo-Pascal, который позволил наиболее просто представить эту работу.
В ходе выполнения курсового проекта я ознако-мился с новыми приемами программирования и особенностями языка Turbo-Pascal что позволило разработать данный программный продукт.
Список литературы
1
2
3. Епанешников А.М., Епанешников В.А., Программирование в среде TURBO PASCAL 7.0.-Москва:”Диалог-МИФИ”,1995
Зуев Е.А., Система программирования Turbo Pascal.-Москва: СП “Диалог”,1992
Довгаль С.И., Сбинтев А.И., Персональые ЭВМ: TURBO PASCAL V7.0, Обектное программирование.-Киев: “Двгаль”,1995
Приложение 1
Program CursProj;
Uses graph,crt, Drivers;
const
Ctr : Array [1 .. 2 , 1 .. 3] of Integer =((-77,0 , 77 ),
(-50,91,-50));
Var x_c , y_c : Integer;
Time2W : Byte;
Event : TEvent;
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
xn, yn, a : Integer;
Angle : Real;
K : ShortInt;
Procedure VgaDrv; external;
{$L EGAVGA.OBJ }
procedure SetCenter(x_nc , y_nc : integer);
begin
x_c := x_nc ; y_c := y_nc;
end;
Function Str2(Num:Integer):String;
Type S = String;
var P : ^S;
Begin
New(P); Str(Num,P^); Str2 := P^; Dispose(P);
End;
procedure draw(color:integer);
begin
SetColor(Color);
Line(x_c+ctr[1][1],y_c+ctr[2][1],x_c+ctr[1][2],y_c+ctr[2][2]);
Line(x_c+ctr[1][2],y_c+ctr[2][2],x_c+ctr[1][3],y_c+ctr[2][3]);
Line(x_c+ctr[1][3],y_c+ctr[2][3],x_c+ctr[1][1],y_c+ctr[2][1]);
end;
procedure DrawText(XX,YY : Integer; Text : String);
Begin
SetColor(Black);
OutTextXY(XX,YY,'');
SetColor(White);
OutTextXY(XX,YY,Text);
End;
procedure ShowD;
Begin
GetKeyEvent(Event);
If Event.What = evKeyDown Then
Case Event.KeyCode of
kbUp : Begin
if Time2W > 2 Then Time2W := Time2W - 1;
SetColor(Black);
OutTextXY(85,10, '');
←предыдущая следующая→
1 2