Графиката в паскал единица графиката

1 Графика в Pascal единица Графика

2 Свържете допълнителни библиотеки за работа в графичен режим, трябва да се свържете Графика модул. Първата инструкция на програмата трябва да е инструкция използва Графика;

3 Графичен режим Графичен Passal екран (по подразбиране) съдържа 640 пиксела хоризонтално и вертикално 400 пиксела. 640 точки от 400 точки на произход - в горния ляв ъгъл на екрана

Non цвят 0 - Черно 1 - Blue 2 - Green 3 - Blue 4 - Red 5 - Purple 6 - Браун 7 - светло сиво 8 - тъмно сиво 9 - светло синя 10 - ярко зелено 11 - светло синя 12 - 13 ярко червено - горещо розово 14 - жълт 15 - бял

6 графики примитиви Line правоъгълник Circle Ellipse Arc

Линия 7 линия (x1, y1, x2, y2) - тегли чертата, започвайки от точката (x1, y1) и в края на мястото, (x2, y2). Програма liniay; използва Graph; Var GD, г: цяло число; започне GD: = откриване; Initgraph (GD, г, "C: \ т.к. \ BGI '); линия (100,50,500,250); readln; край.

8 Цвят SetColor линия (цвят номер) - задава цвета на писалката е посочено по цвят параметър. Програма liniay; използва Graph; Var GD, г: цяло число; започне GD: = откриване; Initgraph (GD, г, "C: \ т.к. \ BGI '); setcolor (№ цвят); линия (30,30,400,350); readln; край.

9 Инсталация цвят SetBkColor (№ цвят); Поставя текущата цвета на фона на FON на програмата; използва Graph; Var GD, г: цяло число; започне GD: = откриване; Initgraph (GD, г, "C: \ т.к. \ BGI '); SetBkColor (15); readln; край.

10 За да зададете цвят и стил SETFILLSTYLE (№ стил, брой на цвят) - Задава цвят и попълнете стил

12 правоъгълник правоъгълник (x1, y1, x2, y2) - обръща правоъгълник, определена от координатите срещу върховете (х1, Y1) и (x2, y2). Програма pryamougolnik; използва Graph; Var GD, г: цяло число; започне GD: = откриване; Initgraph (GD, г, "C: \ т.к. \ BGI '); Правоъгълник (50,50,200,200); readln; край.

Правоъгълник Бар (x1, y1, x2, y2) показва запълнен правоъгълник с координатите на горния ляв ъгъл (x1, y1) и в долния десен ъгъл (x2, y2). За да се направи пълни форми необходимо: -Set цвят форма: SETCOLOR (цвят номер); -Set цвета и попълнете стил: SETFILLSTYLE (№ стил, брой на цвят); -Narisovat фигура (данни, необходими за запълване); -Zakrasit фигура: FLOODFILL (х, у, № граничен цвят); Когато X, Y - координати на точката в zamkutoy област.

14 кръг (х, у, R) - обръща окръжност с център в (х, у) и радиус R. Обиколка Програма кръг; използва Graph; Var GD, г: цяло число; започне GD: = откриване; Initgraph (GD, г, "C: \ т.к. \ BGI '); Кръг (500,200,100); FloodFill (500,200,4); readln; край. x1, y1 г

ELLIPSE (х, у, L1, L2, Rx, Ry) обръща елиптична дъга от първоначалния ъгъл L1 да konechnogoL2 използване X, Y като координатите на центъра, като хоризонтален (Rx) и вертикална радиус (Ry). Ellipse програма овална; използва Graph; Var GD, г: цяло число; започне GD: = откриване; Initgraph (GD, г, "C: \ т.к. \ BGI '); Елипса (300,260,0,360,260,160); readln; край.

16 кръгова дъга Arc (х, у, R, А1, А2) - обръща дъга от окръжност с център в точката (х, у) и R радиус между две лъчи, образуващи ъгъл А1 и А2 с говедото на ос (А1 и А2 - материали, дефинирани в градуси и броят на часовниковата стрелка). Програма Дъга; използва Graph; Var GD, г: цяло число; започне GD: = откриване; Initgraph (GD, г, "C: \ т.к. \ BGI '); Arc (300,250,150,45,135); readln; край. х, у г

17 Домашна работа Подгответе се за самостоятелна работа по график в Паскал.