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

Министерство образования и науки РФ

ГОУ ВПО МО «Коломенский государственный педагогический институт»

Курсовая работа по информатике на тему:

“Графические возможности TurboPascal 7.0 ”

     выполнил: студент

                                          группы Инф 41 Малышев А.А.

                                          проверил: доц. Гуськова Е.Н.

Коломна 2008

СОДЕРЖАНИЕ

ВВЕДЕНИЕ  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3

1. Использование библиотеки Graph. . . . . . . . . . . . . . . . . . . . . . 4

1.1   Переход в графический режим и возврат в текстовый. . . . . . . . . . . . . . . . 4

1.2   Краткая характеристика графических режимов работы

дисплейных адаптеров . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . 4

2. Процедуры и функции . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .5

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

4. Линии и точки  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 12

5. Многоугольники . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 17

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

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

8. Примеры. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .24

ЗАКЛЮЧЕНИЕ  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 27

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ. . . . . . . . . . . 28

Введение

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

   Существует 2 вида работы монитора: текстовый и графический. Различие между текстовым и графическим режимами работы монитора заключается в возможностях управления выводом визуальной информации. В текстовом режиме минимальным объектом, отображаемым на экране, является символ, алфавитно-цифровой или какой-либо иной. В обычных условиях экран монитора, работающего в режиме алфавитно-цифрового дисплея, может содержать не более 80 символов по горизонтали и 25 символов по вертикали, то есть всего 2000 визуальных объектов. При этом имеются ограниченные возможности по управлению цветом символов. Конечно, в таком режиме можно выводить на экран не только обычный текст, но и некие графические изображения, однако понятно, что качество таких изображений будет вне всякой критики. Тем не менее, в «героическую» эпоху компьютерной эры этот метод был единственным и поэтому очень популярным способом вывода графиков и целых картин на экран (и на принтер). Программистам иногда удавалось создавать настоящие шедевры «компьютерной псевдографики». Но для серьезной работы с изображениями текстовый режим дисплея абсолютно не подходит. Поэтому целью данной работы является:

1.   Рассмотреть дополнительные графические возможности TurboPascal 7.0.

2.   Рассмотреть примеры по расчёту экранных координат.

1. Использование библиотеки GRAPH

Начиная с версии 4.0, в состав Турбо Паскаля включена мощная библиотека гра­фических подпрограмм Graph, остающаяся практически неизменной во всех после­дующих версиях. Библиотека содержит в общей сложности более 50 процедур и функций, предоставляющих программисту самые разнообразные возможности управ­ления графическим экраном. Для облегчения знакомства с библиотекой все входящие в нее процедуры и функции сгруппированы по функциональному принципу.

1.1 ПЕРЕХОД В ГРАФИЧЕСКИЙ РЕЖИМ

И ВОЗВРАТ В ТЕКСТОВЫЙ

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

1.2. ХАРАКТЕРИСТИКА ГРАФИЧЕСКИХ РЕЖИМОВ РАБОТЫ ДИСПЛЕЙНЫХ АДАПТЕРОВ

Настройка графических процедур на работу с конкретным адаптером достигается за счет подключения нужного графического драйвера. Драйвер - это специальная про­грамма, осуществляющая управление теми или иными техническими средствами ПК. Графический драйвер управляет дисплейным адаптером в графическом режиме. Графические драйверы разработаны фирмой Borland практи­чески для всех типов адаптеров. Обычно они располагаются на диске в отдельном подкаталоге BGI в виде файлов с расширением BGI (от англ.: Borland Graphics Interface - графический интерфейс фирмы Borland). Например, CGA.BGI - драйвер для СС4-адаптера, EGAVGA.BGI - драйвер для адаптеров EGA и VGA и т.п.

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

В графическом режиме минимальным объектом, выводом которого может управлять программист, является так называемый пиксел (от английского Pixel, возникшего в результате объединения слов «рисунок» (picture) и «элемент» (element)). Пиксел имеет меньшие размеры по сравнению с символом (на один символ в текстовом режиме отводится площадка размером в несколько пикселов). Его геометрические размеры определяются разрешением монитора. Разрешение монитора обычно задается в виде rx * ry , где rx — количество пикселов на экране по горизонтали, а ry — количество пикселов по вертикали. На практике используются не произвольные, а некоторые определенные значения разрешения. Такими разрешениями являются, Например, 320х200, 640х480, 800х600, 1024х768, 1280х1024 и т.д.

Графические возможности конкретного адаптера определяются разрешением экра­на, т.е. общим количеством пикселей, а также количеством цветов (оттенков), кото­рыми может светиться любой из них. Кроме того, многие адаптеры могут работать с несколькими графическими страницами. Графической страницей называют область оперативной памяти, используемая для создания «карты» экрана, т.е. содержащая информацию о светимости (цвете) каждого пикселя. Ниже приводится краткая харак­теристика графических режимов работы наиболее распространенных адаптеров.

Адаптер CGA (Color Graphics Adapter - цветной графический адаптер) имеет 5 гра­фических режимов. Четыре режима соответствуют низкой разрешающей способности экрана (320 пикселей по горизонтали и 200 по вертикали, т.е. 320x200) и отличаются только набором допустимых цветов - палитрой. Каждая палитра состоит из трех цве­тов, а с учетом черного цвета несветящегося пикселя - из четырех: палитра 0 (светло-зеленый, розовый, желтый), палитра 1 (светло-бирюзовый, малиновый, белый), палит­ра 2 (зеленый, красный, коричневый) и палитра 3 (бирюзовый, фиолетовый, светло-серый). Пятый режим соответствует высокому разрешению 640x200, но каждый пик­сель в этом случае может светиться либо каким-то одним заранее выбранным и одина­ковым для всех пикселей цветом, либо не светиться вовсе, т.е. палитра этого режима содержит два цвета. В графическом режиме адаптер CGA использует только одну страницу.

Адаптер EGA (Enhanced Graphics Adapter - улучшенный графический адаптер) мо­жет полностью эмулировать графические режимы адаптера CGA. Кроме того, в нем возможны режимы: низкого разрешения (640x200, 16 цветов, 4 страницы) и высокого разрешения (640x350, 16 цветов, 1 страница). В некоторых модификациях использует­ся также монохромный режим (640x350, 1 страница, 2 цвета).

Адаптер MCGA (Multi-Color Graphics Adapter - многоцветный графический адап­тер) совместим с CGA, и имеет еще один режим - 640x480, 2 цвета, 1 страница. Такими адаптерами оснащались младшие модели серии ПК PS/2 фирмы IBM. Старшие модели этой серии оснащаются более совершенными адаптерами VGA (Video Graphics Array - графический видеомассив). Адаптер VGA эмулирует режимы адаптеров CGA и EGA и дополняет их режимом высокого разрешения (640x480,16 цветов, 1 страница).

Не так давно появились так называемые cynep-KCL4 адаптеры (SVGA) c разрешени­ем 800x600 и более, использующие 256 и более цветовых оттенков. В настоящее время эти адаптеры получили повсеместное распространение, однако в библиотеке Graph для них нет драйверов. Поскольку SVGA совместимы с VGA, для управления совре­менными графическими адаптерами приходится использовать драйвер EGAVGA.BGI и довольствоваться его относительно скромными возможностями.

Несколько особняком стоят достаточно популярные адаптеры фирмы Hercules. Адаптер HGC имеет разрешение 720x348, его пиксели могут светиться одним цветом (обычно светло-коричневым) или не светиться вовсе, т.е. это монохромный адаптер. Адаптер HGC+ отличается несущественными усовершенствованиями, а адаптер HICC (Hercules In Color Card) представляет собой 16-цветный вариант HGC+.

2. Процедуры и функции

Процедура InitGraph. Инициирует графический режим работы адаптера. Заго­ловок процедуры:

Procedure InitGraph(var Driver,Mode:   Integer,-   Path:   String);

Здесь Driver - переменная типа Integer, определяет тип графического драйвера; Mode - переменная того же типа, задающая режим работы графического адаптера; Path - выражение типа String, содержащее имя файла драйвера и, возможно, маршрут его поиска.

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

Большинство адаптеров могут работать в различных режимах. Для того, чтобы указать адаптеру требуемый режим работы, используется переменная Mode, значени­ем которой в момент обращения к процедуре могут быть такие константы:

const

{Адаптер CGA:}

{Адаптер MCGA:}

{Адаптер EGA:}

{Адаптеры HGC и HGC+:}

{Адаптер ATT400:}

{Адаптер VGA:}

{Адаптер  IBM8514}

Пусть, например, драйвер CGA.BGI находится в каталоге TF42GI на диске С и ус­танавливается режим работы 320x200 с палитрой 2. Тогда обращение к процедуре будет таким:

       Uses Graph;

var      Driver, Mode : Integer;

begin

       Driver := CGA;                                       {Драйвер}

        Mode   := CGAC2;                                       {Режим работы}

       InitGraph(Driver, Mode, 'C:\TP\BGI');

                 . . .

Если тип адаптера ПК неизвестен или если программа рассчитана на работу с лю­бым адаптером, используется обращение к процедуре с требованием автоматического определения типа драйвера:

Driver := Detect;

InitGraph(Driver, Mode, 'C:\TP\BGI');

После такого обращения устанавливается графический режим работы экрана, а при выходе из процедуры переменные Driver и Mode содержат целочисленные значения, определяющие тип драйвера и режим его работы. При этом для адаптеров, способных работать в нескольких режимах, выбирается старший режим, т.е. тот, что закодирован максимальной цифрой. Так, при работе с CG^-адаптером обращение к процедуре со значением Driver = Detect вернет в переменной Driver значение 1 (CGA) и в Mode -значение 4 (CGAHi), а такое же обращение к адаптеру VGA вернет Driver = 9 flfGA) и Mode = 2 fPGAHi).

Функция GraphResult. Возвращает значение типа Integer, в котором закодиро­ван результат последнего обращения к графическим процедурам. Если ошибка не обнаружена, значением функции будет ноль, в противном случае - отрицательное число, имеющее следующий смысл:

После обращения к функции GraphResult признак ошибки сбрасывается, поэтоыу повторное обращение к ней вернет ноль.

Функция GraphErrorMsq. Возвращает значение типа String, в котором по указанному коду ошибки дается соответствующее текстовое сообщение. Заголовок функ­ции:

                         Function GraphErrorMsg(Code:   Integer):  String;

Здесь Code - код ошибки, возвращаемый функцией GraphResult.

Например, типичная последовательность операторов для инициации графического режима с автоматическим определением типа драйвера и установкой максимального разрешения имеет следующий вид:

Var Driver, Mode, Error : Integer;

 begin

Driver := Detect;                                 {Автоопределение драйвера}

InitGraph(Driver, Mode, '');     {Инициируемграфику}

Error := GraphResult;                          {Получаем результат}

if Error <> grOk then                         {Проверяем ошибку}

begin                                         {Ошибка в процедуре инициации}

WriteLn(GraphErrorMsg(Error));     {Выводим сообщение}

end else                                                          {Нет ошибки}

Чаще всего причиной возникновения ошибки при обращении к процедуре InitGraph является неправильное указание местоположения файла с драйвером графи­ческого адаптера (например, файла CGA.BGI для адаптера CGA). Настройка на место­положение драйвера осуществляется заданием маршрута поиска нужного файла в имени драйвера при вызове процедуры InitGraph. Если, например, драйвер зарегист­рирован в подкаталоге DRIVERS каталога PASCAL на диске D, то нужно использовать вызов:

InitGraph(Driver, Mode, 'd:\Pascal\Drivers');

Замечание. Во всех следующих примерах процедура InitGraph вызывается с пара­метром Driver в виде пустой строки. Такая форма обращения будет корректна только в том случае, когда нужный файл графического драйвера находится в текущем каталоге. Для упрощения повторения примеров скопируйте файл, соответствующий адаптеру Вашего ПК, в текущий каталог.

Процедура CloseGraph. Завершает работу адаптера в графическом режиме и восстанавливает текстовый режим работы экрана. Заголовок:

               Procedure CloseGraph;

Процедура RestoreCRTMode. Служит для кратковременного возврата в тексто­вый режим. В отличие от процедуры CloseGraph не сбрасываются установленные параметры графического режима и не освобождается память, выделенная для разме­щения графического драйвера. Заголовок:

               Procedure RestoreCRTMode;

Функция GetGraphMode. Возвращает значение типа Integer, в котором содер­жится код установленного режима работы графического адаптера. Заголовок:

                                Function GetGraphMode:   Integer;

Процедура SetGraphMode. Устанавливает новый графический режим работы адаптера. Заголовок:

                               Procedure SetGraphMode(Mode:   Integer);

Здесь Mode - код устанавливаемого режима.

Следующая программа иллюстрирует переход из графического режима в тексто­вый и обратно:

Uses Graph;

Var Driver, Mode, Error : Integer;

 begin

{Инициируем графический режим}

Driver := Detect;

InitGraph(Driver, Mode, '');

Error := GraphResult;                          {Запоминаем результат}

if Error <> grOk then                         {Проверяем ошибку}

WriteLn(GraphErrorMsg(Error))  {Есть ошибка}

else

begin                                                    {Нет ошибки}

WriteLn ('Это графический режим'); WriteLn ('Нажмите "Enter"...':20); ReadLn;

{Переходим в  текстовый режим} RestoreCRTMode;

WriteLn (' А это текстовый...'); ReadLn;

{Возвращаемся в графический режим} SetGraphMode (GetGraphMode); WriteLn ('Опять графический режим...'); ReadLn; CloseGraph;

end end.

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

Процедура DetectGraph. Возвращает тип драйвера и режим его работы. Заголовок:

Procedure DetectGraph(var Driver,Mode:   Integer);

Здесь Driver - тип драйвера; Mode - режим работы.

В отличие от функции GetGraphMode описываемая процедура возвращает в пере­менной Mode максимально возможный для данного адаптера номер графического режима.

Функция GetDriverName. Возвращает значение типа String, содержащее имя загруженного графического драйвера. Заголовок:

                          Function GetDriverName:   String;

Функция GetMaxMode. Возвращает значение типа Integer, содержащее количест­во возможных режимов работы адаптера. Заголовок:

              Function GetMaxMode: Integer;

Функция GetModeName. Возвращает значение типа String, содержащее разреше­ние экрана и имя режима работы адаптера по его номеру. Заголовок:

                    Function GetModName(ModNumber:   Integer):   String;

Здесь ModNumber - номер режима.

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

Uses Graph;

 Var a,b: Integer;

 begin

a:= Detect;

InitGraph(a, b, '');

WriteLn(GetDriverName);

for а:= 0 to GetMaxMode do WriteLn(GetModeName(a):10);

ReadLn;

CloseGraph; end.

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

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

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

Uses Graph;

 Var a,b:   Integer;

 begin

a := Detect;

InitGraph(a, b, '');

WriteLn(GetMaxX, GetMaxY:5);

ReadLn;ClogeGraph end.

Функции GetX и GetY. Возвращают значения типа Integer, содержащие текущие координаты указателя соответственно по горизонтали и вертикали. Координаты опреде­ляются относительно левого верхнего угла окна или, если окно не установлено, экрана.

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

Procedure SetViewPort(Xl,Yl,X2,Y2:   Integer;   ClipOn:   Boolean);

Здесь Xl...Y2 - координаты левого верхнего (X1,Y1) и правого нижнего (X2,Y2) уг­лов окна; ClipOn - выражение тип Вооlean, определяющее «отсечку» не умещающих­ся в окне элементов изображения.

Координаты окна всегда задаются относительно левого верхнего угла экрана. Если параметр ClipOn имеет значение True, элементы изображения, не умещающиеся в преде­лах окна, отсекаются, в противном случае границы окна игнорируются. Для управления этим параметром можно использовать такие определенные в модуле константы:

const

  ClipOn    = True;              {Включить  отсечку}

  ClipOff = False;           {He включать отсечку}

Следующий пример иллюстрирует действие параметра ClipOn. Программа строит два прямоугольных окна с разными значениями параметра и выводит в них несколько окружностей. Для большей наглядности окна обводятся рамками (см. рис.1).

Puc..1. Отсечка изображения в окне

Uses Graph,CRT;

Var x,y,e: Integer;

xll,yll,xl2,yl2, {Координаты 1-го окна}

x21,x22, {Левый верхний угол 2-ro}

R, {Начальный радиус}

k: Integer;

 begin

DirectVideo := False;{Блокируем прямой доступ к видеопамяти в модуле CRT} {Инициируем графический режим}

 x := Detect; InitGraph(x, у, ''); {Проверяем результат}

 e := GraphResult; if e <> grOk then

WriteLn(GraphErrorMsg(e)) {Ошибка}

 else

     begin             {Нет ошибки}

{Вычисляем координаты с учетом разрешения экрана}

Xll:=GetMaxX div 60;

xl2:=GetMaxX div 3;

yll:= GetMaxY div 4;

yl2:= 2*yll;

R:=(Xl2-Xll) div 4;

x21:= Xl2*2;

x22:=x21+xl2-Xll;

 {Рисуем окна}

WriteLn('ClipOn:':10,'ClipOff:':40);

 Rectangle(xll, yll, xl2, yl2);

 Rectangle(x21, yll, x22, yl2) {Назначаем 1-е окно и рисуем четыре окружности} SetViewPort(xll, yll, xl2, yl2, ClipOn);

 for к. := 1 to 4 do

Circle(0,yll,R*k);

 {Назначаем 2-е окно и рисуем окружности}

 SetViewPort(x21, yll, x22, yl2, ClipOff);

 for к := 1 to 4 do

Circle(0,yll,R*k);

{Ждем нажатия любой клавиши}

 if ReadKey=#0 then к :=ord(ReadKey);

CloseGraph

        end

end.

Процедура GetViewSettings. Возвращает координаты и признак отсечки те­кущего графического окна. Заголовок:

Procedure GetViewSettings(var ViewInfo:  ViewPortType);

Здесь ViewInfo - переменная типа ViewPoriType. Этот тип в модуле Graph опреде­лен следующим образом:

type

ViewPortType = record

xl,yl,x2,y2: Integer; {Координаты окна} Clip      : Boolean {Признак отсечки}

end;

Процедура MoveTo. Устанавливает новое текущее положение указателя. Заголо­вок:

Procedure MoveTo(X,Y.-   Integer);

Здесь X, Y - новые координаты указателя соответственно по горизонтали и вертика­ли.

Координаты определяются относительно левого верхнего угла окна или, если окно не установлено, экрана.

Процедура MoveRel. Устанавливает новое положение указателя в относительных координатах.

Procedure MoveRel(DX,DY:   Integer);

Здесь DX,DY  -приращение новых координат указателя соответственно по горизон­тали и вертикали.

Приращения задаются относительно того положения, которое занимал указатель E моменту обращения к процедуре.

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

Procedure ClearDevice;

Процедура ClearViewPort. Очищает графическое окно, а если окно не опреде­лено к этому моменту - весь экран. При очистке окно заполняется цветом с номером 0 из текущей палитры. Указатель перемещается в левый верхний угол окна. Заголовок:

Procedure ClearViewPort;

В следующей программе на экране создается окно, которое затем заполняется слу­чайными окружностями рис.2). После нажатия на любую клавишу окно очищает­ся. Для выхода из программы нажмите Enter.

Uses CRT,Graph; var

xl,yl,x2,y2,Err: Integer;

 begin

{Инициируем графический режим}

xl := Detect; InitGraph(xl,x2,'');

Err := GraphResult;

WriteLn(GraphErrorMsg(Err))

else

begin {Определяем координаты окна с учетом разрешения экрана}

xl := GetMaxX div 4;

yl := GetMaxY div 4; x2 := 3*xl; y2 := 3*yl; {Создаем окно}

Rectangle(xl,yl,x2,y2);

SetViewPort(xl+l,yl+l,x2-l,y2-l,ClipOn);

 {Заполняем окно случайными окружностями}

repeat

Circle(Random(GetMaxX),Random(GetMaxX), Random(GetMaxX div 5))

until KeyPressed; {Очищаем окно и ждем нажатия Enter}

 ClearViewPort;

OutTextXY(0,0,'Press Enter...'); ReadLn; CloseGraph end

end.

4. Линии и точки

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

                      Procedure PutPixel(X,Y:   Integer;  Color:  Word);

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

Координаты задаются относительно левого верхнего угла окнаили, если окно не установлено, относительно левого верхнего угла экрана.

Следующая программа периодически выводит на экран «звездное небо» и затем гасит его. Для выхода из программы нажмите любую клавишу.

Uses CRT,   Graph;

 type

PixelType = record x,   у  :   Integer; end ;

const N =  5000;                                            (Количество   "звезд"}

var d,r,e,k:   Integer;

xl,yl,x2,y2: Integer;

a:   array   [l..N]   of PixelType;           {Координаты}

begin

{Инициируем графику}

 d   := Detect; InitGraph(d,   r,    '');

e   := GraphResult; if e<>grOk then

                WriteLn(GraphErrorMsg(e)) else begin

{Создаем окно в центре экрана}

 xl  := GetMaxX div 4;

 yl  := GetMaxY div 4;

 x2  := 3*xl; y2 := 3*yl;

Rectangle(xl,yl,x2,y2);

SetViewPort(xl+l,yl+l,x2-l,y2-l,ClipOn);

 {Создаем и запоминаем координаты всех  "звезд"}

 for k   :=   1  to N do with a[k]   do begin

x   := Random(x2-xl); у   := Random(y2-yl) end;

 {Цикл вывода}

repeat

for k   :=  1  to N do

with a[k] do                               {Зажигаем "звезду"}

PutPixel(x,y,white);

 if not KeyPressed then for k := N downto 1 do

with a[k] do                               {Гасим  "звезду"}

PutPixel(x,y,black)

until KeyPressed;

while KeyPressed do k := ord(ReadKey);

 CloseGraph end ; end.

Функция GetPixel. Возвращает значение типа Word, содержащее цвет пикселя с указанными координатами. Заголовок:

                        Function GetPixel(X,Y:   Integer):  Word;

Здесь Х, Y - координаты пикселя.

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

           Procedure Line(Xl,Yl,X2,Y2:   Integer);

ЗдесьХ1...Y1 - координаты начала (X1, Yl) и конца(Xi2, Y2) линии.

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

Uses CRT, Graph;

 Var d,r,e : Integer,-xl,yl,x2,y2: Integer;

begin

{Инициируем графику}

 d := Detect; InitGraph(d, r, ''); e := GraphResult;

 if e <> grOk then

WriteLn(GraphErrorMsg(e))

 else

        begin

{Создаем окно в центре экрана}                                         

xl := GetMaxX div 4; yl := GetMaxY div 4;

x2 := 3*xl; y2 := 3*yl;

Rectangle(xl,yl,x2,y2);

SetViewPort(xl+l,yl+l,x2-l,y2-l,ClipOn);

 {Цикл вывода  случайных линий}

 Repeat

SetColor(succ(Random(16))); {Случайный цвет} Line(Random(x2-xl), Random(y2-yl), Random(x2-xl), Random(y2-yl)) until KeyPressed;

if ReadKey=#0 then d := ord(ReadKey);

CloseGraph end end.

Процедура LineTo. Вычерчивает линию от текущего положения указателя до по-дожения, заданного его новыми координатами. Заголовок:

           Procedure LineTo(X,Y:   Integer);

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

Процедура LineRel. Вычерчивает линию от текущего положения указателя до положения, заданного приращениями его координат. Заголовок:

         Procedure LineRel   (DX,   DY:   Integer);

Здесь DX, DY - приращения координат нового положения указателя. В процедурах LineTo и LineRel линия вычерчивается текущим стилем и текущим цветом.

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

            Procedure SetLineStyle(Type,Pattern,Thick:  Word)

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

const

  SolidLn        = 0;   {Сплошная линия}

  DottedLn      = 1;   {Точечная линия}

  CenterLn      = 2;   {Штрих-пунктирная линия}

  DashedLn      = 3;   {Пунктирная линия}

  UserBitLn    = 4;   {Узор линии определяет пользователь}

Параметр Pattern учитывается только для линий, вид которых определяется поль­зователем (т.е. в случае, когда Type = UserBitLn). При этом два байта параметра Pattern определяют образец линии: каждый установленный в единицу бит этого слова соответствует светящемуся пикселю в линии, нулевой бит - несветящемуся пикселю. Таким образом, параметр Pattern задает отрезок линии длиной в 16 пикселей. Этот образец периодически повторяется по всей длине линии.

Параметр Thick может принимать одно из двух значений:

const

NormWidth  = 1; {Толщина в один пиксель}

 ThickWidth = 3; {Толщина в три пикселя}

Процедура GetLineSettings. Возвращает текущий стиль линий. Заголовок:

    Procedure GetLineSettings(var Stylelnfo:   LineSettingsType)

Здесь Stylelnfo - переменная типа LineSettingsType, в которой возвращается теку­щий стиль линий.

Тип LineSettingsType определен в модуле Graph следующим образом:

type

LineSettingsType = record

LineStyle: Word; {Тип линии}

Pattern  -. Word; {Образец}

Thickness: Word {Толщина} end;

Процедура SetWriteMode. Устанавливает способ взаимодействия вновь выво­димых линий с уже существующим на экране изображением. Заголовок:

                Procedure SetWriteMode(Mode);

Здесь Mode - выражение типа Integer, задающее способ взаимодействия выводимых линий с изображением.

Если параметр Mode имеет значение 0, выводимые линии накладываются на существующее изображение обычным образом (инструкцией MOV центрального процессо­ра). Если значение 1, то это наложение осуществляется с применением логической операции XOR (исключительное ИЛИ): в точках пересечения выводимой линии с имеющимся на экране изображением светимость пикселей инвертируется на обрат­ную, так что два следующих друг за другом вывода одной и той же линии на экран не изменяет его вид.

Режим, установленный процедурой SetWriteMode, распространяется на процедуры Drawpoly, Line, LineRel, LineTo и Rectangle. Для задания параметра Mode можно ис-юльзовать следующие определенные в модуле константы:

const

CopyPut =  0;   {Наложение операцией MOV}

XORPut    = 1;   {Наложение операцией XOR}

В следующем примере на экране имитируется вид часового циферблата (рис. 14.3). Для наглядной демонстрации темп хода «часов» ускорен в 600 раз (см. оператор Delау (100)). При желании Вы сможете легко усложнить программу, связав ее пока­зания с системными часами и добавив секундную стрелку. Для выхода из программы нажмите на любую клавишу.

Uses Graph, CRT;

Var d, r, rl,r2,rr,k,Xl,yl,x2,y2,x01,y01: Integer,

Xasp,Yasp : Word;

 begin

{Инициируем графику}

d:= detect;

InitGraph(d, r, '');

k:= GraphResult;

if k <> grOK then

WriteLn(GraphErrorMSG(к))

         else

         begin

{Определяем отношение сторон и размеры экрана}

xl:= GetMaxX div 2;

 yl:= GetMaxY div 2;

GetAspectRatio(Xasp, Yasp);

{Вычисляем радиусы:}

 r:=round(3*GetMaxY*Yasp/8/Xasp);

 rl:=round(0.9*r);{Часовые деления}

 r2:=round(0.95*г); {Минутные деления}

 {Изображаем циферблат}

Circle(xl,yl,г);        {Первая внешняя окружность} Circle(xl,yl,round(1.02*г)); {Вторая окружность}

 for к := 0 to 59 do      {Деления циферблата}

 begin

if к mod 5=0 then

rr:=rl                                   {Часовые деления}

else

rr:=r2;                                  {Минутные деления}

{Определяем координаты концов делений}

х01:= xl+Round(rr*sin(2*pi*k/60));

 у01:= yl-Round(rr*Xasp*cos(2*pi*k/60)/Yasp);

 x2 := xl+Round(r*sin(2*pi*k/60)) ;

 y2 := yl-Round(r*Xasp*cos(2*pi*k/60)/Yasp);

Line(x01,y01,x2,y2)      (Выводим деление} end;

{Готовим вывод стрелок}

SetWriteMode(XORPut);

 SetLineStyle(SolidLn,0,ThickWidth);

r := 0;                                     {Счетчик минут в  одном часе}

{Цикл вывода стрелок}

 repeat

for к := 0 to 59 do    {k  = минуты}

 if not KeyPressed then begin

{Координаты часовой стрелки}

x2 := xl+Round(0.85*rl*sin(2*pi*r/60/12));

y2 := yl-Round(0.85*rl*Xasp*COs(2*pi*r/60/12)/Yasp);

{Координаты минутной стрелки}

х01 := xl+Round(r2*sin(2*pi*k/60));

yOl := yl-Round(r2*Xasp*cos(2*pi*k/60)/Yasp);

{Изображаем стрелки}

Line(xl,yl,x2,y2);

Line(xl,yl,x01,y01);

Delay(100);  {Для имитации реального темпа

нужно установить задержку 60000}

{Для удаления стрелок выводим их еще раз!}

Line(xl,yl,х01,yOl);

Line(xl,yl,x2,y2) ;{Наращиваем и корректируем счетчик минут в часе};

Inc(r);                                                                                       

if r=12*60 then

r := О

end

until KeyPressed;

if ReadKey=#0 then  k:=ord(ReadKey) ;

CloseGraph end

end.

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

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

                        Procedure Rectangle(XI,Yl,Х2,Y2:   Integer);

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

В следующем примере на экране вычерчиваются 10 вложенных друг в друга пря­моугольников.

Uses Graph, CRT;

 Var d,r,e,xl,yl,x2,y2,dx,dy: Integer;

begin

{Инициируем графику}

 d := Detect; InitGraph(d, r, '');

 e := GraphResult;

if e <> grOK then

WriteLn(GraphErrorMsg(e)) else

 begin

{Определяем приращения сторон}

dx := GetMaxX div 20;

 dy := GetMaxY div 20;

 {Чертим вложенные прямоугольники}

for d := 0 to 9 do

Rectangle(d*dx,d*dy,GetMaxX-d*dx,GetMaxY-d*dy);

 if ReadKey=#0 then d:=ord(ReadKey);

CloseGraph end                                                                                                              j

end.

Процедура DrawPoly. Вычерчивает произвольную ломаную линию, заданную координатами точек излома.

                    Procedure DrawPoly(N:  Word;  var Points)

Здесь N - количество точек излома, включая обе крайние точки; Points - перемен­ная типа PointType, содержащая координаты точек излома.

Координаты точек излома задаются парой значений типа Word: первое определяет горизонтальную, второе - вертикальную координаты. Для них можно использовать следующий определенный в модуле тип:

type

PointType = record

x,y:word

end;

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

Uses Graph;

Const N = 100; (Количество точек графика}

 Var d, r, e: Integer;

m:array [0..N+1] of PointType;

 k : Word;

 begin

{Инициируем графику} d := Detect; InitGraph(d, r, '');

e := GraphResult;

 if e <> grOk then,

WriteLn(GraphErrorMsg(e))

else begin

{Вычисляем координаты графика}

for k := 0 to N do with m[k] do begin

x := trunc(k*GetMaxX/N);

у := trunc(GetMaxY*(-sin(2*Pi*k/N)+l)/2) end;

{Замыкаем график прямой линией}

m[succ(N)].x := m[0] .x;

 m[succ(n)].y := m[0] .у;

DrawPoly(N + 2, m); ReadLn; CloseGraph

 end

end.

В этом примере для проведения горизонтальной прямой используется «замыкание» ломаной - первая и последняя координаты ее точек излома совпадают.

Замечу, что хотя количество точек излома N - выражение типа Word, на самом деле внутри процедуры на этот параметр накладываются ограничения, связанные с конеч­ным размером используемой буферной памяти. Вы можете убедиться в этом с помо­щью, например, изменения N в предыдущем примере: при N==678 график перестанет выводиться на экран, а функция GraphResult будет возвращать значение -6 (не хватает памяти для просмотра областей). Таким образом, для этой программы пороговое зна­чение количества точек излома составляет 679.

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

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

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

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

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

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

Uses Graph, CRT;

 Var d,r,e,x,y: Integer;

 begin

{Инициируем графику}

d := Detect;

 InitGraph(d, r, ' ') ;

e := GraphResult;

if e <> grOK then WriteLn(GraphErrorMsg(e)) else begin

{Создаем окно в центре экрана}

х := GetMaxX div 4;

у := GetMaxY div 4;

Rectangle(x,у,3*х,3*у);

SetViewPort(x+l,y+l,3*x-l,3*y-l,ClipOn);

{Цикл вывода  случайных окружностей}

repeat

SetColor(succ(Random(white)));        {Случайный цвет}

SetLineStyle(0,0,2*Random(2)+1);    {и стиль линии}

 x   := Random(GetMaxX);               {Случайное положение}

у   := Random(GetMaxY);               {центра  окружности}

Circle(x,у,Random(GetMaxY div 4)); until KeyPressed;

if ReadKey=#0  then x  := ord(ReadKey); CloseGraph

      end

 end.

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

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

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

R - радиус.

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

Вот как выглядят две дуги: одна с углами 0 и 90, вторая 270 и 540 градусов (рис. 14.6):

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

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

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

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

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

Uses Graph, CRT;

 Var d,r,e: Integer; xa,ya: Word;

 begin

{Инициируем графику} d := Detect;

InitGraph(d, r, ' ') ;

 e := GraphResult; if e <> grOK then

WriteLn(GraphErrorMsg(e))

else begin

{Первый график}

OutTextXY(50,40,'RX = RY');  {Надпись}

Line (0,100,160,100);        {Ось X}

Line (80,55,80,145);                      {Ось   У}

Ellipse (80,100,180,90,40,40);

{Второй график}

OutTextXY(260,40,'RX = 5*RY');

Line (190,100,410,100);

Line (300,55,300,145);

Ellipse (300,100,0,359,100,20);

{Третий график}

OutTextXY(465,40,'Aspect Ratio');

Line (440,100,600,100);

Line (520,55,520,145);

GetAspectRatio(xa, ya) ;

Ellipse   (520,100,0,270,40,round(40*(xa/ya)));

if ReadKey=#0  then d  := ord(ReadKey);

CloseGraph end end.

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

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

Procedure SetColor(Color: Word);

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

В модуле Graph определены точно такие же константы для задания цвета, как и в модуле CRT .

Функция GetColor. Возвращает значение типа Word, содержащее код текущего цвета. Заголовок:

                Function GetColor: Word;

Функция GetMaxColor. Возвращает значение типа Word, содержащее макси­мальный доступный код цвета, который можно использовать для обращения к SetColor. Заголовок:

Function GetMaxColor: Word;

Процедура SetBkColor. Устанавливает цвет фона. Заголовок: Procedure SetBkColor(Color:   Word);

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

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

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

Uses Graph, CRT;

Const NC: array [0..15] of String [12] =

('Black','Blue','Green','Cyan','Red','Magenta', 'Brown','LightGray','DarkGray','LightBlue', 'LightGreen','LightCyan','LightRed', ¹LightMagenta','Yellow','White'); var

d, r, e, k, color, dx, dy: Integer;

 begin

{Инициируем графику}

 d := Detect; InitGraph(d, r, ");

e := GraphResult;

 if e <> grOK then

WriteLn(GraphErrorMsg(e))

else

begin

{Выводим текст в центре экрана}

OutTextXY(200,GetMaxY div 2,'BACKGROUND COLOR’);

dx -:= GetMaxX div 30;   {Приращение длины}

 dy := GetMaxY div 25;   {Приращение высоты}

 for k := 0 to 9 do     {Выводим 10 прямоугольников}

 Rectangle(k*dx,k*dy,GetMaxX-k*dx,GetMaxY-k*dy);

color := black;        (Начальный цвет фона}

 repeat                                   {Цикл смены фона}

SetBkColor(color);

SetFillStyle(0,Color);

Bar(345,GetMaxY div 2,440,GetMaxY div 2+8);

OutTextXY(345,GetMaxY div 2,NC[color]);

inc(color);

if color > White  then color   := Black until KeyPressed;

if ReadKey=#0  then к   := ord(ReadKey); CloseGraph end end.

Функция GetBkColor. Возвращает значение типа Word, содержащее текущий цвет фона. Заголовок:

Function GetBkColor: Word;

Процедура SetPalette. Заменяет один из цветов палитры на новый цвет. Заго­ловок:

Procedure SetPalette(N:  Word;  Color:   ShortInt);

Здесь N- номер цвета в палитре; Color - номер вновь устанавливаемого цвета.

Данная процедура может работать только с адаптерами EGA или VGA. Она не должна использоваться с IBM8514 или 256-цветным вариантом VGA - для этих адапте­ров предназначена особая процедура SetRGBPalette (см. ниже). Первоначальное раз­мещение цветов в палитрах EGA/VGA соответствует последовательности их описания константами Black,...,White, т.е. цвет с индексом 0 - черный, 1 - синий, 2 - зеленый и т.д. После обращения к процедуре все фрагменты изображения, выполненные цветом с индексом N из палитры цветов, получат цвет Color. Например, если выполнить опе­ратор

SetPalette(2,White) ;

то цвет с индексом 2 (первоначально это - бирюзовый цвет Cyan) будет заменен на белый. Замечу, что цвет с индексом 0 отождествляется с цветом фона и может изме­няться наряду с любым другим цветом.

Функция GetPaletteSize. Возвращает значение типа Integer, содержащее раз­мер палитры (максимальное количество доступных цветов). Заголовок:

Function GetPaletteSize:   Integer;

Процедура GetDefaultPalette. Возвращает структуру палитры, устанавли­ваемую по умолчанию (в режиме автонастройки). Заголовок:

Procedure GetDefaultPalette(var Palette:  PaletteType);

Здесь Palette - переменная типа PaletteType (см. процедуру GetPalette), в которой воз­вращаются размер и цвета палитры.

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

Procedure SetFillStyle(Fill,Color:  Word);

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

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

const

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

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

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

Если фигура незамкнута, заполнение «разольется» по всему экрану.

Следует учесть, что реализованный в процедуре алгоритм просмотра границ замк­нутой фигуры не отличается совершенством. В частности, если выводятся подряд две пустые строки, заполнение прекращается. Такая ситуация обычно возникает при за­полнении небольших фигур с использованием типа LtSlashFill. В фирменном руково­дстве по Турбо Паскалю рекомендуется, по возможности, вместо процедуры FloodFill использовать FillPoly (заполнение прямоугольника).

Процедура Bar. Заполняет прямоугольную область экрана. Заголовок:

Procedure Bar(XI,Y1,X2,Y2: Integer);

Здесь X1...Y2 - координаты левого верхнего (XI, Y1) и правого нижнего (Х2, Y2) углов закрашиваемой области.                                                     т

Процедура закрашивает (но не обводит) прямоугольник текущим образцом узора и текущим цветом, которые устанавливаются процедурой SetFillStyle.

Следующая программа дает красивые цветовые эффекты (закраска случайных прямоугольников).

Uses Graph, CRT; var d, г, е : Integer;

 begin

{Инициируем графику} d := Detect; InitGraph(d, r, '');

 e := GraphResult;

if e <> grOk then

WriteLn(GraphErrorMsg(e)) else begin

{Создаем окно в центре экран}

d := GetMaxX div 4;

r := GetMaxY div 4;

Rectangle(d,r,3*d,3*r);

SetViewPort(d+1,r+1,3*d-l,3*r-l,ClipOn);

{Цикл вывода и закраски случайных многоугольников}

repeat

SetFillStyle(Random(12),Random(succ(GetMaxColor)));

 Bar(Random(GetMaxX),Random(GetMaxY), Random(GetMaxX),Random(GetMaxY));

 until  KeyPressed;

if ReadKey=#0 then d  := ord(ReadKey); CloseGraph

end end.

Процедура ВагЗР. Вычерчивает трехмерное изображение параллелепипеда и за­крашивает его переднюю грань . Заголовок:

Procedure Bar3D   (XI,Y1,X2,Y2,Depth:   Integer;   Top:   Boolean);

8. Примеры

 Нарисовать эмблемы фирм:  1) LG; 2) SONY; 3) PHILIPS; 4) SAMSUNG (рис.1-4,).

Эмблемы известных фирм содержат много любопытной информации. Так два года шла работа над проектом новой эмблемы группы "Samsung". Её динамичный дизайн соответствует облику успешно прогрессирующего и растущего предприятия. Голубой цвет означает стабильность и надёж­ность. Эллипс символизирует движение мира через космос, несёт в себе идею постоянного изменения и обновления. Первая и последняя буквы в слове Samsung слегка выступают за рамку овала, что отражает связь внут­реннего и внешнего, показывает стремление фирмы быть единым со всем миром и служить обществу как единому целому.

Изучая эмблемы как геометрические объекты, можно найти немало интересного и в моделировании их на дисплее. Рассмотрим некоторые эмблемы в качестве упражнений по расчёту экранных координат.

1)

Uses  Crt,Graph;

Var     Gd,Gm,x,y:   Integer;

BEGIN Gd:=Vga;   Gm:=VgaHi;   InitGraph(Gd,Gm,■'); SetColor(Red);   SetFillStyle(1,Red);

FillEllipse(225,240,160,160);           {большой красный круг}

SetColor(White);   SetFillStyle(1,White); FillEllipse(175,180,20,20);         {внутренний белый кружок}

Bar(220,160,235,320);   Bar(230,320,265,305);         {буква L}

Arc(225,240,90,360,125);                                                  {дуга  1}

Arc(225,240,90,360,140);                                                  {дуга  2}

Line(225,100,225,115);                     {черта,соединяющая дуги)

Bar(265,235,365,250);                       {черта в букве G справа)

FloodFill(220,110,White);               {               заливка буквы G}

{                   надпись                 }

SetColor(LightGray);   SetTextStyle(3,0,1); SetUserCharSize(4,l,4,l); for  x:=420   to  430  do

for y:=150   to  160  do OutTextXY(x,y,’LG’); {           смена цвета фона       }

ReadLn;   SetBkColor(LightRed); 

 ReadLn;   SetBkColor(White);

 ReadLn;   CloseGraph 

 END.

Arc(x,y. Integer, StartAngle, EndAngle, r: Word) - процедура рисования дуги радиуса г из центра с координатами (х,у). StartAngle и EndAngle -градусные меры начала и конца дуги. Для заливки замкнутого контура (изображения буквы G) можно использовать универсальную процедуру FloodFill(x,y: Integer, Border: Word). Она заливает область вокруг точки (х,у), ограниченную линиями цвета Border.

2)

Uses Crt,Graph;

Const r: Byte=10;

      draw: Boolean=true;

Var  Gd,Gm,x,y,columns,row: Integer;

BEGIN Gd:=Vga; Gm:=VgaHi; InitGraph(Gd,Gm,’’);

 SetBkColor(LightGray); SetColor(Blue); SetFillStyle(1,Blue);

for columns:=1 to 7 do begin

    for row:=l to 7 do begin

        if columns>5 then Case columns of

              6: draw:=Not(row in [2,3]   );

              7: draw:=Not(row in [1..4.7]);

                      end;

if draw then FillEllipse(170+columns*35,60+row*35,r,r) end;

if columns in [1,3,5] then Inc(r,2) end;

SetTextStyle(l,0,l); SetUserCharSize(3,1,2,1) ;

 for x:=200 to 203 do

for y:=320 to 323 do OutTextXY(x,y,"SONY¹); ReadLn; SetBkColor (White) ;

 ReadLn,SetPalette(l,5) ;

SetBkColor(Cyan); ReadLn; CloseGraph

 END.

Приведенная программа содержит вложенные циклы, параметры кото­рых используются при расчёте координат центров кругов.

3)

Uses Crt,Graph;

Var Gd,Gm,x,y,y0,i,k: Integer;

BEGIN Gd:=Vga; Gm:=VgaHi; InitGraph(Gd,Gm,■');

SetBkColor(Blue); SetColor(White);

for k:=0 to 1 do begin

{  внешний контур  }

Line(220+k,90,220+k,250);

Line(420-k,90,420-k,250);

 Line(220,90-k,420,90-k);

Arc(320,250,180,360,100-k);

Circle(320,250,90+k);     { внутренний круг }

for i:=l to 3 do                          {   3 синусоиды   }

for x:=230 to 410 do PutPixel(x,232+Round(6*Sin(x/15-6))+i*10+k,15);

{ 2 большие звезды }

Х:=270+к*100; у:=205+к*90; MoveTo(х,у-30);

LineTo(x+2,y-2); LineTo(х+30,у);

 LineTo(x+2,y+2); LineTo(x,y+30);

LineTo(x-2,y+2); LineTo(x-30,у) ;

LineTo(х-2,у-2); LineTo(x,y-30);

FloodFill(x,y,White);

{ 2 меньшие звезды }

 x:=290+k*60;  y:=185+k*130; MoveTo(x,y-20);

LineTo(x+l,y-l);  LineTo(x+20,у);

LineTo(x+l,y+l);  LineTo(x,y+20);

 LineTo(x-l,y+l);  LineTo(x-20,y);

 LineTo (x-l,y-l) ; LineTo(x,y-20); FloodFill(x,y,White) end;  {for}

SetFillStylefl,White); SetTextStyle(6,0,4); for x:=238 to 243 do

for y:=100 to 102 do OutTextXY(x,y,'P H I L I P S'); ReadLn; SetBkColor(Cyan);  ReadLn; SetBkColor(Red); ReadLn; CloseGraph END.

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

4)

Uses     Crt,Graph;

Const xl=160;   yl=270;   x2=480;   y2=214; Var      Gd,Gm    :   Integer; x,y,a,b:   Longlnt;

BEGIN Qd:=Vga;   Om:=VgaHi;   InitGraph(Gd,Gm,' ') ;

for x:=150   to  495  do begin

a:=Sgr(x-xl); b:=Sqr(x-x2); for y:=180   to  300  do ^f  Sqrt(a+Sqr(y-y1))+

Sqrt(b+Sqr(y-y2))<334   then PutPixel(x,y,1)

{  else PutPixel (x,y,7)   } end;

SetColor(White);   SetTextStyle (3,0,1); SetUserCharSize(1,1,1,1) ; for x:=202   to 205  do for y:=220   to   223   do  OutTextXY(x,y, 'S A M S  U N G');

ReadLn;   SetBkColor(Cyan);  ReadLn;   SetBkColor(Blue); SetPalette(Blue,White);   SetPalette(White,Blue); ReadLn;   CloseGraph;

END.

ЗАКЛЮЧЕНИЕ

В данной курсовой работе описываются различные процедуры и функции, предназначенные для создания графических объектов в Турбо Паскале.

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

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

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1)  Информатика(Базовый курс) С. В. Симонович, СПб: Питер, 2001г.

2)  Основы языка Turbo Pascal(учебный курс), П. И. Рудаков, М. А. Федотов, Москва: Радио и Связь, 2000г.

3)  Основы программирования в задачах и примерах, А. В. Милов, Харьков: ФОЛИО, 2002г.

4)  Практикум программирования на Turbo Pascal. Задачи, алгоритмы и решения.-2-е изд.-СПб.:ООО»ДиаСофтЮп», 2002.

5)  Практика программирования, Ю. Кетков, А. Кетков, СПб: БХБ/ Петербург, 2002г.

6)  Фаронов В.В. Turbo Pascal 7.0  Начальный курс. Учебное пособие.-М: Издательство «ОМД Групп», 2003.-616 с.:ил.

7) Turbo Pascal: учитесь программировать, О. А. Меженный, Москва: изд.дом «Вильямс», 2001г