Temă temă: Grafica în Turbo Pascal.
Codul culorilor
Negru negru 0
Albastru - albastru 1
Verde-verde 2
Cyan-turcoaz 3
Roșu-roșu 4
Magenta-Zmeură 5
Brown-Brown 6
LightGray-gri deschis 7
DarkGray-gri închis 8
LightBlue - albastru strălucitor 9
LightGreen-verde luminos 10
Tricou luminos LightCyan 11
LightRed-roșu strălucitor 12
LightMagenta-luminos crimson 13
Galben galben 14
Alb-alb 15
Exemplul 1:
Programul care afișează "Sky Sky".
folosește Graph;
var i, Gd, Gm: Integer;
BEGIN
Gd: = VGA; Gm: = VGAHi; InitGraph (Gd, Gm, '.. \ bgi');
Dacă GraphResult = grOk
apoi începe
Pentru i: = 0 până la 1000 nu
PutPixel (aleatoriu (640), aleatoriu (480), aleatoriu (15) +1);
readln
capăt
END.
Ø Cerc (X, Y, R); - construiește un cerc cu centrul X, Y și raza R.
Ø Linia (x1, y1, x2, y2); - construiește un segment de linie dreaptă din punctul cu coordonatele x1, y1 până la punctul cu coordonatele x2, y2.
Ø dreptunghi (x1, y1, x2, y2); - Construiți un dreptunghi cu colțul din stânga sus în punctul cu coordonatele x1, y1 și colțul din dreapta jos în punctul cu coordonatele x2, y2 (laturile sunt paralele cu marginile ecranului)
Exemplul 2:
Un program care afișează diferite forme necompletate (cercuri).
folosește Graph;
const CenterX = 320; CenterY = 240;
var i, Gd, Gm: Integer;
BEGIN
Gd: = VGA; Gm: = VGAHi;
InitGraph (Gd, Gm, '.. \ bgi');
Dacă GraphResult = grOk atunci
Pentru i: = 0 la 23 nu
Cercul (CenterX, CenterY, i * 10);
END.
Un număr de proceduri grafice realizează construcția de figuri umplute - cifre cu buclă închisă, umplut automat imediat după construcție:
Ø SetFillStyle (P, N); - procedura de instalare a ornamentului P = 0,1. 12 și culori cu număr
N pentru forme pline.
o P = 0 - umplere continuă cu culoarea de fundal,
o P = 1 - umplere cu culoarea solidă cu numărul N,
o Р = 2..11 - set standard de ornamente BGI,
o P = 12 - utilizatorul definește ornamentul și culoarea.
Ø Bar (x1, y1, x2, y2); - a construi un dreptunghi plin cu data
coordonatele coloanelor stânga-sus (x1, y1) și colțurile drepte inferioare (x2, y2).
Ø Bar3d (x1, y1, x2, y2, d, t); - să construiască un paralelipiped cu o față plină
față. Coordonatele unghiurilor (x1, y1), (x2, y2), adâncimea d. Variabila t de tip boolean specifică ieșirea feței de sus. La t = TopOn, este afișată legătura superioară, (adevărată) t = TopOff (false) - nr.
Ø FillEllipse (X, Y, Rx, Ry); - construi o elipsă umplută centrată în punctul (X, Y)
și raze (semiaxuri) Rx - orizontal, Ry - vertical.
Ø Sectorul (x, y, a1, a2, Rx, Ry); - construi un sector plin de elipsă. a1 și a2 sunt unghiurile inițiale și finale (în grade), măsurate în sens invers acelor de ceasornic în raport cu direcția axei X.
Ø PieSlice (x, y, a1, a2, R); - a construi un sector plin de cerc cu centrul în punctul respectiv
(x, y) și raza R.
Ø FillPoly (N, M); - completați o figură plată arbitrară cu limita descrisă de
o serie de puncte și N este numărul de puncte de graniță.
3. Sarcina practică.
Desenați o locomotivă, care este descrisă pe diapozitiv (7).
Program paravozzz;
utilizează CRT, grafic;
procedura paravoz;
începe
setfillstyle (1,4);
bar3d (100,280,280,380,25, true);
setfillstyle (1,5);
bar3d (280,180,400,380,25, adevărat);
setcolor (1);
setfillstyle (1, galben);
bar3d (300,200,380,260,0, fals);
setfillstyle (1.12);
bar3d (120,300,260,360.0, fals);
dreptunghi (300,285,380,370);
se încheie;
procedura koleso;
începe
x: = 160;
pentru i: = 1 la 3 nu
începe
setfillstyle (1,1);
fillelipsa (x, 380, 40, 40);
setfillstyle (1,3);
fillelipsa (x, 380,30,30);
x: = x + 100;
se încheie;
se încheie;
var gd, gm, i, x, y: întreg;
începe
gd: = detectează;
initgraph (gd, gm, '');
dacă este grafic<>grok apoi opri (1);
paravoz;
Koleso;
readln; end.
Temă temă: Grafica în Turbo Pascal.
Codul culorilor
Negru negru 0
Albastru - albastru 1
Verde-verde 2
Cyan-turcoaz 3
Roșu-roșu 4
Magenta-Zmeură 5
Brown-Brown 6
LightGray-gri deschis 7
DarkGray-gri închis 8
LightBlue - albastru strălucitor 9
LightGreen-verde luminos 10
Tricou luminos LightCyan 11
LightRed-roșu strălucitor 12
LightMagenta-luminos crimson 13
Galben galben 14
Alb-alb 15
Exemplul 1:
Programul care afișează "Sky Sky".
folosește Graph;
var i, Gd, Gm: Integer;
BEGIN
Gd: = VGA; Gm: = VGAHi; InitGraph (Gd, Gm, '.. \ bgi');
Dacă GraphResult = grOk
apoi începe
Pentru i: = 0 până la 1000 nu
PutPixel (aleatoriu (640), aleatoriu (480), aleatoriu (15) +1);
readln
capăt
END.
Cercul (X, Y, R); - construiește un cerc cu centrul X, Y și raza R.
Linia (x1, y1, x2, y2); - construiește un segment de linie dreaptă din punctul cu coordonatele x1, y1 până la punctul cu coordonatele x2, y2.
dreptunghi (x1, y1, x2, y2); - Construiți un dreptunghi cu colțul din stânga sus în punctul cu coordonatele x1, y1 și colțul din dreapta jos în punctul cu coordonatele x2, y2 (laturile sunt paralele cu marginile ecranului)
Exemplul 2:
Un program care afișează diferite forme necompletate (cercuri).
folosește Graph;
const CenterX = 320; CenterY = 240;
var i, Gd, Gm: Integer;
BEGIN
Gd: = VGA; Gm: = VGAHi;
InitGraph (Gd, Gm, '.. \ bgi');
Dacă GraphResult = grOk atunci
Pentru i: = 0 la 23 nu
Cercul (CenterX, CenterY, i * 10);
END.
Un număr de proceduri grafice realizează construcția de figuri umplute - cifre cu buclă închisă, umplut automat imediat după construcție:
SetFillStyle (P, N); - procedura de instalare a ornamentului P = 0,1. 12 și culori cu număr
N pentru forme pline.
o P = 0 - umplere continuă cu culoarea de fundal,
o P = 1 - umplere cu culoarea solidă cu numărul N,
o Р = 2..11 - set standard de ornamente BGI,
o P = 12 - utilizatorul definește ornamentul și culoarea.
Bar (x1, y1, x2, y2); - a construi un dreptunghi plin cu data
coordonatele coloanelor stânga-sus (x1, y1) și colțurile drepte inferioare (x2, y2).
Bar3d (x1, y1, x2, y2, d, t); - să construiască un paralelipiped cu o față plină
față. Coordonatele unghiurilor (x1, y1), (x2, y2), adâncimea d. Variabila t de tip boolean specifică ieșirea feței de sus. La t = TopOn, este afișată legătura superioară, (adevărată) t = TopOff (false) - nr.
FillEllipse (X, Y, Rx, Ry); - construi o elipsă umplută centrată la (X, Y)
și raze (semiaxuri) Rx - orizontal, Ry - vertical.
Sectorul (x, y, a1, a2, Rx, Ry); - construi un sector plin de elipsă. a1 și a2 sunt unghiurile inițiale și finale (în grade), măsurate în sens invers acelor de ceasornic în raport cu direcția axei X.
PieSlice (x, y, a1, a2, R); - a construi un sector plin de cerc cu centrul în punctul respectiv
(x, y) și raza R.
FillPoly (N, M); - completați o figură plată arbitrară cu limita descrisă de
o serie de puncte și N este numărul de puncte de graniță.
3. Sarcina practică.
Desenați o locomotivă, care este descrisă pe diapozitiv (7).
Program paravozzz;
utilizează CRT, grafic;
procedura paravoz;
începe
setfillstyle (1,4);
bar3d (100,280,280,380,25, true);
setfillstyle (1,5);
bar3d (280,180,400,380,25, adevărat);
setcolor (1);
setfillstyle (1, galben);
bar3d (300,200,380,260,0, fals);
setfillstyle (1.12);
bar3d (120,300,260,360.0, fals);
dreptunghi (300,285,380,370);
se încheie;
procedura koleso;
începe
x: = 160;
pentru i: = 1 la 3 nu
începe
setfillstyle (1,1);
fillelipsa (x, 380, 40, 40);
setfillstyle (1,3);
fillelipsa (x, 380,30,30);
x: = x + 100;
se încheie;
se încheie;
var gd, gm, i, x, y: întreg;
începe
gd: = detectează;
initgraph (gd, gm, '');
dacă graphresultgrok se oprește (1);
paravoz;
Koleso;
readln; end.