Grafica din unitate Graficul pascal

1 Grafică în unitatea Pascal Graph

2 Conectați biblioteci suplimentare pentru a lucra în modul grafic, trebuie să vă conectați modulul grafic. Prima instrucțiune a programului ar trebui să fie de instrucțiuni utilizează grafic;

3 Modul grafic ecran grafic Passal (implicit) cuprinde 640 pixeli pe orizontală și pe verticală 400 pixeli. 640 puncte 400 puncte origine - colțul din stânga sus al ecranului

Non culoare 0 - Negru 1 - Albastru 2 - Verde 3 - Albastru 4 - Rosu 5 - Violet 6 - Maro 7 - gri deschis 8 - gri închis 9 - albastru strălucitor 10 - luminos verde 11 - albastru strălucitor 12 - 13 roșu aprins - roz 14 - 15 galben - alb

6 grafica Primitive Linia dreptunghi Cercul elipsă Arc

Linia 7 linie (x1, y1, x2, y2) - trage o linie pornind de la punctul (x1, y1) și se termină în punctul (x2, y2). Programul liniay; utilizează Graph; Var gd, gm: integer; începe gd: = detecta; Initgraph (gd, gm, 'c: \ bp \ BGI'); line (100,50,500,250); readln; end.

8 linii Color setcolor (număr de culoare) - setează culoarea stilou specificată de culoare parametru. Programul liniay; utilizează Graph; Var gd, gm: integer; începe gd: = detecta; Initgraph (gd, gm, 'c: \ bp \ BGI'); setcolor (№ culoare); line (30,30,400,350); readln; end.

9 Instalarea culorii SetBkColor (№ culoare); Setează culoarea de fundal curentă a programului Fon; utilizează Graph; Var gd, gm: integer; începe gd: = detecta; Initgraph (gd, gm, 'c: \ bp \ BGI'); SetBkColor (15); readln; end.

10 Pentru a seta culoarea și stilul SETFILLSTYLE (№ stil, numărul de culoare) - Setează culoarea și umple stilul

12 dreptunghi dreptunghi (x1, y1, x2, y2) - desenează un dreptunghi specificat prin coordonatele opuse noduri (x1, y1) și (x2, y2). Programul pryamougolnik; utilizează Graph; Var gd, gm: integer; începe gd: = detecta; Initgraph (gd, gm, 'c: \ bp \ BGI'); Dreptunghi (50,50,200,200); readln; end.

Dreptunghi Bar (x1, y1, x2, y2) afișează un dreptunghi umplut cu coordonatele colțul din stânga sus (x1, y1) și colțul din dreapta jos (x2, y2). Pentru a desena forme umplute necesar: -Set culoare forma: setcolor (număr de culoare); -Stabiliți culoarea și umple stil: SETFILLSTYLE (№ stil, numărul de culoare); figura -Narisovat (datele necesare pentru umplere); figura -Zakrasit: FLOODFILL (x, y, № culoare de frontieră); Acolo unde x, y - coordonatele punctului în zona zamkutoy.

14 Circle (x, y, r) - desenează un cerc cu centrul la (x, y) și raza r. Circumferința cerc program; utilizează Graph; Var gd, gm: integer; începe gd: = detecta; Initgraph (gd, gm, 'c: \ bp \ BGI'); Circle (500,200,100); FloodFill (500,200,4); readln; end. x1, y1 r

ELLIPSE (x, y, L1, L2, Rx, Ry) trage un arc eliptic din unghiul inițial L1 la konechnogoL2 folosind X, Y ca și coordonatele centrului, ca orizontală (Rx) și verticală raza (Ry). oval elipsă program; utilizează Graph; Var gd, gm: integer; începe gd: = detecta; Initgraph (gd, gm, 'c: \ bp \ BGI'); Elipsă (300,260,0,360,260,160); readln; end.

16 arc circular Arc (x, y, r, a1, a2) - atrage un arc de cerc cu centrul în punctul (x, y) și r o rază cuprinsă între două raze care formează unghiuri a1 și a2 cu OX axa (a1 și a2 - materialul, definit în grade și numărate sensul acelor de ceasornic). Duga program; utilizează Graph; Var gd, gm: integer; începe gd: = detecta; Initgraph (gd, gm, 'c: \ bp \ BGI'); Arc (300,250,150,45,135); readln; end. x, y r

17 Tema Pregătirea pentru munca independentă în program în Pascal.