Презентация, доклад Графика в Турбо Паскале

изображения графических объектов в графическом режиме Турбо Паскаля.

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

Uses Graph; Переход из текстового режима к графическому (инициализация графики) осуществляется оператором: InitGraph (Gd, Gm, 'way');  Где:   Gd  - имя графического драйвера (параметр-переменная),    Gm - номер графического режима монитора (параметр-переменная);    'way' - дорожка DOS к файлам с графическими драйверами. Обычно драйверы подключаются в режиме автоопределения используемого монитора ПК.

значения координат экрана: GetMaxX; - по оси Х, GetMaxY; - по оси Y.

полное прекращение работы графической системы,   RestoreCrtMode; - переключение в текстовый режим с возможностью возврата к текущим установкам графического режима.

SetBkColor (N); - установить цвет N  для пикселов фона. По умолчанию установлен  черный цвет фона.     Setcolor (N); - установить цвет N для выводимых линий. По умолчанию  установлен  белый цвет линий.     PutPixel (X, Y, N); - высветить цветом N пиксел с координатами X, Y     FloodFill (X, Y, N) - заполнение замкнутой области с границей цвета N.     GetPixel (X, Y); - функция возвращает цвет пикселя с координатами X, Y.

7 DarkGray-темно-серый              8 LightBlue-ярко-голубой            9 LightGreen-ярко-зеленый          10 LightCyan-ярко-бирюзовый      11 LightRed-ярко-красный             12 LightMagenta-ярко-малиновый   13 Yellow-желтый                             14 White-белый                                     15

i, Gd, Gm: Integer;    BEGIN       Gd:=VGA; Gm:=VGAHi; InitGraph (Gd,Gm,'..\bgi');       If  GraphResult=grOk          then  begin                   For i:=0 to 1000  do     PutPixel (random(640),random(480),random(15)+1);                   ReadLn                end    END.

и радиусом R.  Line (x1, y1, x2, y2); - построить отрезок прямой линии от точки с координатами x1, y1 к  точке с координатами x2, y2.  Rectangle (x1, y1, x2, y2); - построить прямоугольник с левым верхним углом в точке с координатами x1, y1 и правым нижним углом  в  точке с координатами x2, y2 (стороны параллельны краям экрана)

CenterX=320; CenterY=240;       var   i, Gd, Gm: Integer; BEGIN       Gd:=VGA; Gm:=VGAHi;       InitGraph (Gd,Gm,'..\bgi');       If  GraphResult=grOk then                    For i:=0 to 23  do                   Circle (CenterX,CenterY,i*10); END.

контуром, автоматически заполняемых сразу после построения :     SetFillStyle(P, N); - процедура установки орнамента Р=0,1, .., 12 и цвета с номером N для заполняемых фигур. o    Р=0 -  сплошное заполнение цветом фона, o    Р=1 -  сплошное заполнение цветом с номером N,  o    Р=2..11 - стандартный набор орнаментов BGI, o    Р=12 - орнамент и цвет определяет пользователь.

координатами левого верхнего (x1,y1) и правого нижнего (x2,y2) углов.

заполненной передней гранью. Координаты углов (x1,y1), (x2,y2), глубина d. Переменная t типа boolean задает вывод верхней грани. При t=TopOn верхняя  грань  показывается, (true) t=TopOff (false) - нет.

в точке (X,Y) и радиусами (полуосями) Rx - по горизонтали, Ry - по вертикали.

описанной массивом  точек, N - число точек границы.

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