Размещено на http://www.allbest.ru/

Министерство образования и науки Республики Казахстан

Колледж Карагандинского государственного университета

имени академика Е.А. Букетова

Специальность: 1305000- "Информационные системы (по областям применения)"

Дисциплина: "Программирование"

Курсовая работа

на тему: Анимационный проект "Город"

Выполнила: Амбалова И.Р.

Научный руководитель: Гудз О.Д.

Караганда 2013

Содержание

Введение

1. Графика и анимация в Pascal

1.1 Язык программирования Pascal

1.2 Графические возможности в Pascal

1.3 Анимация в Pascale

2. Разработка анимационного проекта "Город"

2.1 Подготовка эскиза работы

2.2 Разработка эскиза на Pascal

2.3 Дополнение проекта анимацией

Заключение

Список использованных источников

Приложение

• Введение

Цель курсовой работы - создание анимационного проекта, который раскроет все графические возможности языка Pascal.

Курсовая работа состоит из двух глав. Каждая глава раскрывает суть данного проекта и посвящена графическим возможностям выбранного языка программирования.

В первой главе описывается история Pascal, особенности и недостатки программы, графические возможности и приемы создания анимации.

Во второй главе непосредственно приводится описание всех этапов написания курсовой работы: выбор эскиза работы, создание фонового рисунка, разработка анимационного объекта и приведение его в движение.

В качестве среды программирования выбран язык программирования Pascal.

1. Графика и анимация в Pascal

1.1 Язык программирования Pascal

Turbo Pascal - это среда разработки для языка программирования Паскаль. Используемый в Turbo Pascal диалект базировался на более раннем UCSD Pascal, получившем распространение, в первую очередь, на компьютерах серии Apple II. Компилирующая компонента Turbo Pascal была основана на компиляторе Blue Label Pascal, первоначально созданном в 1981 году Андерсом Хейлсбергом для операционной системы NasSys микрокомпьютера Nascom. Позднее он был переписан как Compass Pascal для операционной системы CP/M, затем как Turbo Pascal для DOS и CP/M. Одна из версий Turbo Pascal была доступна под Apple Macintosh примерно с 1986 года, но её разработка прекратилась примерно в 1992 году.

В 1982 году Филипп Кан приобрёл компилятор у Андерса Хейлсберга и перебрался из Парижа в Калифорнию, где основал компанию Borland.

Когда в 1983 году появилась первая версия Turbo Pascal, такой тип среды разработки был относительно новым. Во время дебюта на американском рынке Turbo Pascal продавался по цене в $49,99. Помимо привлекательной цены, встроенный компилятор Паскаля также был очень высокого качества. Приставка "Turbo" намекала как на скорость компиляции, так и на скорость производимого им исполняемого кода. Turbo Pascal создавал машинный код за один проход, без шага компоновки.

Для того времени это была потрясающая среда разработки. Она была проста и интуитивно понятна, с хорошо организованным меню. Ранние версии использовали раскладку горячих клавиш WordStar. В более поздних версиях появилась возможность быстро получить определение ключевого слова языка, просто поставив курсор на ключевое слово и нажав клавишу справки. Справочные статьи часто включали примеры кода, использующего данное ключевое слово. Это позволяло неопытным программистам изучать Паскаль даже без помощи книг, используя лишь среду разработки. В поставку входило большое количество исходных текстов демонстрационных и прикладных программ. В их числе были даже шахматы.

Среда позволяла легко встраивать в код на Паскале вставки на языке ассемблера. Пользователь имел возможность проходить программу шаг за шагом; при переходе на ассемблерный блок это также работало. В любой момент пользователь мог добавить переменную или регистр в удобно расположенное окно для наблюдения за ними. При построчной отладке программ, использующих графические режимы IBMPC, происходило корректное переключение между графическим режимом программы и текстовым режимом среды разработки.

Помимо всего этого, имелось средство профилирования. Книги, включённые в поставку Borland Pascal, давали детальное описание языка ассемблера Intel вплоть до указания количества тактовых циклов, необходимых для выполнения каждой инструкции. В общем и целом, система давала превосходные возможности для оптимизации кода; пользователю не требовалось пользоваться чем-либо, кроме среды разработки. Всё было сделано так идеально, что даже школьник мог этим пользоваться. Эти качества позволили версии Паскаля от Borland стать стандартом языка Паскаль де-факто.

Turbo Pascal часто используется в школе

С начала 1990-х TP/BP используется в университетах для изучения фундаментальных концепций программирования.

Turbo Pascal 1.0, 20 ноября 1983 года. Компилирует непосредственно в машинный код. Требует 32 килобайта оперативной памяти. Стоит меньше 50 долларов. Имеет интегрированный компилятор/редактор, высокую скорость компиляции. Позволяет размещать динамические данные в куче (heap) - динамической области памяти.

Turbo Pascal 2.0, 1984 год. Увеличен размер создаваемой программы - позволяет использовать до 64 килобайт для кода, стека и данных. Версия для DOS поддерживает арифметический сопроцессор и двоично-десятичную арифметику (Binary-codeddecimal (англ.), BCD).Turbo Pascal 3.0, 1985 год. Поддержка оверлейной структуры. Поддержка графических режимов. Специальные подпрограммы формирования изображений для IBMPC-совместимых компьютеров, включая "черепаховую" графику. Инструментальные пакеты. программирование ассемблер хейлсберг

Turbo Pascal 4.0, 1987 год. Компиляция осуществлялась в EXE-файл, а не как ранее в COM. Впервые введена поддержка модулей с раздельной компиляцией. Размер программы ограничен только объёмом оперативной памяти. Управляемая с помощью меню интегрированная среда разработки (англ. Integrated Development Environment, IDE).Интеллектуальная компоновка модулей. Автономный компилятор командной строки, введенный для больших проектов, компиляция которых затруднялась ресурсоемкой IDE. Убрана поддержка оверлеев. Контекстно-чувствительная система помощи. Опции компилятора настраивались в IDE. Интеллектуальный встроенный компоновщик, который исключал из откомпилированных файлов модулей неиспользуемые в программе процедуры и функции.

Turbo Pascal 5.0, 1988 год. Встроенный отладчик позволял трассировать исходный текст, вводить точки останова, просматривать и изменять содержимое переменных не покидая IDE. Отдельный отладчик (Turbo Debugger), который позволял отлаживать программу с удаленной машины через RS-232 интерфейс. Эмуляция арифметического сопроцессора. Поддержка графических драйверов BGI (Borland Graphics Interface). Возвращена поддержка оверлеев.

Turbo Pascal 5.5, 2 мая 1989 года. Объектно-ориентированное программирование. Возможность копирования в программу примеров из справочной системы. Электронный учебник на диске. Turbo Profiler - профилировщик, позволяющий оптимизировать код программы. Автономный отладчик Turbo Debugger дополнен средствами для работы с объектами - возможно просматривать иерархию объектов, вызывать методы, просматривать и модифицировать поля.

Turbo Pascal 6.0, 1990 год. Библиотека Turbo Vision. Новая IDE, переписанная с использованием Turbo Vision, поддерживающая мышь и редактирование нескольких файлов одновременно в разных окнах. Возможность задания во встроенном отладчике условных и по количеству проходов точек останова. Встроенный ассемблер BASM, позволяющий в исходном тексте программы делать ассемблерные вставки. Protected поля и методы для объектов. Работающий в защищённом режиме компилятор командной строки.

Turbo Pascal 7.1, 1994 год.

Достоинства

Удобная среда разработки, включающая функциональный отладчик, доступный в любой момент.

Контекстная справочная система, по которой можно изучать язык без обращения к сторонним источникам.

Высокая скорость компиляции, высокая скорость выполнения откомпилированных программ.

Встроенная возможность использовать вставки на языке ассемблера.

Недостатки

Компилятор рассчитан на реальный режим DOS, применение которого сходит на нет. Однако в последних версиях компилятора и среды введена поддержка защищённого режима вместе с соответствующим отладчиком (TD).

В модуле CRT имеется ошибка (некорректный подсчёт количества циклов для функции delay, не рассчитанный на быстрые процессоры, процессоры с переменной частотой и многозадачные среды), из-за которой при запуске программы на компьютерах с тактовой частотой более 200 MHz сразу происходило аварийное завершение с сообщением "Runtimeerror 200 at…". Существуют разные варианты исправления модуля CRT. В варианте Клауса Хартнегга ошибка 200 не возникает, но длительность Delay на быстрых компьютерах меньше желаемой, и эта проблема по незнанию иногда тоже считается недостатком Turbo Pascal.

Неправильная работа с метками во встроенном ассемблере (команды из меток выполняются, даже если переход на них не происходил).

В Turbo/ Borland Pascal 7.0 встроено пасхальное яйцо: если в интегрированной среде через меню "Help" открыть панель "About" и нажать сочетание клавиш Alt + I, то в панели будут прокручиваться имена разработчиков.

Алгоритм раскраски во встроенном редакторе немного отличается от того, как понимает синтаксис компилятор. А именно, конструкция (*) воспринимается редактором как законченный комментарий, а компилятором - как начало комментария. Это может использоваться, чтобы внутри комментариев вставлять синтаксически раскрашенные участки, например, демонстрация способа использования. Или, например, существуют Pascal - вирусы, которые записывают своё тело после 80й колонки, используя (*), чтобы старый текст выглядел без изменений. Область распространения ограничена местами, где запускаются программы на Turbo Pascal, зато в самих этих местах бороться с Pascal - вирусами было нетривиально. Антивирусы тех времён были бессильны против этих первых представителей макровирусов.

1.2 Графические возможности в Pascal

Модуль Graph

Модуль Graph Pascal содержит около пятидесяти различных процедур и функций, предназначенных для работы с графическим экраном. В этом же модуле некоторые встроенные константы, которые могут быть использованы в графических программах.

Для того, чтобы воспользоваться всеми возможностями модуля Graph, в начале программы (после заголовка) необходимо поместить оператор использования:

Uses Graph;

Основную часть модуля составляют процедуры ввода базовых графических элементов, таких как точки, отрезки прямых линий, дуги и целые окружности, и другие примитивы.

Функция Close Graph

Функция Close Graph завершает работу адаптера в графическом режиме и восстанавливает текстовый режим работы экрана.

Координаты, окна, страницы

Любое изображение формируется из достаточно простых геометрических фигур. Это точки, отрезки прямых, окружности и т.д. Из геометрии известно, что положение геометрического объекта и его форма задаются координатами его точек.

Следовательно, для того чтобы запрограммировать графический вывод, надо научиться задавать координаты графических объектов.

Многие графические процедуры и функции используют указатель текущей позиции на экране, который в отличие от текстового курсора невидим.

Положение этого указателя, как и вообще любая координата на графическом экране, задается относительно левого верхнего угла, который, в свою очередь, имеет координаты (0,0). Таким образом, горизонтальная координата экрана увеличивается слева направо, а вертикальная - сверху вниз.

Некоторые графические процедуры:

Функции GetMaxX и GetMaxY - возвращают значения типа Word, содержащие максимальные координаты экрана в текущем режиме работы соответственно по горизонтали и вертикали.

Процедура SetViewPort - устанавливает прямоугольное окно на графическом экране. Заголовок:

Procedure SetVievPort(X1, Y1, X2, Y2: Integer; ClipOn: Boolean);

Здесь X1..Y2 - координаты левого верхнего (Х 1,Y1) и правого нижнего(X2,Y2) углов окна; ClipOn - выражение типа Boolean, определяющее "отсечку" не умещающихся в окне элементов изображения.

Процедура ClearDevice. Очищает графический экран. После обращения к процедуре указатель устанавливается в левый верхний угол, а сам экран заполняется цветом фона, заданным процедурой SetBkColor.

Линии и точки

Процедура PutPixel. Выводит заданным цветом точку по указанным координатам. Заголовок:

Procedure PutPixel(X, Y: Inteder; Color: word);

Здесь X, Y - координаты точки; Color - цвет точки.

Процедура Line. Вычерчивает линию с указанными координатами начала и конца.

Заголовок:

Procedure Line(X1, Y1, X2, Y2: Integer);

Здесь X1..Y1 - координаты начала(X1,Y1) и конца(X2,Y2) линии. Линия вычерчивается текущем стилем и текущим цветом.

Процедура SetLineStyle. Устанавливает новый стиль вычерчиваемых линий.

Заголовок:

Procedure SetLineStyle(Type, Pattern, Thick: Word);

Здесь Type, Pattern, Thick - соответственно тип, образец и толщина линии. Тип линии может быть создан с помощью одной из следующих констант:

Многоугольники

Процедура Rectangle. Вычерчивает прямоугольник с указанными координатами углов. Заголовок:

Procedure Rectangle(X1, Y1, X2, Y2: Integer);

Здесь X1..Y2 - координаты левого верхнего угла(X1,Y1) и правого нижнего(X2,Y2) углов прямоугольника. Прямоугольник вычерчивается с использованием текущего цвета и текущего стиля линий.

Дуги, окружности, эллипсы

Процедура Circle. Вычерчивает окружность.

Заголовок:

Procedure Circle(X, Y: Integer; R: Word);

Здесь X,Y - координаты центра; R - радиус в пикселях.

Окружность выводится текущим цветом. Толщина линии устанавливается текущим стилем, вид линии всегда SolidLn(Сплошная). Процедура вычерчивает правильную окружность с учетом изменения линейного размера радиуса в зависимости от его направления относительно сторон графического экрана, т.е. с учетом коэффициента GetAspectRatio. В связи с этим параметр R определяет количество пикселей в горизонтальном направлении.

Процедура Arc. Чертит дугу окружности. Заголовок:

Procedure Arc(X, Y: Integer; BegA, EndA, R: Word);

Здесь X, Y - координаты центра; BegA, EndA -соответственно начальный и конечный углы дуги; R - радиус.

Углы описываются против часовой стрелки и указываются в градусах. Нулевой угол соответствует горизонтальному направлению вектора слева направо.

Если задать значения начального угла 0 и конечного - 359, то будет выведена полная окружность. При вычерчивании дуги окружности используется те же соглашения относительно линии радиуса, что и в процедуре Circle.

Процедура Ellipse. Вычерчивает эллипсную дугу. Заголовок:

Procedure Ellipse(X, Y: Integer; BegA, EndA, Rx, RY: Word);

Здесь X,Y - координаты центра; BegA, EndA - соответственно начальный и конечный углы дуги; RX, RY - горизонтальный и вертикальный радиусы эллипса в пикселях.

При вычерчивании дуги эллипса используется те же соглашения относительно линии, что и в процедуре Circle, ите же соглашения относительно углов, что и в процедуре Arc. Если радиусы согласовать с учетом масштабного коэффициента GetAspectRatio, будут вычерчена правильная окружность.

Краски, палитры, заполнения

Процедура SetCOlor. Устанавливает текущий цвет для вводимых линий и символов. Заголовок:

Procedure SetColor(Color: Word);

Здесь Color - текущий цвет.

Процедура SetBkColor. Устанавливает цвет фона.

Заголовок:

Procedure SetBkColor (Color: Word);

Здесь Color - цвет фона.

В отличие от текстового режима, в котором цвет фона может быть только темного оттенка, в графическом режиме он может быть любым. Установка нового цвета фона, немедленно изменяет цвет графического экрана. Это означает, что нельзя создать изображение, два участка которого имели бы разный цвет фона.

Для GGA-адаптера в режиме высокого разрешения установка цвета фона изменяет цвет активных пикселей. Замечу, что после замены цвета фона на любой, отличный от 0 (Black) цвет. Вы не сможете более использовать цвет 0 как черный, он будет заменяться на цвет фона, т.к. процедуры модуля Graph интерпретируют цвет с номером 0 как цвет фона. Это означает, в частности, что Вы уже не сможете вернуть фону черный цвет!

Если Ваш ПК оснащен цветным экраном, следующая программа продемонстрирует работу процедуры SetBkColor. Программа выводит десять вложенных друг в друга прямоугольников, после чего циклически меняет цвет фона. Для выхода из программы достаточно нажать на любую клавишу.

Процедура SetFillStyle. Устанавливает стиль (тип и цвет). Заголовок:

Procedure SetFillStile(Fill, Color: Word);

Здесь Fill - тип заполнения; Color - цвет заполнения.

С помощью заполнения можно покрывать какие-либо фрагменты изображения периодически повторяющимся узором.

Процедура FloodFill. Заполняет произвольную замкнутую фигуру, используя текущий стиль заполнения(узор и цвет). Заголовок:

Procedure FloodFill(X, Y: Integer; Border: Word);

Здесь X, Y - координаты любой точки внутри замкнутой фигуры; Border - цвет граничной линии. Если фигура не замкнута, заполнение "разольется по всему экрану.

1.3 Анимация в Pascale

Анимационные программы - программы, которые строят, перемещают, изменяют формы различных изображений на экране в соответствии с заранее разработанным сценарием. Для "оживления" используются различные приемы. Мультипликация отдельных, последовательно расположенных рисунков с постепенно меняющейся зарисовкой движения фигур. Это при показе "оживляет" нарисованные персонажи, заставляет их двигаться.

Анимация в Pascal осуществляется следующим способом: сначала объект изображается желаемым цветом. Затем ставится пауза Delay(x), с помощью которой движение останавливается. Далее объект снова изображается в тех же координатах, но уже цветом фона - "затирается".

Пример:

Setbkcolor(5);

Repeat

For i:=1 to 100 do begin

Putpixel (200+i, 200, 13);

Delay (1000);

End;

Until keypressed;

После данного кода точка будет двигаться горизонтально. Аналогично приводятся в движение комбинированные объекты, которые могут быть составлены из нескольких графических примитивов.

2. Разработка анимационного проекта "Город"

2.1 Подготовка эскиза работы

Чтобы создать графический рисунок с помощью языка программирования Pascal необходимо заранее подготовить эскиз. Для данной работы эскиз был выбран из сети Интернет. Рисунок выполнен в "мультипликационном" стиле. Подобранный эскиз показан ниже на рисунке 1.

Рисунок 1. Эскиз работы

Данный эскиз был выбран для курсовой работы, так как с его помощью можно показать все возможности графики языка Pascal. Подобранный прообраз будущего проекта очень красочный и необычный, в нем можно дать волю своей фантазии и немного дополнить проект анимацией.

2.2 Разработка эскиза на Pascal

В курсовой работе была поставлена цель - с помощью анимации реализовать движение облаков, но сначала необходимо создать фоновую картинку города. На картинке несколько объектов, изображение которых в принципе схоже. Поэтому достаточно рассмотреть, как выполняется один из "домиков".

Например, "домик 7" на рисунке изображен в центре.

Рисунок 2. "Домик 7"

Чтобы запрограммировать данный объект следует начать с рисования боковых границ. Эти границы рекомендуется выполнить с помощью команды line(x1,y1,x2,y2):

line(430,400,425,310);{l.bok}

line(425,310,440,230);

line(507,230,523,310);{p.bok}

line(523,310,507,400);

Для того, чтобы "крыша" получилась в "сказочном" стиле используем две команды: line(x1,y1,x2,2) и ellipse(x,y,0,360,Rx,Ry).

ellipse(474,228,180,360,45,5);{krisha niz}

line(428,228,440,195);{l.b}

line(520,228,508,195);{p.b}

Арка выполняется с помощью команды: ellipse(x,y,0,360,Rx,Ry). Данную команду рекомендуется использовать дважды, чтобы арка выглядела объемно и более интересно.

ellipse(465,400,360,180,25,70);{arka}

ellipse(467,400,360,180,22,60);

Далее следует, добавить "домику" окна, и снова можно воспользоваться командой line(x1,y1,x2,2):

line(450,270,460,250);{okno1}

line(460,250,470,270);

line(470,270,460,290);

line(460,290,450,270);

line(450,270,470,270);

line(460,250,460,290);

Для того, чтобы город выглядел красочно, можно менять цвет линий рисуемого объекта с помощью команды: setcolor(х), а также закрасить "домик" с помощью команд: setfillstyle(x,y) и floodfill(x,y,k).

setfillstyle(5,6);

floodfill(260,365,15);

Таким образом, код программы объекта "домик" будет выглядеть так:

{dom s krasnoi krishei}

line(430,400,425,310);{l.bok}

line(425,310,440,230);

line(507,230,523,310);{p.bok}

line(523,310,507,400);

line(430,400,507,400);{pol}

ellipse(474,228,180,360,45,5);{krisha niz}

line(428,228,440,195);{l.b}

line(520,228,508,195);{p.b}

ellipse(475,195,180,360,35,5);{verh}

line(450,270,460,250);{okno1}

line(460,250,470,270);

line(470,270,460,290);

line(460,290,450,270);

line(450,270,470,270);

line(460,250,460,290);

line(480,275,470,295);{okno 2}

line(470,295,480,310);

line(480,310,490,295);

line(490,295,480,275);

line(480,275,480,310);

line(470,295,490,295);

ellipse(465,400,360,180,25,70);{arka}

ellipse(467,400,360,180,22,60);

Готовый рисунок предоставлен ниже:

Рисунок 3. Анимационный проект

2.3 Дополнение проекта анимацией

Для того, чтобы выполнить анимацию нужно нарисовать объект, который будет пребывать в движении. В данной курсовой работе этим объектом является "облако". Чтобы его изобразить, используется элемент: ellipse(x,y,0,360,Rx,Ry). Далее следует занести облако в процедуру, чтобы в дальнейшем была возможность вызвать его в любом месте рисунка.

procedure oblako(x,y,z: integer);

begin

{oblako x=200,y=50}

setcolor(z);

ellipse(x,y,360,180,10,5);

ellipse(x+10,y,0,90,20,5);

ellipse(x+30,y+10,260,90,5,10);

ellipse(x+20,y+20,180,360,10,5);

ellipse(x-10,y+20,180,360,20,15);

ellipse(x-30,y+10,100,270,5,10);

ellipse(x-21,y,360,180,10,5);

setfillstyle(1,z);

floodfill(x,y+10,z);

end;

Чтобы облако начало движение, необходимо заключить его в цикл:

repeat

for i:=1 to 300 do begin

oblako (150+i,70,15);

oblako (200+2*i,30,15);

delay(10000);

oblako (150+i,70,9);

oblako (200+2*i,30,9);

end;

until keypressed;

Аналогично объекту "домик 7" выполняются и другие "домики". Также анимационный проект город был дополнен "цветочками", "солнышком", а также был перемещен дом с правого угла рисунка в левый угол.

Заключение

Таким образом, при выполнении данной курсовой работы рассмотрены основные принципы работы с графическими возможностями Pascal.

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

В курсовой работе поставленная цель достигнута. В процессе выполнения курсовой работы возникли некоторые трудности, связанные с написанием программы, так как Pascal не дает возможности использовать полную цветовую гамму ранее выбранного эскиза, потому что язык содержит в базе только 16 цветов.

Список использованных источников

1. Натансон И.П. Краткий курс высшей математики. Л., 1963г.

2. Курош А.Г. Курс высшей алгебры. М., 1971г.

3. Высшая математика для экономистов. Учебник. Под ред. Н.Ш. Кремера. М., 2007г.

4. Н.Г. Кучма Введение в программирование. Караганда 2008 г.

5. С. Окулов Основы программирования. Москва 2006 г.

6. Г.Д. Аубакиров, А.Г. Хмыров Языки программирования Pascal, Delphi. Астана 2008 г.

7. Б. Бурибаев, Б. Накысбеков, Г. Мадьярова Основы Информатики и вычислительной техники. Алматы 2005 г.

8. Форсайт Т. Pascal для всех. Москва 1986.

9. http://ru.wikipedia.org/wiki/Умножение_матриц

Приложение

Листинг программы

Program kyrsovaya;

uses graph,crt;

var gd,gm,i,k: integer;

procedure cvetok(x,y,z:integer);

begin

{cvetok (598,435)}

setcolor(4);

ellipse(x+2,y-5,360,180,2,2);

ellipse(x-3,y-5,360,180,2,2);

line(x-5,y-4,x,y);

line(x+4,y-4,x,y);

setfillstyle(1,z);

floodfill(x,y-3,4);

setcolor(2);

ellipse(x-4,y+4,290,40,3,9);

ellipse(x-4,y+7,0,110,3,5);

line(x-6,y+3,x-2,y+7);

setfillstyle(1,3); floodfill(x-4,y+4,2);

end;

procedure oblako(x,y,z: integer);

begin

{oblako x=200,y=50}

setcolor(z);

ellipse(x,y,360,180,10,5);

ellipse(x+10,y,0,90,20,5);

ellipse(x+30,y+10,260,90,5,10);

ellipse(x+20,y+20,180,360,10,5);

ellipse(x-10,y+20,180,360,20,15);

ellipse(x-30,y+10,100,270,5,10);

ellipse(x-21,y,360,180,10,5);

setfillstyle(1,z); floodfill(x,y+10,z);

end;

begin

initgraph(gd, gm, 'D:/TP7');

setbkcolor(9);

{lyg}

setcolor(10);

ellipse(640,480,90,180,640,100);

setfillstyle(1,10); floodfill(300,460,10);

{dom zelenii}

setcolor(15);

ellipse(100,420,0,25,100,300);{dom}

ellipse(280,422,80,180,80,15);{pol}

ellipse(200,263,250,340,103,30);{niz krishi}

ellipse(175,252,270,30,10,40);{bok krishi}

ellipse(205,222,250,0,65,10);{krisha verh}

ellipse(190,240,180,360,5,5); {hiripica}

ellipse(200,239,180,30,5,5);

ellipse(210,238,180,30,5,5);

ellipse(220,237,180,30,5,5);

ellipse(230,236,180,30,5,5);

ellipse(240,235,180,30,5,5);

ellipse(250,234,180,30,5,5);

ellipse(260,233,180,30,5,5);

ellipse(192,252,180,360,7,6);

ellipse(207,251,180,360,7,6);

ellipse(222,250,180,360,7,6);

ellipse(237,249,180,360,7,6);

ellipse(252,248,180,360,7,6);

ellipse(267,247,180,360,7,6);

ellipse(193,270,180,360,9,7);

ellipse(212,269,180,360,9,7);

ellipse(231,268,180,360,9,7);

ellipse(250,267,180,360,9,7);

ellipse(269,266,180,360,9,7);

ellipse(288,265,180,660,9,7);

ellipse(228,310,70,150,20,5);{okno}

ellipse(214,327,100,260,5,22);

ellipse(222,346,180,0,10,5);

ellipse(232,327,260,70,5,22);

ellipse(225,315,70,150,10,5);

ellipse(218,327,100,260,5,17);

ellipse(223,344,180,0,5,3);

ellipse(228,327,260,70,5,17);

ellipse(222,327,0,180,10,3);

ellipse(222,330,0,180,10,3);

ellipse(250,370,150,270,7,40);{dver'}

ellipse(260,354,0,160,17,12);

ellipse(275,380,260,90,7,30);

{dom oranjevii}

ellipse(290,376,300,70,5,35);{levii bok}

ellipse(288,309,320,90,7,50);

line(360,330,360,257);{p.stena}

ellipse(325,410,0,180,35,5);{pol}

ellipse(320,256,180,0,40,5);{krisha niz}

ellipse(283,227,120,260,15,30);{krisha l.bok}

line(275,202,290,182);

ellipse(315,183,180,360,25,5);{krisha verh}

ellipse(358,227,280,70,15,30); {k. p.bok}

line(363,198,339,183);

ellipse(325,323,360,180,20,35);{okno}

ellipse(325,300,360,180,7,5);

line(313,300,337,300); line(313,300,313,321);

line(313,321,337,321); line(337,321,337,300);

line(306,323,344,323); line(325,300,325,321);

line(313,305,337,305); line(313,310,337,310);

line(313,315,337,315); line(313,320,337,320);

ellipse(280,200,180,360,5,5);{herepica}

ellipse(290,200,180,360,5,5);

ellipse(300,200,180,360,5,5);

ellipse(310,200,180,360,5,5);

ellipse(320,200,180,360,5,5);

ellipse(330,200,180,360,5,5);

ellipse(340,200,180,360,5,5);

ellipse(350,200,180,360,5,5);

ellipse(360,200,180,360,5,5);

ellipse(270,210,250,360,7,7);

ellipse(285,210,180,360,7,7);

ellipse(300,210,180,360,7,7);

ellipse(315,210,180,360,7,7);

ellipse(330,210,180,360,7,7);

ellipse(345,210,180,360,7,7);

ellipse(361,210,180,360,7,7);

ellipse(270,225,250,360,9,9);

ellipse(289,225,180,360,9,9);

ellipse(308,225,180,360,9,9);

ellipse(327,225,180,360,9,9);

ellipse(346,225,180,360,9,9);

ellipse(365,225,180,360,9,9);

ellipse(280,243,180,360,10,10);

ellipse(300,243,180,360,10,10);

ellipse(320,243,180,360,10,10);

ellipse(340,243,180,360,10,10);

ellipse(360,243,180,360,10,10);

{dom malen'kii}

ellipse(360,385,135,45,22,22);

ellipse(345,365,180,360,7,7);{krisha}

ellipse(360,365,180,360,7,7);

ellipse(375,365,180,360,7,7);

ellipse(360,365,360,180,23,35);

ellipse(354,335,180,360,5,5);{herepica}

ellipse(365,335,180,360,5,5);

ellipse(347,345,180,360,5,5);

ellipse(357,345,180,360,5,5);

ellipse(367,345,180,360,5,5);

ellipse(377,345,180,320,5,5);

ellipse(343,355,180,360,5,5);

ellipse(354,355,180,360,5,5);

ellipse(365,355,180,360,5,5);

ellipse(376,355,180,360,5,5);

setfillstyle(1,11);

floodfill(360,385,15);

{don visokii}

ellipse(350,177,90,230,5,15);{l.bok}

ellipse(350,156,180,355,15,5);{krisha niz}

ellipse(378,156,180,355,15,5);

ellipse(407,156,180,360,15,5);

line(335,155,355,120);{krisha l,bok}

line(421,155,400,120);{krisha p.bok}

ellipse(378,117,180,360,24,5);{krisha verh}

line(362,158,367,123);{herepica}

line(392,158,387,123);

ellipse(358,127,180,357,8,5);

ellipse(377,127,180,357,10,7);

ellipse(397,127,180,357,8,5);

ellipse(356,137,180,357,10,7);

ellipse(376,137,180,357,12,9);

ellipse(400,137,180,357,10,7);

ellipse(353,147,180,355,12,9);

ellipse(377,147,180,355,14,10);

ellipse(404,147,180,355,12,9);

ellipse(370,180,0,180,15,5);{okno}

ellipse(355,185,90,260,3,6);

ellipse(383,195,280,90,5,15);

ellipse(377,209,180,360,6,3);

ellipse(370,184,0,180,11,3);

ellipse(360,189,90,260,2,7);

ellipse(380,195,280,90,3,12);

ellipse(375,205,180,360,6,2);

ellipse(373,193,260,90,3,13);

ellipse(369,193,260,90,3,13);

ellipse(369,193,180,360,13,3);

ellipse(369,190,180,360,13,3);

ellipse(415,220,260,90,4,60);{p.bok}

{Dom yglom}

ellipse(378,312,90,260,4,30);{l.bok}

ellipse(420,343,260,90,5,60);{p.bok}

ellipse(397,400,360,180,23,5);{pol}

ellipse(381,210,260,350,20,75);{krisha}

ellipse(420,210,190,280,20,75);

ellipse(400,285,180,360,20,3);

line(390,300,410,300);{Okno}

line(390,300,390,325);

line(390,325,410,325);

line(410,325,410,300);

line(400,300,400,325);

line(390,313,410,313);

ellipse(399,397,360,180,15,45);{arka}

ellipse(399,397,360,180,12,42);

{dom s krasnoi krishei}

line(430,400,425,310);{l.bok}

line(425,310,440,230);

line(507,230,523,310);{p.bok}

line(523,310,507,400);

line(430,400,507,400);{pol}

ellipse(474,228,180,360,45,5);{krisha niz}

line(428,228,440,195);{l.b}

line(520,228,508,195);{p.b}

ellipse(475,195,180,360,35,5);{verh}

line(450,270,460,250);{okno1}

line(460,250,470,270);

line(470,270,460,290);

line(460,290,450,270);

line(450,270,470,270);

line(460,250,460,290);

line(480,275,470,295);{okno 2}

line(470,295,480,310);

line(480,310,490,295);

line(490,295,480,275);

line(480,275,480,310);

line(470,295,490,295);

ellipse(465,400,360,180,25,70);{arka}

ellipse(467,400,360,180,22,60);

{dom rozovii}

line(617,242,617,400);

line(515,215,595,215);{krisha}

line(595,215,640,270);{p.bok}

ellipse(523,275,180,360,7,7);{krisha niz}

ellipse(538,275,180,360,7,7);

ellipse(553,275,180,360,7,7);

ellipse(568,275,180,360,7,7);

ellipse(583,275,180,360,7,7);

ellipse(598,275,180,360,7,7);

ellipse(613,275,180,360,7,7);

ellipse(567,400,360,180,60,5);{pol}

circle(560,305,17);{okno krugloe}

circle(560,305,13);

line(548,305,572,305);

line(560,292,560,317);

line(550,395,550,340);{dver'}

line(550,340,590,340);

line(590,340,590,395);

circle(560,365,3);

line(550,350,590,350);

line(550,360,590,360);

line(550,370,590,370);

line(550,380,590,380);

{krisha za domom}

{zalivka zeleenii dom}

setfillstyle(1,3); floodfill(210,405,15);

setfillstyle(1,2); floodfill(250,230,15);

setfillstyle(1,2); floodfill(250,270,15);

{okno}

setfillstyle(1,14); floodfill(225,348,15);

setfillstyle(1,14); floodfill(225,325,15);

setfillstyle(1,7); floodfill(225,320,15);

setfillstyle(1,7); floodfill(225,340,15);

{dver'}

setfillstyle(5,6); floodfill(260,365,15);

{oranjevii}

setfillstyle(1,12); floodfill(340,340,15);

{krisha}

setfillstyle(1,6); floodfill(300,190,15);

setfillstyle(1,6); floodfill(300,210,15);

setfillstyle(1,6); floodfill(300,230,15);

setfillstyle(1,6); floodfill(300,255,15);

{okno}

setfillstyle(1,14); floodfill(340,311,15);

setfillstyle(1,7); floodfill(325,296,15);

setfillstyle(1,7); floodfill(327,301,15);

setfillstyle(1,7); floodfill(327,306,15);

setfillstyle(1,7); floodfill(327,311,15);

Setfillstyle(1,7); floodfill(327,316,15);

Setfillstyle(1,7); floodfill(323,316,15);

Setfillstyle(1,7); floodfill(323,311,15);

Setfillstyle(1,7); floodfill(323,306,15);

Setfillstyle(1,7); floodfill(323,301,15);

{krisha}

Setfillstyle(1,4); floodfill(360,370,15);

Setfillstyle(1,4); floodfill(360,350,15);

Setfillstyle(1,4); floodfill(354,335,15);

Setfillstyle(1,4); floodfill(367,345,15);

{visokii}

Setfillstyle(1,5); floodfill(362,270,15);

{okno}

Setfillstyle(1,14); floodfill(385,200,15);

Setfillstyle(1,14); floodfill(375,190,15);

Setfillstyle(1,14); floodfill(375,195,15);

Setfillstyle(1,14); floodfill(373,205,15);

Setfillstyle(1,14); floodfill(365,195,15);

Setfillstyle(1,14); floodfill(379,193,15);

Setfillstyle(1,7); floodfill(379,190,15);

Setfillstyle(1,7); floodfill(379,200,15);

Setfillstyle(1,7); floodfill(370,200,15);

Setfillstyle(1,7); floodfill(370,190,15);

{krisha}

setfillstyle(9,12); floodfill(340,155,15);

setfillstyle(9,12); floodfill(345,145,15);

setfillstyle(9,12); floodfill(350,135,15);

setfillstyle(9,12); floodfill(355,130,15);

setfillstyle(9,12); floodfill(365,155,15);

setfillstyle(9,12); floodfill(370,150,15);

setfillstyle(9,12); floodfill(375,145,15);

setfillstyle(9,12); floodfill(380,130,15);

setfillstyle(9,12); floodfill(395,155,15);

setfillstyle(9,12); floodfill(400,150,15);

setfillstyle(9,12); floodfill(405,140,15);

setfillstyle(9,12); floodfill(403,128,15);

{yglom}

{krisha}

setfillstyle(1,14); floodfill(400,280,15);

{dom}

setfillstyle(1,1); floodfill(397,343,15);

{okno}

setfillstyle(1,7); floodfill(401,304,15);

setfillstyle(1,7); floodfill(398,304,15);

setfillstyle(1,7); floodfill(398,315,15);

setfillstyle(1,7); floodfill(401,315,15);

{Arka}

setfillstyle(1,6); floodfill(399,354,15);

{dom krasnii}

setfillstyle(1,13); floodfill(450,330,15);

{arka}

setfillstyle(1,6); floodfill(450,350,15);

{krasnii}

setfillstyle(6,12); floodfill(478,220,15);

{okno}

setfillstyle(1,7); floodfill(458,260,15);

setfillstyle(1,7); floodfill(463,260,15);

setfillstyle(1,7); floodfill(458,275,15);

setfillstyle(1,7); floodfill(465,275,15);

{okno 2}

setfillstyle(1,7); floodfill(485,287,15);

setfillstyle(1,7); floodfill(478,287,15);

setfillstyle(1,7); floodfill(478,297,15);

setfillstyle(1,7); floodfill(485,297,15);

{rozovii}

setfillstyle(1,5); floodfill(520,220,15);

{dom}

setfillstyle(1,2); floodfill(610,300,15);

{dver'}

setfillstyle(9,1); floodfill(587,393,15);

setfillstyle(1,6); floodfill(587,373,15);

setfillstyle(1,6); floodfill(587,363,15);

setfillstyle(1,6); floodfill(587,353,15);

setfillstyle(1,6); floodfill(587,343,15);

{okno}

setfillstyle(9,7); floodfill(555,319,15);

setfillstyle(1,7); floodfill(555,300,15);

setfillstyle(1,7); floodfill(555,310,15);

setfillstyle(1,7); floodfill(562,307,15);

setfillstyle(1,7); floodfill(562,300,15);

for i:=1 to 15 do begin cvetok(77+k,460,13+i); k:=k+40; end;

k:=0;

for i:=1 to 15 do begin cvetok(135+k,450,i); k:=k+40; end;

{dom bolshoi}

setcolor(15);

setlinestyle(0,1,3);

{krisha}

line(25,100,25,250);

line(25,100,50,100);

line(50,100,130,250);

line(130,250,25,250);

line(50,100,25,150);

line(40,100,25,130); {herepica}

line(25,120,40,120);

line(25,200,45,200);

line(65,200,105,200);

line(27,150,75,150);

setlinestyle(0,1,1);

line(45,150,45,250); {lestnica}

line(65,150,65,250);

line(45,155,65,155);

line(45,160,65,160);

line(45,165,65,165);

line(45,170,65,170);

line(45,175,65,175);

line(45,180,65,180);

line(45,185,65,185);

line(45,190,65,190);

line(45,195,65,195);

line(45,200,65,200);

line(45,205,65,205);

line(45,210,65,210);

line(45,215,65,215);

line(45,220,65,220);

line(45,225,65,225);

line(45,230,65,230);

line(45,235,65,235);

line(45,240,65,240);

line(45,245,65,245);

{okna}

setlinestyle(0,1,3);

rectangle(80,210,100,240);

setlinestyle(0,1,1);

line(90,210,90,240);

line(80,220,100,220);

line(80,230,100,230);

setcolor(15);

setlinestyle(0,1,3);

line(25,250,25,450);

line(130,250,130,330);{steni}

line(130,350,130,450);

line(130,450,25,450);

setcolor(15);

line(25,330,145,330);

line(25,350,155,350);

line(145,330,155,350);

setlinestyle(0,1,1);

line(25,330,35,350);

line(45,330,55,350);

line(65,330,75,350);

line(85,330,95,350);

line(105,330,115,350);

line(125,330,135,350);

setcolor(15);

setlinestyle(0,1,3);

rectangle(30,370,70,390);

rectangle(60,400,90,420);

CIRCLE(70,290,20);

putpixel(70,290,15);

setlinestyle(0,1,1);

line(50,370,50,390);

line(75,400,75,420);

line(84,275,55,306);

line(55,275,84,306);

{zalivka krishi}

setfillstyle(1,11); floodfill(50,152,15);

setfillstyle(1,11); floodfill(50,157,15);

setfillstyle(1,11); floodfill(50,162,15);

setfillstyle(1,11); floodfill(50,167,15);

setfillstyle(1,11); floodfill(50,172,15);

setfillstyle(1,11); floodfill(50,177,15);

setfillstyle(1,11); floodfill(50,182,15);

setfillstyle(1,11); floodfill(50,187,15);

setfillstyle(1,11); floodfill(50,192,15);

setfillstyle(1,11); floodfill(50,197,15);

setfillstyle(1,11); floodfill(50,202,15);

setfillstyle(1,11); floodfill(50,207,15);

setfillstyle(1,11); floodfill(50,212,15);

setfillstyle(1,11); floodfill(50,217,15);

setfillstyle(1,11); floodfill(50,222,15);

setfillstyle(1,11); floodfill(50,227,15);

setfillstyle(1,11); floodfill(50,232,15);

setfillstyle(1,11); floodfill(50,237,15);

setfillstyle(1,11); floodfill(50,242,15);

setfillstyle(1,11); floodfill(50,247,15);

setfillstyle(1,11); floodfill(50,145,15);

setfillstyle(1,3); floodfill(40,152,15);

setfillstyle(1,3); floodfill(70,152,15);

setfillstyle(1,3); floodfill(40,202,15);

setfillstyle(1,3); floodfill(70,202,15);

setfillstyle(1,14); floodfill(84,215,15);

setfillstyle(1,14); floodfill(92,215,15);

setfillstyle(1,14); floodfill(84,222,15);

setfillstyle(1,14); floodfill(94,222,15);

setfillstyle(1,14); floodfill(84,232,15);

setfillstyle(1,14); floodfill(94,232,15);

setfillstyle(1,1); floodfill(27,102,15);

setfillstyle(1,1); floodfill(40,105,15);

setfillstyle(1,1); floodfill(32,125,15);

{zalivka doma}

setfillstyle(9,1); floodfill(30,355,15);

setfillstyle(9,1); floodfill(84,320,15);

setfillstyle(1,11); floodfill(30,332,15);

setfillstyle(1,11); floodfill(27,335,15);

setfillstyle(1,11); floodfill(55,335,15);

setfillstyle(1,11); floodfill(70,335,15);

setfillstyle(1,11); floodfill(90,335,15);

setfillstyle(1,11); floodfill(115,335,15);

setfillstyle(1,11); floodfill(130,335,15);

setfillstyle(1,14); floodfill(35,375,15);

setfillstyle(1,14); floodfill(65,375,15);

setfillstyle(1,14); floodfill(65,405,15);

setfillstyle(1,14); floodfill(85,405,15);

{okno krugloe}

setfillstyle(1,14); floodfill(68,290,15);

setfillstyle(1,14); floodfill(72,290,15);

setfillstyle(1,14); floodfill(70,285,15);

setfillstyle(1,14); floodfill(70,295,15);

{solnce}

setlinestyle(0,1,3);

circle(60,50,30);

setlinestyle(0,1,1);

circle(45,40,5); {glaza}

circle(75,40,5);

circle(45,40,2);

circle(75,40,2);

{zalivka solnca}

setfillstyle(1,14); floodfill(60,40,15);

setfillstyle(1,15); floodfill(43,37,15);

setfillstyle(1,2); floodfill(45,40,15);

setfillstyle(1,15); floodfill(78,43,15);

setfillstyle(1,2); floodfill(75,40,15);

setcolor(4);{rot}

setlinestyle(0,1,3);

ellipse(60,60,180,360,10,5);

{oblaka}

repeat

for i:=1 to 300 do begin

oblako (150+i,70,15);

oblako (200+2*i,30,15);

delay(10000);

oblako (150+i,70,9);

oblako (200+2*i,30,9);

end;

until keypressed;

readln;

closegraph;

end.

Размещено на Allbest.ru

...