Графика в PascalABC

Автор работы: Пользователь скрыл имя, 24 Октября 2014 в 02:15, курсовая работа

Краткое описание

В данной курсовой работе рассматривается тема «Графика в 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

Скачать в ZIP архиве (474.31 Кб) Сколько стоит заказать работу?
Вложенные файлы: 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АВС, а также при работе с другими языками программирования.

 

 

 

СПИСОК ЛИТЕРАТУРЫ

  1. Информатика(Базовый курс) С. В. Симонович, СПб: Питер, 2001г.
  2. Основы программирования в задачах и примерах, А. В. Милов, Харьков: ФОЛИО, 2002г.
  3. Программирование. С. Симонович, Г. Евсеев, Москва: АСТ – ПРЕСС книга 2000г.
  4. Практика программирования, Ю. Кетков, А. Кетков, СПб: БХБ/ Петербург, 2002г.
  5. Паскаль для школьников. С. М. Кашаев, Л. В. Шерстнева — Москва, БХВ-Петербург, 2011 г
  6. Информатика: А. Е. Споров — Москва, АСТ, Полиграфиздат, 2010 г.
  7. Основы программирования: С. Окулов — Москва, Бином. Лаборатория знаний, 2010 г.
  8. Языки программирования. Концепции и принципы: В. Ш. Кауфман — Москва, ДМК Пресс, 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.Дерево

 

 


Информация о работе Графика в PascalABC