![]() |
|
сделать стартовой | добавить в избранное |
![]() |
Вращение треугольника |
Содержание Введение2 В программу также были включены функции предоставляющие пользователю некоторый сервис и удобство при работе ( использование модулей urbo-Visio 2.0 for Borla d Pascal). 5 Описание программы5 Заключение10 Список литературы11 Введение Язык urbo-Pascal - один из самых распространенных языков программирования компьютеров. К важным достоинствам языка urbo-Pascal относится небольшой размер компилятора, высокая скорость трансляции программ, компиляции и их компоновки. Кроме того, удобство и высокое качество дизайна диалоговой оболочки, делают написание и отладку программ наиболее удобным в сравнении с альтернативными языками нового поколения. Данная курсовая работа представляет разработку программного продукта с использованием системного языка нового уровня - urbo-Pascal. Эта программа позволяет любому пользователю ( с любым уровнем компьютерной грамотности ) производить необходимые расчеты с высокой скоростью и достаточным уровнем сервиса. Постановка задачи Темой данного курсового проекта, который был выполнен в ходе изучения курса “Основы программирования и алгоритмические языки”, - разработка программы для работы в графическом режиме с правильным треугольником, используя элементы пересчета координат его вершин при вращении треугольника вокруг описанной около него окружности . Условие задачи : Дан равносторонний треугольник. Требуется вращать его в плоскости экрана вокруг центра описанной вокруг него окружности. Разработка алгоритма Алгоритм работы программы имеет разветвленную структуру. Программа состоит из трех основных частей : 1. Описание переменных используемых при решении поставленной задачи. 2. Описание процедур при помощи которых была реализована данная программа. 3. Тело главной программы, являющейся важнейшей составной частью решения поставленной задачи. Процедурная часть программы состоит из набора процедур предназначенных для более оптимальной реализации разработанного метода решения задачи. В программе используются стандартные модули языка urbo-Pascal с набором процедур, необходимых для выполнения работы. При составлении процедур были использованы классические методы просчета координат вершин треугольника, вывода результата на экран. В программу также были включены функции предоставляющие пользователю некоторый сервис и удобство при работе ( использование модулей urbo-Visio 2.0 for Borla d Pascal). Описание программы Общие сведения Данная программа предназначена для визуального отображения вращающегося треугольника в плоскости экрана. Требования к urbo-Pascal : Наличие модулей Cr , Graph, Sys em, Drivers. Модуль Sys em является автоматически подключаемым и хранит все процедуры и функции стандартного Паскаля, а также встроенные процедуры и функции Турбо Паскаля, модуль Cr содержит процедуры и функции, обеспечивающие управление текстовым режимом работы экрана. С помощью входящих в модуль подпрограмм можно перемещать курсор в произвольную позицию экрана, менять цвет выводимых символов и окружающего фона, создавать и удалять окна. Кроме того, в модуле содержатся процедуры управления звуком и процедуры работы с клавиатурой.
Сервис при работе в графическом режиме предоставлен в модуле Graph (прорисовка линий, отображение текста в графическом режиме, установка нужного видеорежима и шрифта, изменение аттрибута линий и текста). Модуль Drivers (точнее объект Eve ) использовался с целью упрощения обработки событий, поступивших с клавиатуры. Требования к системе : Наличие операционной системы MS-DOS версии 3.xx и выше или OS/2 Warp 3.0 & FullScree DOS. Программа не требует ни высокой скорости процессора, ни большого объема оперативной памяти и места на диске, ни наличия манипулятора типа Mouse. В комплекте с исполняемым файлом находится файл со шрифтом RIP.CHR, необходимый для корректной работы программы. Используемые технические средства При отладке программы был использован компьютер типа IBM Pe ium 120 ri o & PipeLi e Cashe 256 / 16Mb RAM, в состав которой входит : монитор 17’’ с адаптером SVGA S3 RIO rio64 764; клавиатура 105 клавиш; FDD и ; HDD Cua um FireBall 1.08Gb; Инструкция по выполнению Для вызова программы необходимо убедиться, что файлы CURSPROJ.EXE и RIP.CHR находятся в одной директории. После проверки необходимо запустить файл CURSPROJ.EXE или в среде Паскаля откомполировать файл CURSPROJ.PAS (в коплекте прилагается файл EGAVGA.OBJ , необходимый для линковки в основную программу файла EGAVGA.BGI). Интерфейс программы представлен на английском языке ввиду временного отсутсвия дополнительных русских шрифтов. Возможные действия в процессе выполнения программы: - остановить/продолжить вращение треугольника. -изменить направление вращения. -c помощью клавиш вверх/вниз можно менять скорость вращения треугольника. -выход из программы. Программа CURSPROJ.PAS имеет размер 3772 байт или 120 строк. Выполняемый файл CURSPROJ.EXE имеет размер 24348 байт. Входные и выходные данные Входными данными для данной программы является двумерный массив, содержащий координаты вершин равностороннего треугольника. Выходные данные : Визуальное отображение вращения треугольника и текущих координат каждой из вершин. Испытание программы Программа была испытана для всех вариантов ввода-вывода и различных типов видеоадаптеров, что исключает возникновение фатальных сбоев при работе программы. Заключение Данная курсовая работа представляет собой программный продукт, предназначенный для работы в графическом режиме. Программный продукт написан на современном языке urbo-Pascal, который позволил наиболее просто представить эту работу. В ходе выполнения курсового проекта я ознакомился с новыми приемами программирования и особенностями языка urbo-Pascal что позволило разработать данный программный продукт. Список литературы 1 2 3. Епанешников А.М., Епанешников В.А., Программирование в среде URBO PASCAL 7.0.-Москва:”Диалог-МИФИ”,1995 Зуев Е.А., Система программирования urbo Pascal.-Москва: СП “Диалог”,1992 Довгаль С.И., Сбинтев А.И., Персональые ЭВМ: URBO PASCAL V7.0, Обектное программирование.-Киев: “Двгаль”,1995 Приложение 1Program CursProj; Uses graph,cr , Drivers; co s C r : Array of I eger =((-77,0 , 77 ), (-50,91,-50)); Var x c , y c : I eger; ime2W : By e; Eve : Eve ; grDriver : I eger; grMode : I eger; ErrCode : I eger; x , y , a : I eger; A gle : Real; K : Shor I ;Procedure VgaDrv; ex er al; {$L EGAVGA.O
BJ } procedure Se Ce er(x c , y c : i eger); begi x c := x c ; y c := y c; e d;Fu c io S r2( um:I eger):S ri g; ype S = S ri g; var P : ^S; Begi ew(P); S r( um,P^); S r2 := P^; Dispose(P); E d; procedure draw(color:i eger); begi Se Color(Color); Li e(x c c r); Li e(x c c r); Li e(x c c r); e d;procedure Draw ex (XX,YY : I eger; ex : S ri g); Begi Se Color(Black); Ou ex XY(XX,YY,'&f of;&f of;&f of;'); Se Color(Whi e); Ou ex XY(XX,YY, ex ); E d;procedure ShowD; Begi Ge KeyEve (Eve ); If Eve .Wha = evKeyDow he Case Eve .KeyCode of kbUp : Begi if ime2W > 2 he ime2W := ime2W - 1; Se Color(Black); Ou ex XY(85,10, Se Color(Whi e); Ou ex XY(90,10,S r2(100- ime2W)); E d; kbDow : Begi if ime2W < 100 he ime2W := ime2W 1; Se Color(Black); Se Color(Whi e); Ou ex XY(90,10,S r2(102- ime2W)); E d; kbE er : Begi Se Color(Ligh Red); Ou ex XY(1,30, 'Freeze'); ReadKey; Se Color(Black); Ou ex XY(1,30, E d; kb ab : Begi K := -K; E d; E d; A gle := 0.1; Draw(Whi e); Delay( ime2W); Draw(Black); for A := 1 o 3 do begi X := Rou d(c r si (A gle)); Y := Rou d(-K c r cos(A gle)); C r := Y ; e d; Draw(Whi e); Draw ex (105,60,S r2(x c c r)); Draw ex (105,90,S r2(x c c r)); Draw ex (155,75,S r2(x c c r)); e d;begi Regis erBgiDriver(@vgaDrv); K:=-1; ime2W := 15; Se Ce er(320,240); A gle := 0.1; grDriver := De ec ; grMode:=VGAHi; {video mode VGA 640x480x16colors} I i Graph(grDriver, grMode,''); ErrCode := GraphResul ; if ErrCode = grOk he begi Ou ex XY(1,10,'Speed : ' S r2(100- ime2W)); Ou ex XY(10,60,' Cor . 1 X Y'); Ou ex XY(10,75,' Cor . 2 X Y'); Ou ex XY(10,90,' Cor . 3 X Y'); Se ex S yle( riplexFo , HorizDir, 2); Se Color(Black); Ou ex XY(10,420,' -Exi -Freeze ' ' -Speed -Direc io '); Se Color(Ligh Red); Ou ex XY(10,420,' ESC E er Up/Dow AB '); Se ex S yle(Defaul Fo , HorizDir, 1); Repea ShowD U il Eve .KeyCode = kbEsc; CloseGraph; e d else Wri el ('Graphics error : ', GraphErrorMsg(ErrCode)); e d. 15
Основной закон в Оккультизме гласит, что нет отдыха или прекращения движения в Природе[167]. То, что кажется отдыхом, есть лишь изменение одной формы в другую, изменение сущности, идущее рука об руку с изменением формы, так, по крайней мере, учит нас оккультная физика, которая, таким образом, как бы предвосхитила на значительное время открытие «сохранения материи». Так говорят древние Комментарии[168] на Станцу IV. «Матерь есть огненная Рыба Жизни. Она мечет икру и Дыхание (Движение) нагревает и развивает ее. Зерна (Икра) скоро притягиваются друг к другу, образуя сгустки в Океане (Пространстве). Большие куски соединяются и получают новые зерна икры, – в виде огненных Точек, Треугольников и Кубов, которые зреют; и в назначенное время некоторые куски отрываются и принимают шаровидные формы, процесс, совершаемый ими, если только другие не мешают ему. После чего Закон № *** приходит в действие. Движение (Дыхание) становится Вихрем и пускает их во вращение».[169] 5. Oi-Ha-Hou Есть тьма, беспредельность или же не-число, Ади-Нидана, Свабхават[170] – I
1. Определение удельного электрического сопротивления горных пород методом бокового каротажа
2. Организация, методы и программы селекции пчел
4. Соотношение между сторонами и углами прямоугольного треугольника
5. Вычисление определенного интеграла методами трапеций и средних прямоугольников
9. Кредитоспособность ссудозаёмщика и методы её определения
10. Определение рыночной стоимости недвижимости затратным методом
11. Кредитоспособность ссудозаемщика и методы ее определения
12. Определение наиболее эффективных форм и методов организованной преступности
14. Определение вязкости жидкости методами медицинского вискозиметра и Стокса
15. Об украинских непрямых методах определения налогового обязательства
16. Химический метод Винклера для определения растворенного кислорода
17. Определение иона аммония методом капиллярного электрофореза
18. Методы запоминания экономических и юридических статей, правил, определений, теорем
19. Половая конституция человека и методы ее определения
20. Определение предмета и метода проектирования устойчивого развития в системе Природа-Общество-Человек
25. Метод определения цены с ориентацией на спрос
26. Надежность коммерческих банков и основные методы ее определения
27. Методы определения N-концевой аминокислоты
30. Вычисление определенного интеграла методом трапеций и средних прямоугольников
31. Метод определения спроса на основе анализа цен и объемов продаж
32. Методы определения и измерения сильных сторон личности
33. Методы определения абсолютного возраста горных пород
34. Прямой метод вращения векового определителя
35. Вычисление определенного интеграла методом трапеций
36. Методы определения базовой цены товара
37. Сравнительная характеристика методов определения показателей качества
41. Метод средних величин в изучении общественных явлений
43. Определение моментов инерции тел методом трифилярного подвеса
44. Истина и метод
45. Совершенствование методов определения кредитоспособности заемщиков
46. Методы определения концентрации растворённого кислорода в воде
47. Методы определения хлорид-ионов
48. Химические методы определения сахаров
49. Хром и методы его определения
50. Определение фенола методом броматометрического титрования
51. Газохроматографический метод определения загрязненности воздуха
52. Экстракционно-фотометрический метод определения тяжелых металлов в природных водах
53. Методы определения по спорам и пыльце климатических условий
57. Ценообразование: определение, методы и классификация
58. Социально-экономические явления и методы исследования связей между ними
59. Исследование природных ресурсов планеты с помощью космических методов
60. Исследование клеточного цикла методом проточной цитометрии
61. Определение активности ферментов
62. Различия между растительной и животной клеткой (11 класс) (Шпаргалка)
64. Обзор методов и способов измерения физико-механических параметров рыбы
65. Новейшие методы селекции: клеточная инженерия, генная инженерия, хромосомная инженерия
66. Виды стихийных бедствий и методы борьбы с ними
67. Статистика населения. Методы анализа динамики и численности и структуры населения
68. Определения положения объектов на местности при помощи приборов нивелира и теодолита
69. Гидрохимический, атмохический и биогеохимический методы поисков
73. Основні методи боротьби з інфляцією
74. Налоги: эволюция, определения и формы. Принципы налоговой политики и функции налогов
75. Нелегальная миграция в России и методы борьбы с ней
76. Предмет и метод гражданского права
77. Определения суда первой инстанции
78. Формы и методы государственного регулирования экономики в Казахстане
79. Историко-правовой анализ Закона СССР "о разграничении полномочий между СССР и субъектами федерации"
80. Разграничение полномочий между Российской Федерацией и субъектами РФ
81. Формы и методы выхода предприятий на внешний рынок
82. Определения (Теория государства и право)
83. Методы комплексной оценки хозяйственно-финансовой деятельности
84. Финансовый контроль: формы, методы, органы
85. Эффективные методы изучения иностранных языков
89. Русская здрава (методы оздоровления на Руси)
90. Дидактические возможности отдельных методов обучения на уроках литературы в старших классах
91. Методы исследования литературы
92. Ужесточение конфронтации между СССР и США в первой половине 80-х годов
93. Происхождение, основные этапы развития и современные определения термина «библиография»
94. Метод комплексного археолого-искусствоведческого анализа могильников
95. Истинные знания о жизни. Происхождение человека
96. Методы компьютерной обработки статистических данных
97. Решение транспортной задачи методом потенциалов
98. Методичка по Internet Explore
100. Оценка методов и средств обеспечения безошибочности передачи данных в сетях