Графические процедуры

Структура программы:

program vvv;                          строка заголовка                                                                
uses graph;                            графический модуль                                                            
var d,m:integer;                       координаты целых чисел                                
begin                                                                       
d:=0; m:=0;                              обнулить координаты                                                                 
initgraph(d,m,'c:\Pascal');       Инициализация графики(путь)                                        
  …………………………         (операторы графики)                                                               
readln;                                    Задержать программу                                                             
closegraph;                            Закрытие графического режима                                                                 
end.                                        Конец программы

Операторы цвета:


SetColor(n) – цвет рисования SetBkColor(n) – цвет фона


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


Black -черный – 0 DarkGray - темно-серый - 8
LightBlue - ярко-голубой – 9 Blue - синий - 1
Green - зеленый – 2 LightGreen - ярко-зеленый - 10
LightCyan - ярко-бирюзовый – 11 Cyan - бирюзовый - 3
Red - красный – 4 LightRed - ярко-красный - 12
LightMagenta - ярко-малиновый – 13 Magenta - малиновый -5
Brown - коричневый – 6 Yellow - желтый - 14
White - белый – 15 LightGray - светло-серый - 7

Операторы графики   

SETFILLSTYLE(№ стиля, № цвета); -установить цвет и стиль закраски:                           
1)Line(х1, у1,х2, у2) –линия
2) Rectangle(х1, у1,х2, у2)-прямоугольник
3)Bar(х1, у1,х2, у2)- закрашенный прямоугольник     
4)Circle(х, у,R)- окружность.
5) Агс (х, у, а1, а2, R) -Дуга окружности    
6) Эллипс:  Еllірsе(х,у,а1,а2,R1,R2)
7) Закрашенный эллипс:  Fillеllipse(х,у,R1,R2)
8)Часть закрашенного круга:  РіeSlісе(х,у,а1,а2,R)