A grafika a Turbo Pascal
Lecke Tárgy: A grafika a Turbo Pascal.
színkód
Fekete Fekete 0
Blue - Blue 1
Zöld- zöld 2
Cián-türkiz 3
Red-piros 4
Magenta-Magenta 5
Brown-Brown 6
Lightgray-világosszürke 7
DarkGray-sötétszürke 8
LightBlue- fényes, kék 9
Világoszöld-fényes zöld 10
LightCyan-fényes türkizkék 11
Alapnyomat-élénkvörös 12
LightMagenta-fényes málna 13
Sárga-sárga 14
Fehér-fehér 15
1. példa:
A program, amely megjeleníti a „csillagos ég”.
használja Graph;
var i, Gd, Gm: egész;
BEGIN
Gd: = VGA; Gm: = VGAHi; InitGraph (Gd, Gm, '.. \ bgi');
Ha GraphResult = grokkolom
ezután kezdődik
Az I: = 0 és 1000 do
PutPixel (random (640), random (480), random (15) +1);
ReadLn
vég
END.
Ø Kör (X, Y, R); - össze egy kör középpontjának X, Y és R sugarú
Ø vonal (x1, y1, x2, y2); - építeni egy vonalszakaszt a pont koordinátái x1, y1, hogy a pont a koordinátái x2, y2.
Ø Téglalap (x1, y1, x2, y2); - össze egy téglalapot a bal felső sarokban, a koordináták x1, y1 és jobb alsó sarkában a koordinátákat x2, y2 (oldalai párhuzamosak a széleit a képernyő)
2. példa:
A program, amely megjeleníti a különböző üres alakzatok (körök).
használja Graph;
const centerX = 320; CenterY = 240;
var i, Gd, Gm: egész;
BEGIN
Gd: = VGA; Gm: = VGAHi;
InitGraph (Gd, Gm, '.. \ bgi');
Ha GraphResult = grokkolom majd
Az i: = 0 és 23 do
Kör (centerX, CenterY, i * 10);
END.
Számos grafikus rutinokat épít teli formák - formák a zárt automatikusan feltöltődik, amint az építőiparban:
Ø SetFillStyle (P, N); - díszítésére telepítési eljárás F = 0,1. 12 a számát és színét
Az N kitölthető alakzatok.
P o = 0 - töltés egy egyszínű háttér,
P o = 1 - egy teljes feltöltés a szín számát N,
o P = 2..11 - egy szabványos BGI dísztárgyak,
o p = 12 - dísz és a szín a felhasználó által megadott.
Ø Bar (x1, y1, x2, y2); - össze egy téglalapot tölteni az előírt
bal felső koordinátáit (x1, y1), és a jobb alsó (x2, y2) szögek.
Ø Bar3d (x1, y1, x2, y2, d, t); - Ki kell építeni egy doboz tele előtt
arc. szög koordináták (x1, y1), (x2, y2), a d mélység. Logikai változó t jelzi a kimeneti típus felső oldala. A t = topon szuprémum látható, (igaz) t = TopOff (hamis) - nincs.
Ø FillEllipse (X, Y, Rx, Ry); - építeni egy teljes ellipszis központja (X, Y)
és sugárral (ellipszis) Rx - vízszintesen, Ry - függőlegesen.
Ø Sector (x, y, A1, A2, Rx, Ry); - építeni egy teljes ellipszis ágazatban. A1 és A2 jelentése a kezdő és befejező szögek (c) fok, az óramutató járásával ellentétes irányban van az X tengellyel
Ø PieSlice (x, y, A1, A2, R); - Ki kell építeni egy olyan ágazatban kitöltött kör középpontja az a pont,
(X, y) és a sugara R.
Ø FillPoly (n, m); - töltse tetszőleges síkidom a kerettel leírt
Pontsorozatokban, N - a pontok száma a határ.
3. Gyakorlat.
Döntetlen a vonat, amely látható a szán (7).
Program paravozzz;
használja crt, grafikon;
eljárás paravoz;
kezdődik
setfillstyle (1,4);
bar3d (100,280,280,380,25, true);
setfillstyle (1,5);
bar3d (280,180,400,380,25, true);
setcolor (1);
setfillstyle (egy, sárga);
bar3d (300,200,380,260,0, false);
setfillstyle (1,12);
bar3d (120,300,260,360,0, false);
téglalap (300.285.380.370);
végén;
eljárás Koleso;
kezdődik
X: = 160;
i: = 1-től 3 do
kezdődik
setfillstyle (1,1);
fillellipse (x, 380,40,40);
setfillstyle (1,3);
fillellipse (x, 380,30,30);
X: = x + 100;
végén;
végén;
var gd, GM, i, x, y: integer;
kezdődik
GD: = észlelni;
initgraph (gd, GM, '');
ha graphresult<>grokkolni majd leállítása (1);
paravoz;
koleso;
readln; végén.
Lecke Tárgy: A grafika a Turbo Pascal.
színkód
Fekete Fekete 0
Blue - Blue 1
Zöld- zöld 2
Cián-türkiz 3
Red-piros 4
Magenta-Magenta 5
Brown-Brown 6
Lightgray-világosszürke 7
DarkGray-sötétszürke 8
LightBlue- fényes, kék 9
Világoszöld-fényes zöld 10
LightCyan-fényes türkizkék 11
Alapnyomat-élénkvörös 12
LightMagenta-fényes málna 13
Sárga-sárga 14
Fehér-fehér 15
1. példa:
A program, amely megjeleníti a „csillagos ég”.
használja Graph;
var i, Gd, Gm: egész;
BEGIN
Gd: = VGA; Gm: = VGAHi; InitGraph (Gd, Gm, '.. \ bgi');
Ha GraphResult = grokkolom
ezután kezdődik
Az I: = 0 és 1000 do
PutPixel (random (640), random (480), random (15) +1);
ReadLn
vég
END.
Kör (X, Y, R); - össze egy kör középpontjának X, Y és R sugarú
vonal (x1, y1, x2, y2); - építeni egy vonalszakaszt a pont koordinátái x1, y1, hogy a pont a koordinátái x2, y2.
Téglalap (x1, y1, x2, y2); - össze egy téglalapot a bal felső sarokban, a koordináták x1, y1 és jobb alsó sarkában a koordinátákat x2, y2 (oldalai párhuzamosak a széleit a képernyő)
2. példa:
A program, amely megjeleníti a különböző üres alakzatok (körök).
használja Graph;
const centerX = 320; CenterY = 240;
var i, Gd, Gm: egész;
BEGIN
Gd: = VGA; Gm: = VGAHi;
InitGraph (Gd, Gm, '.. \ bgi');
Ha GraphResult = grokkolom majd
Az i: = 0 és 23 do
Kör (centerX, CenterY, i * 10);
END.
Számos grafikus rutinokat épít teli formák - formák a zárt automatikusan feltöltődik, amint az építőiparban:
SetFillStyle (P, N); - díszítésére telepítési eljárás F = 0,1. 12 a számát és színét
Az N kitölthető alakzatok.
P o = 0 - töltés egy egyszínű háttér,
P o = 1 - egy teljes feltöltés a szín számát N,
o P = 2..11 - egy szabványos BGI dísztárgyak,
o p = 12 - dísz és a szín a felhasználó által megadott.
Bar (x1, y1, x2, y2); - össze egy téglalapot tölteni az előírt
bal felső koordinátáit (x1, y1), és a jobb alsó (x2, y2) szögek.
Bar3d (x1, y1, x2, y2, d, t); - Ki kell építeni egy doboz tele előtt
arc. szög koordináták (x1, y1), (x2, y2), a d mélység. Logikai változó t jelzi a kimeneti típus felső oldala. A t = topon szuprémum látható, (igaz) t = TopOff (hamis) - nincs.
FillEllipse (X, Y, Rx, Ry); - építeni egy teljes ellipszis központja (X, Y)
és sugárral (ellipszis) Rx - vízszintesen, Ry - függőlegesen.
Sector (x, y, A1, A2, Rx, Ry); - építeni egy teljes ellipszis ágazatban. A1 és A2 jelentése a kezdő és befejező szögek (c) fok, az óramutató járásával ellentétes irányban van az X tengellyel
PieSlice (x, y, A1, A2, R); - Ki kell építeni egy olyan ágazatban kitöltött kör középpontja az a pont,
(X, y) és a sugara R.
FillPoly (n, m); - töltse tetszőleges síkidom a kerettel leírt
Pontsorozatokban, N - a pontok száma a határ.
3.Prakticheskoezadanie.
Döntetlen a vonat, amely látható a szán (7).
Program paravozzz;
használja crt, grafikon;
eljárás paravoz;
kezdődik
setfillstyle (1,4);
bar3d (100,280,280,380,25, true);
setfillstyle (1,5);
bar3d (280,180,400,380,25, true);
setcolor (1);
setfillstyle (egy, sárga);
bar3d (300,200,380,260,0, false);
setfillstyle (1,12);
bar3d (120,300,260,360,0, false);
téglalap (300.285.380.370);
végén;
eljárás Koleso;
kezdődik
X: = 160;
i: = 1-től 3 do
kezdődik
setfillstyle (1,1);
fillellipse (x, 380,40,40);
setfillstyle (1,3);
fillellipse (x, 380,30,30);
X: = x + 100;
végén;
végén;
var gd, GM, i, x, y: integer;
kezdődik
GD: = észlelni;
initgraph (gd, GM, '');
ha graphresultgrok majd leállítása (1);
paravoz;
koleso;
readln; végén.