Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Реферат: Вращение треугольника

Название: Вращение треугольника
Раздел: Рефераты по информатике, программированию
Тип: реферат Добавлен 20:47:45 31 августа 2005 Похожие работы
Просмотров: 299 Комментариев: 3 Оценило: 1 человек Средний балл: 5 Оценка: неизвестно     Скачать

Содержание

Описание программы.....................................

2.1 Общие сведения....................................................

2.2 Используемые технические cредства

2.3 Инструкция по выполнению...................... 8

2.4 Входные и выходные данные....................

2.5 Испытание программы.................................... 9

Заключение.......................................................................

Список литературы...................................................

ПРИЛОЖЕНИЕ 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).

Интерфейс программы представлен на английском языке ввиду временного отсутсвия дополнительных русских шрифтов.

Возможные действия в процессе выполнения программы:

<ENTER> - остановить/продолжить вращение треугольника.

<TAB> - изменить направление вращения.

<Up/Down>- c помощью клавиш вверх/вниз можно менять скорость вращения треугольника.

<ESC> - выход из программы.

Программа 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, 'ƒƒƒƒƒƒƒƒƒƒƒƒƒ');

SetColor(White);

OutTextXY(90,10,Str2(100-Time2W));

End;

kbDown : Begin

if Time2W < 100 Then Time2W := Time2W + 1;

SetColor(Black);

OutTextXY(85,10,'ƒƒƒƒƒƒƒƒƒƒƒ');

SetColor(White);

OutTextXY(90,10,Str2(102-Time2W));

End;

kbEnter : Begin

SetColor(LightRed);

OutTextXY(1,30, 'Freeze');

ReadKey;

SetColor(Black);

OutTextXY(1,30, 'ƒƒƒƒƒƒƒƒƒƒƒƒƒ');

End;

kbTab : Begin

K := -K;

End;

End;

Angle := 0.1;

Draw(White);

Delay(Time2W);

Draw(Black);

for A := 1 to 3 do

begin

Xn := Round(ctr[1][a] * cos(Angle) + K * ctr[2][a] * sin(Angle));

Yn := Round(-K * ctr[1][a] * sin(Angle) + ctr[2][a] * cos(Angle));

Ctr[1][a] := Xn; Ctr[2][a] := Yn;

end;

Draw(White);

DrawText(105,60,Str2(x_c+ctr[1][1]));

DrawText(105,75,Str2(x_c+ctr[2][1]));

DrawText(105,90,Str2(x_c+ctr[1][2]));

DrawText(155,60,Str2(x_c+ctr[2][2]));

DrawText(155,75,Str2(x_c+ctr[1][3]));

DrawText(155,90,Str2(x_c+ctr[2][3]));

end;

begin

RegisterBgiDriver(@vgaDrv);

K:=-1;

Time2W := 15;

SetCenter(320,240);

Angle := 0.1;

grDriver := Detect;

grMode:=VGAHi; {video mode VGA 640x480x16colors}

InitGraph(grDriver, grMode,'');

ErrCode := GraphResult;

if ErrCode = grOk then

begin

OutTextXY(1,10,'Speed : '+Str2(100-Time2W));

OutTextXY(10,60,' Corn. 1 X Y');

OutTextXY(10,75,' Corn. 2 X Y');

OutTextXY(10,90,' Corn. 3 X Y');

SetTextStyle(TriplexFont, HorizDir, 2);

OutTextXY(10,425,'ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ');

OutTextXY(10,415,'ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ');

SetColor(Black);

OutTextXY(10,420,' -Exit -Freeze '+

' -Speed -Direction ');

SetColor(LightRed);

OutTextXY(10,420,' ESC Enter Up/Down TAB ');

SetTextStyle(DefaultFont, HorizDir, 1);

Repeat ShowD Until Event.KeyCode = kbEsc;

CloseGraph;

end

else Writeln('Graphics error : ', GraphErrorMsg(ErrCode));

end.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений22:04:01 18 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
15:40:00 24 ноября 2015
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
13:21:15 24 ноября 2015

Работы, похожие на Реферат: Вращение треугольника

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

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



Результаты(151310)
Комментарии (1844)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru