Графика в PascalABC
Курсовая работа, 24 Октября 2014, автор: пользователь скрыл имя
Краткое описание
В данной курсовой работе рассматривается тема «Графика в PascalАВС». Тема курсовой работы выбрана не случайно, так как графика является довольно интересной областью программирования. Данная курсовая работа показывает, что можно создавать простые рисунки не только в графических программах, таких как Paint, AdobePhotoshop, CorelDraw, но и в среде языка программирования PascalАВС.
Содержание
ВВЕДЕНИЕ 3
ГЛАВА I. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ 4
1.1 Краткая история становления языка программирования Pascal. 4
1.2 Основные понятия графики 6
1.3 Основные функции и процедуры работы с графикой в PascalABC 7
ГЛАВА II. СОЗДАНИЕ ГРАФИЧЕСКОГО ПРОЕКТА 13
2.1 Понятие "фрактал" 13
2.2 Реализация треугольника 15
2.3 Построенияфрактала "Дерево" 19
ЗАКЛЮЧЕНИЕ 21
СПИСОК ЛИТЕРАТУРЫ 22
Вложенные файлы: 1 файл
курсовая.docx
— 488.19 Кб (Скачать файл)var
color, xnew, ynew:integer;
Begin
if len<1 then exit; {Выход из рекурсии при длине ветки меньше 1 пиксела}
if len<15 then color:=14 else color:=15;{Листья - жёлтым цветом, ствол белым}
xnew:=x+round(Len*cos(angle)); {координаты конца ветки}
ynew:=y+ round(len*sin(angle));
SetColor(color); Line(x,y,xnew,ynew); {Рисуем ветку}
Ris(xnew, ynew, len*0.65, angle-deltaangle);{Рисуем левую подветку}
Ris(xnew, ynew, len*0.65, angle+deltaangle);{Рисуем правую подветку}
end;
Begin
Ris(100,400,160,-40*radian);
End.
ЗАКЛЮЧЕНИЕ
При написании курсовой работы рассматривался вопрос создания графических изображений в среде программирования PascalАВС.
В ходе исследования мы изучили:
Основные понятия графики, функции и процедуры, возможности создания графических изображений в среде программирования PascalАВС.
Полученные при исследовании знания и навыки будут полезны нам при дальнейшей работе в PascalАВС, а также при работе с другими языками программирования.
СПИСОК ЛИТЕРАТУРЫ
- Информатика(Базовый курс) С. В. Симонович, СПб: Питер, 2001г.
- Основы программирования в задачах и примерах, А. В. Милов, Харьков: ФОЛИО, 2002г.
- Программирование. С. Симонович, Г. Евсеев, Москва: АСТ – ПРЕСС книга 2000г.
- Практика программирования, Ю. Кетков, А. Кетков, СПб: БХБ/ Петербург, 2002г.
- Паскаль для школьников. С. М. Кашаев, Л. В. Шерстнева — Москва, БХВ-Петербург, 2011 г
- Информатика: А. Е. Споров — Москва, АСТ, Полиграфиздат, 2010 г.
- Основы программирования: С. Окулов — Москва, Бином. Лаборатория знаний, 2010 г.
- Языки программирования. Концепции и принципы: В. Ш. Кауфман — Москва, ДМК Пресс, 2010 г.
ПРИЛОЖЕНИЕ А
Программа "Ветка дерева" на языке PascalABC
uses GraphABC;
const
radian=Pi/180; deltaangle=30*radian;
Procedure Ris(x,y: integer; len, angle: real);
var
color, xnew, ynew:integer;
Begin
if len<1 then exit;
{Выход из рекурсии при длине ветки меньше 1 пиксела}
if len<15 then color:=14 else color:=15;
{Листья - жёлтым цветом, ствол белым}
xnew:=x+round(Len*cos(angle));
{координаты конца ветки}
ynew:=y+ round(len*sin(angle));
SetColor(color); Line(x,y,xnew,ynew);
{Рисуем ветку}
Ris(xnew, ynew, len*0.65, angle-deltaangle);
{Рисуем левую подветку}
Ris(xnew, ynew, len*0.65, angle+deltaangle);
{Рисуем правую подветку}
end;
Begin
Ris(100,400,160,-40*radian);
End.
ПРИЛОЖЕНИЕ Б
Рисунок 1. Ветка дерева
Рисунок 2.Дерево