Prezentare pe tema „Grafica în ABC Pascal”. Prezentare pe tema „Grafica în ABC Pascal” Prezentarea capabilităților grafice ale mediului de programare pascal abc

Serogodskaya N.I. Scoala GBOU Nr. 118 Districtul Administrativ Sud-Vest

Modul grafic

Profesor de informatică GBOU scoala Nr. 118 Districtul Administrativ Sud-Vest

Serogodskaya N.I.

Moscova

Lectia 1

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Goluri

Educational:

introducerea studenților în mediul software Pascal ABC și structura unui program în Pascal;

să formeze la elevi cunoştinţe primare privind aplicarea materialului studiat.

Educational:

invata sa analizezi, sa generalizezi si sa sistematizezi;

îmbogăți vocabularul elevilor.

Educational:

dezvoltarea culturii informaționale a elevilor, capacitatea de activitate independentă și colectivă și de reflecție.

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

• Elevii ar trebui să știe:
• comenzi și funcții de bază în mediul GraphPascal ABC;
• reguli pentru proiectarea și funcționarea programului;
• Elevii ar trebui să fie capabili să:
• dezvoltarea de programe pentru desenarea primitivelor grafice;
• efectuează acțiunile necesare cu programul;
• dezvolta proceduri cu și fără parametri pentru desenarea obiectelor;
• dezvoltarea de programe bazate pe proiecte standard de algoritm;
• În plus: rezolva probleme de grafică mai complexe

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Pentru a lucra în modul grafic, trebuie să conectați modulul GraphABC :

Ecranul grafic PassalABC conține 640 puncte de orizontală și 400 puncte vertical.

Vă rugăm să rețineți că originea este colțul din stânga sus al ecranului, spre deosebire de axele de coordonate din matematică

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

CONTROLUL ECRANULUI

SetWindowWidth(w) - setează lățimea ferestrei grafice;

SetWindowHeight(h) - setează înălțimea ferestrei grafice;

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Fereastră curată; - șterge fereastra grafică cu culoarea albă.

ClearWindow (cl numele culorii ); - șterge fereastra grafică cu culoarea specificată.

ClearWindow(clMoneyGreen);

Culoarea banilor verzi

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Primitive grafice

• Punct
• Linia
• Dreptunghi
• Cerc
• Elipsă
• Sector

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

SetPixel(x,y,cl numele culorii ) - pictează un pixel cu coordonatele (x,y,) cu culoare

SetPixel(300.200,clred);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

LineTo(x,y) - desenează un segment din poziția curentă a stiloului până la punctul (x,y); Coordonatele stiloului devin, de asemenea, egale cu (x,y).

începe LineTo(300.200);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Linii

Linie(x1,y1,x2,y2) - desenează un segment cu începutul în punctul (x1,y1) și sfârșitul în punctul (x2,y2).

linie (100,50,500,250);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Culorile folosite

clNegru - negru clViolet - violet clAlb - alb clMaroon - Roșu-închis clRed - roșu clNavy - Albastru marin clVerde - verde clMaro - maro clAlbastru - albastru clSkyBlue - albastru clGalben - galben clCream - cremă

clAqua - turcoaz cloOlive – măsline clFuchsia - liliac clTeal - albastru verde clGray - gri inchis clLime - verde deschis clMoneyGreen – culoarea banilor verzi clLtGray - gri deschis clDkGray - gri inchis clMedGray - gri clArgint - argint

Random(16777215) – o culoare aleatorie din întreaga paletă de culori Pascal

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Culoarea liniei

SetPenColor(culoare) - setează culoarea stiloului specificată de parametru culoare .

setpencolor(clred);

linie (30,30,400,350);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Linie punctata

SetPenStyle(); -

setează stilul stiloului specificat de număr.

setpencolor(clred);

SetPenStyle(1); (1 - cursă lungă)

Linie (10.100.350.100);

SetPenStyle(2); (2 - cursă scurtă)

Linie(10,125,350,125);

SetPenStyle(3); (3 - linie punctată liniuță)

Linie (10.150.350.150);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Grosimea liniei

SetPenWidth(n) - setează lățimea (grosimea) stiloului la n pixeli.

setpenwidth(20);

setpencolor(clred);

linie (30,30,400,350);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Triunghi

Trasate de proceduri

Linie(x1,y1,x2,y2); LineTo(x,y);

Programul treugolnik;

setpenwidth(20);

setpencolor(clPurple);

linie(300.100.500.300);

lineto(100.300);

lineto(300.100);

inundare (300.200, clSkyBlue);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Dreptunghi

dreptunghi (x1,y1,x2,y2) - desenează un dreptunghi specificat de coordonatele vârfurilor opuse (x1,y1) și (x2,y2)).

Programul pryamougolnik;

dreptunghi (50,50,200,200);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Culoare de umplere

FloodFill(x,y,culoare) - Umple o zonă de o culoare cu culoare, începând din punctul (x,y).

Programul pryamougolnik;

dreptunghi (50,50,200,200);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Umplere cu pensula

SetBrushColor(culoare) - setează culoarea pensulei.

Umplerea periei se extinde până la buclă închisă, a cărui descriere urmează procedura de setare a culorii pensulei.

Program filling_kist;

SetBrushColor( clMoneyGreen);

dreptunghi (50,50,300,300);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Umplere cu pensula

SetBrushStyle (număr de la 0 la 7 sau nume) - setează stilul pensulei, specificat printr-un număr sau constantă simbolică.

Programul p12_zalivka;

folosește GraphABC;

SetBrushColor(clAqua);

SetBrushStyle(1);

dreptunghi (10,10,100,100);

SetBrushColor(clRed);

SetBrushStyle(2);

dreptunghi (110,10,200,100);

SetBrushColor(clBlue);

SetBrushStyle(3);

dreptunghi (210,10,300,100);

SetBrushColor(clGreen);

SetBrushStyle(4);

dreptunghi (10,110,100,210);

SetBrushColor(clYellow);

SetBrushStyle(5);

dreptunghi (110,110,200,210);

SetBrushColor(clBlack);

SetBrushStyle(6);

dreptunghi (210,110,300,210);

Stilul implicit este 0 – umplere de culoare solidă.

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Umplere cu pensula

SetBrushPicture('fname') -

setează modelul stocat în fișierul fname ca model pentru umbrire cu pensula,în acest caz, culoarea actuală a pensulei este ignorată la pictură.

începe SetBrushPicture("brush4.bmp"); Elipse(0,0,640,400);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Culoarea și grosimea conturului

sunt date de proceduri SetPenWidth(w); SetPenColor(culoare);

Programul pryamougolnik;

SetPenColor(clred);

SetPenWidth(20);

dreptunghi (50,50,200,200);

FloodFill(100.100, clSkyBlue);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Cerc

Cerc(x,y,r) - desenează un cerc cu centrul în punctul (x,y) și raza r .

Cerc(500.200.100);

FloodFill (500.200, clVerde);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Elipsă

Elipsa(x1,y1,x2,y2) - desenează o elipsă definită de dreptunghiul său circumscris cu coordonatele vârfurilor opuse (x1,y1) și (x2,y2).

Elipse(50,50,200,350);

FloodFill(50+100,50+100,clred);

Elipse(250.150.550.300);

FloodFill(250+100,150+100,clBlue);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Arc de cerc

Arc(x,y,r,a1,a2)- Desenează un arc de cerc cu centrul în punctul (x,y) și raza r, închis între două raze care formează unghiuri a1 și a2 cu axa OX (a1 și a2 sunt reale, specificate în grade și numărate în sens invers acelor de ceasornic).

SetPenWidth(10);

Arc(300,250,150,45,135);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Sector

Placintă(x,y,r,a1,a2) - desenează un sector de cerc delimitat de un arc (parametrii procedurii au aceeași semnificație ca în procedura Arc).

Plăcintă (300,200,100,0,90);

FloodFill(300+10,200-10,clAqua);

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Bibliografie

• Fedorenko Yu. Algoritmi și programe în Turbo Pascal .
• Faronov V.V. Turbo Pascal 7.0. Curs pentru incepatori. - Cunoașterea, 1998. -620 p.
• Gryzlov V.I., Gryzlova T.P. Turbo Pascal 7.0. - M.: „DMK”, 2000. - 416 p.
• Zuev E.A. Limbajul de programare Turbo Pascal 6.0. - M.: Unitech, 1992. - 298 p., ill.
• Zuev E.A. Turbo Pascal. Programare practică .

Serogodskaya N.I. Școala Gimnazială GBOU nr. 1 clădirea 2

Vă mulțumim pentru atenție!

Grafică în mediul de programare

Turbo Pascal

Profesor EADC: Neverova I.Yu.

Planul lecției:

• Caracteristici de conectare a modului grafic în mediul de programare Turbo Pascal
• Întocmirea structurii programului
• Calculul coordonatelor pentru proceduri
• Caracteristici ale desenului cu umplere de contur și culoare
• Revizuirea programelor de exemplu

IG. Semakin, A.P. Shestakov. Fundamentele programarii, pp.88-98, 398-409.

Capacitățile grafice ale limbajului Turbo Pascal - bibliotecă Graph

• Conectarea unei biblioteci grafice este specificată în program utilizând următoarea procedură:

• Pentru a seta modul ecran grafic, utilizați următoarea procedură:

InitGraph(Var Driver, Mode: Integer, Path: String);

Calea către biblioteca grafică

Modul de operare al driverului

Cod șofer

Moduri de operare a programelor grafice

• Modul text. Folosit pentru a scrie un program. Trecerea de la modul text program la modul grafic de execuție a programului se realizează folosind procedura RUN sau tastele Ctrl+F9.
• Modul grafic. Imaginea este construită din puncte individuale (pixeli). Modul de funcționare al driverului grafic VGAHi corespunde unei grile grafice de 640x480 pixeli, cu o paletă de 16 culori, detectarea automată a tipului de driver și instalarea modului grafic. Ieșiți din program pentru a programa modul text apăsând tasta Enter.

Structura programului

Program ricunok; (titlul programului)

Utilizează Graficul; (conectarea unei biblioteci grafice)

Var Dr, Md: întreg; (descrierea variabilelor driverului)

Început (începutul corpului programului)

Dr:= Detect ; (tip șofer)

InitGraph(Dr, Md,‘C:\TP 70\BGI’); (activați grafica cu

biblioteca de grafice)

ReadLn ; (întârziere program)

Sfârşit. (sfârșitul programului)

Calculul coordonatelor pentru procedurile de inferență a figurilor geometrice

Bar (50.100.150.150)

Fillelipse(250,125,25,25)

Monitor de tip VGA

Utilizarea procedurilor grafice

Un program care afișează un steag alb japonez cu un cerc roșu în centru

pe un fundal de ecran turcoaz.

Var Dr, Md: Integer;

InitGraph(Dr, Md, 'C:\TP70\BGI');

ClearViewPort; (Ștergerea ecranului, pentru a seta fundalul ecranului)

SetBkColor(Cyan); (Setați culoarea de fundal a ecranului la turcoaz)

SetFillStyle(1, 15); (Culoarea umpluturii dreptunghiulare în funcție de model și culoare)

Bar (10, 10, 410, 210); (Desenarea unui dreptunghi umplut după coordonate)

SetColor(4); (Setarea culorii liniilor cercului)

Cercul (210, 110, 30); (Desenarea unui cerc cu coordonatele centrului și raza)

SetFillStyle(1, 4); (Culoarea umplerii cercului în funcție de model și culoare)

FloodFill(200, 100, 4); (Umplerea unei forme închise cu culoare în jurul coordonatei până la margini)

ReadLn ; (întârziere program)

CloseGraph ; (ieșiți din modul grafic)

Sfârşit. (sfârșitul corpului programului)

Program care afișează o diagramă bloc

var dr,md:intger;

începe dr:=detecta;

setlinestyle(0,1,3);

elipsa(320,40,0,360,50,10);

linie (320,50,320,70);

linie (270,70,390,70); linie (390,70,370,100); linie (370,100,250,100); linie (250,100,270,70); linie (320,100,320,120);

dreptunghi (260,120,380,150);

linie (320,150,320,170); linie (320,170,400,190); linie (400,190,320,210); linie (320,210,240,190); linie (240,190,320,170);

linie (240,190,200,190); linie (200,190,200,210);

dreptunghi (140,210,260,240);

linie (200,240,200,260);

dreptunghi (140,260,260,290);

linie (200,290,200,310);

Linie (140,310,260,310); Linie (260,310,240,340); Linie (240,340,120,340); Linie (120,340,140,310); linie (200,340,200,360);

linie (200,360,100,360); linie (100,360,100,170); linie (100,170,320,170); linie (400,190,440,190);

linie (440,190,440,380); linie (440,380,320,380); linie (320,380,320,400);

elipsa(320,410,0,360,50,10);

settextstyle(7,0,2);

outtextXY(300,75,’F"); outtextXY(300,125,"N:=0"); outtextXY(292,178,'N

Rezultatul executării programului

Scrieți un program care să afișeze următoarea figură

Program paravoz;

var dr,md:intger;

începe dr:=detecta;

initgraph(dr,md,"C:\tp70\bgi");

SetFillStyle(1, 2);

Bar (150,30,250,225);

SetFillStyle(1, 1);

Bar (180,55,220,115);

SetFillStyle(1, 2);

Bar (250,120,450,225);

Linie(350,65,390,65);

Linie(350,65,360,120);

Linie (390,65,380,120);

Linie(380,120,360,120);

SetFillStyle(1,1);

Sector(420,245,0,360,20,20);

Sector(300,245,0,360,20,20);

Sector(185,245,0,360,20,20);

SetFillStyle(1,7);

Sector(400,50,0,360,30,10);

Sector(425,25,0,360,20,10);

Sector(445,5,0,360,10,5);

Teme pentru acasă

În caietul de lucru Subiectul nr. 4, finalizați sarcinile 1 și 2 privind utilizarea procedurilor grafice.

Tabelul procedurilor grafice de bază din Anexa 4.

Gestionarea ferestrelor
SetWindowSize(l,h);
setează dimensiunile ferestrei grafice
SetWindowWidth(w);
setează lățimea ferestrei grafice
SetWindowHeight(h);
setează înălțimea ferestrei grafice
SetWindowTitle('Titlu');
schimbă titlul ferestrei

Ștergerea graficului
fereastră
Fereastră curată;
șterge fereastra grafică cu culoarea albă
ClearWindow(culoare);
Șterge fereastra grafică cu culoarea specificată.
folosește GraphABC;
ÎNCEPE
Fereastră curată;
ClearWindow(clMoneyGreen);
Sfârşit.
Culoarea banilor verzi

Grafic
primitivi
Punct
Linia
Dreptunghi
Cerc
Elipsă
Sector
Arc

Punct
SetPixel(x,y,culoare);
pictează un pixel cu coordonatele (x,y)
culoare
folosește GraphABC;
ÎNCEPE
SetPixel(300.200,clred);
Sfârşit.

Linii
LineTo(x,y);
desenează un segment din poziția curentă a stiloului până la un punct
(X y)
coordonatele stiloului devin și ele
egal cu (x,y)
X y
folosește GraphABC;
ÎNCEPE
LineTo(300.200);
Sfârşit.

Linii
MutareTo(x,y);
setează poziția curentă a desenului
la punctul (x,y)
x1,y1
x2,y2
folosește GraphABC;
ÎNCEPE
Mutare la(150,50);
LineTo(500.250);
Sfârşit.

Linii
Linie(x1,y1,x2,y2);
desenează un segment cu un început în punctul (x1,y1) și un sfârșit
în punctul (x2,y2)
x1,y1
x2,y2
folosește GraphABC;
ÎNCEPE
linie (100,50,500,250);
Sfârşit.

culorile
clAcvamarine
clBisque
clAlbastru
clBurlyWood
clCiocolata
clCornsilk
clDarkBlue
clDarkGray
clDarkMagenta
clDarkOrchid
clDarkSeaGreen
clDarkViolet
clDeepSkyBlue
clAzure
clNegru
clBlueViolet
clCadetBlue
clCoral
cl Crimson
clDarkCyan
clVerde Întunecat
clDarkOliveGreen
clDarkRed
clDarkSlateBlue
clDeepPink
clDimGray
clBej
clMigdale albite
clMaro
clChartreuse
clFloarea de coltAlbastru
clCyan
clDarkGoldenrod
clDarkKhaki
clDarkOrange
clDarkTurquoise
clDarkSlateGray
clDarkSalmon
clDodgerBlue

culorile
clFuchsia
clAur
clVerde
clHotPink
clIdei
clLavenderBlush
clAlbastru deschis
clGainsboro
clGoldenrod
clVerdeGalben
clIndianRed
clKhaki
ClawnGreen
clLightCoral
clGhostWhite
clGray
clMiere de miere
clIndigo
clLavender
clLemonChiffon
clLightCyan
clLightGoldenrodDa
cLightGray
clVerde-deschis
llow
cLightPink
clLightSomon
clLightSeaGreen
cl LightSkyBlue
clLightSlateGray
clLightSteelBlue
clGalben-deschis
clLime
clLimeGreen
clLinen
clMagenta
clMaroon
clMediumAquamari
clAlbastru mediu
clOrhidee medie
ne
clMediumViolet
clMediumSeaGreen clMediumSlateBlue
clMoneyGreen
clPlum
clMistyRose
clRandom – aleatoriu
culoare din întreaga paletă
Culorile lui Pascal

Culoarea liniei
SetPenColor(culoare);
setează culoarea stiloului specificată de parametru
culoare
folosește GraphABC;
ÎNCEPE
SetPenColor(clred);
linie (30,30,400,350);
Sfârşit.

Linie punctata
SetPenStyle(<…>);
stabilește stilul stiloului
folosește GraphABC;
ÎNCEPE
setpencolor(clred);
SetPenWidth(4);
SetPenStyle(psSolid);(Solid)
Linie(10,75,350,75);
SetPenStyle(psDash);(Dash)
Linie (10.100.350.100);
SetPenStyle(psDot); (Punctat)
Linie(10,125,350,125);
SetPenStyle(psDashDot); (liniate cu puncte)
Linie (10.150.350.150);
SetPenStyle(psDashDotDot);
(Alternativ întrerupt)
Linie (10.175.350.175);
Sfârşit.

Grosimea liniei
SetPenWidth(n);
setează lățimea (grosimea) stiloului la n
pixeli
folosește GraphABC;
ÎNCEPE
setpenwidth(20);
setpencolor(clred);
linie (30,30,400,350);
Sfârşit.

Triunghi
Linie(x1,y1,x2,y2);
LineTo(x,y);
folosește GraphABC;
ÎNCEPE
setpenwidth(20);
setpencolor(clred);
linie(300.100.500.300);
lineto(100.300);
lineto(300.100);
inundare(300.200,clgreen);
Sfârşit.

Dreptunghi
dreptunghi(x1,y1,x2,y2);
desenează un dreptunghi dat de coordonate
vârfuri opuse (x1,y1) și (x2,y2)
x1,y1
x2,y2
folosește GraphABC;
ÎNCEPE
dreptunghi (50,50,200,200);
Sfârşit.

Culoare de umplere
FloodFill(x,y,culoare);
umple o zonă de aceeași culoare cu culoare, începând cu punctul
(X y)
x1,y1
x2,y2
folosește GraphABC;
ÎNCEPE
dreptunghi (50,50,200,200);
FloodFill(100,100,clBlue);
Sfârşit.

Umplere cu pensula
SetBrushColor(culoare);
setează culoarea pensulei, se extinde la închis
circuit, a cărui descriere urmează procedura de instalare
culorile pensulei
folosește GraphABC;
ÎNCEPE
SetBrushColor(clGreen);
dreptunghi (50,50,300,300);
Sfârşit.

Umplere cu pensula
SetBrushStyle(<…>);
setează tipul stilului pensulei
bsSolid
Perie solidă (de
Mod implicit)
bsClear
Perie transparentă
bsHatch
Perie de linie
bsGradient
Pensula gradient

Umplere cu pensula
Stilurile de hașurare a pensulei sunt specificate printr-un tip enumerat
SetBrushHatch(<…>);
Următoarele constante sunt definite pentru stilurile de hașura cu pensula:
folosește GraphABC;
ÎNCEPE
SetBrushStyle(bsHatch);
De
Mod implicit
stilul este setat 0 -
solid
umplere
culoare.
SetBrushHatch(bhHorizont
al);
dreptunghi (10,10,100,100);
…
Sfârşit.

Umplere cu pensula
Pentru o perie de accident vascular cerebral, puteți seta suplimentar
proprietate:
SetHatchBrushBackgroundColor(clGold) ;
folosește GraphABC;
ÎNCEPE
SetBrushStyle(bsHatch);
De
Mod implicit
stilul este setat 0 -
SetHatchBrushBackgroundColor(cl
solid
umplere
Aur);
culoare.
SetBrushColor(clCoral);
SetBrushHatch(bhHorizontal);

Culoarea și grosimea conturului
SetPenWidth(w);
SetPenColor(culoare);
folosește GraphABC;
ÎNCEPE
SetPenColor(clred);
SetPenWidth(20);
dreptunghi (50,50,200,200);
FloodFill(100,100,clBlue);
Sfârşit.

Cerc
Cerc(x,y,r);
desenează un cerc centrat pe (x,y) și
raza r
r
x1,y1
folosește GraphABC;
ÎNCEPE
Cerc(500.200.100);
FloodFill(500.200,clred);
Sfârşit.

Elipsă
Elipsa(x1,y1,x2,y2);
desenează o elipsă dată de descris
dreptunghi cu coordonatele opusului
vârfurile (x1,y1) și (x2,y2).
x1,y
1
x1,y
1
folosește GraphABC;
ÎNCEPE
Elipse(50,50,200,350);
FloodFill(50+100,50+100,clred);
Elipse(250.150.550.300);
FloodFill(250+100,150+100,clBlue);
Sfârşit.
x2,y
2
x2,y
2

Arc de cerc
Arc(x,y,r,a1,a2);
desenează un arc de cerc cu centrul în punctul (x,y) și raza r,
închis între două raze formând unghiuri a1 și a2
cu axa OX (a1 și a2 sunt reale, specificate în grade și
numărat în sens invers acelor de ceasornic)
r
X y
folosește GraphABC;
ÎNCEPE
SetPenWidth(10);
*
Arc(300,250,150,45,135)
;
Sfârşit.

Sector
Pie (x,y,r,a1,a2);
desenează un sector de cerc delimitat de un arc (parametri
procedurile au același sens ca în procedura Arc)
folosește GraphABC;
ÎNCEPE
Plăcintă (300,200,100,0,90);
FloodFill (300+10.200-10,
clAcvamarin);
Sfârşit.

Ieșire text
TextOut(x,y,'string');
scoate o linie de text în poziția (x,y) (punctul (x,y) specifică
colțul din stânga sus al dreptunghiului care va conține
text)
folosește GraphABC;
ÎNCEPE
TextOut(100,30,"Pătrat");
dreptunghi (50,50,200,200);
FloodFill(55,55,clBlue);
Sfârşit.

Acțiuni cu font
SetFontName('nume');
setează numele fontului
SetFontColor(culoare);
setează culoarea fontului
SetFontSize(sz);
setează dimensiunea fontului în puncte
SetFontStyle(fs);
setează stilul fontului

Numele fontului
Fontul implicit este setat la
nume MS Sans Serif
Cele mai comune fonturi sunt
Times New Roman, Arial și Courier New
Numele fontului poate fi introdus fără a lua în considerare
Inregistreaza-te
De exemplu:
SetFontName('Times New Roman');

Stilul fontului
fsNormal - normal
Definit de constante numite:
fsBold - bold
fsItalic – oblic
fsBoldItalic – cursiv aldine
fsUnderline – subliniat
fsBoldUnderline – subliniere îngroșată
fsItalicUnderline – subliniat oblic
fsBoldItalicUnderline – subliniere cursiv aldine

De exemplu:
folosește GraphABC;
ÎNCEPE
SetFontName('Arial');
SetFontSize(20);
SetFontColor(clRed);
TextOut(10,10,‘normal”);
SetFontStyle(fsItalic);
SetFontColor(clBlue);
TextOut(10,50,‘înclinat”);
SetFontStyle(fsBold);
SetFontColor(clRandom);
TextOut(10,90,‘bold”);
SetFontStyle(fsUnderline);
SetFontColor(clRandom);
TextOut(10,130,‘subliniat”);
SetFontStyle(fsBoldItalicUnderline);
SetFontColor(clRandom);
TextOut(10,170,’bold, italic, underline");
Sfârşit.

Folosit
culorile
Culoarea poate fi setată și folosind funcția
RGB(r,g,b) unde r, g și b sunt numere întregi în
interval de la 0 la 255.
Funcția returnează o valoare întreagă care este
cod de culoare care conține roșu, verde și
componente albastre cu intensitățile r, g și b
respectiv (0 corespunde minimului
intensitate, 255 – maxim).
RGB(255,255,255) – potriviri
culoare alba.
RGB(0,0,0) – corespunde culorii negre.

De exemplu:
folosește GraphABC;
ÎNCEPE
Clearwindow(rgb(200,150,250));
TextOut(93,30," Square ");
dreptunghi (50,50,200,200);
FloodFill(55,55,clRed);
TextOut(275,30," Elipse");
Elipse(250,50,350,200);
FloodFill(250+50,50+50,cGalben);

Slide 2

Fiecare pixel (punct) are două coordonate: x și y. Dimensiunile geometrice ale unui pixel sunt determinate de rezoluția monitorului.

Slide 3

Exemplul 1. Demonstrație de conectare a programului de modul GraphAbc tochka; folosește graphabc; (conectarea modulului GraphAbc) begin setwindowsize(640,480);(setează dimensiunea ferestrei grafice) setpixel(100,120,clBlack); (setează culoarea stiloului la negru și desenează un punct la sfârșitul coordonatelor (100,120)). În acest exemplu, am fost introduși în utilizarea comenzii setpixel într-un caz special. În general, această comandă arată astfel: setpixel(x:integer,y:integer,c:color) – desenează un punct cu coordonatele (x,y) cu culoarea c. clNegru – negru clMov – violet clAlb – alb clRoșu – roșu clVerde – verde clMaro – maro clAlbastru – albastru clAlbastru cer – albastru deschis clGalben – galben

Slide 4

Un program pentru desenarea unui segment care leagă două puncte cu coordonatele (120,150) și (150,80) folosind o culoare roșie a unui stilou poate arăta astfel: Exemplul 2. Demonstrarea desenării unui program de linii Linii; folosește graphabc; începe setwidowsize(640,480); setpencolor(clred); (setează culoarea stiloului la roșu) line(120,150,300,100); (desenează un segment de la (120.150) la (300.100)) sfârșit.

Slide 5

Exemplul 3. Demonstrarea de desenare a liniilor cu diferite culori ale stiloului program treugolnik; folosește graphabc; începe setwidowsize(640,480); setpenwidth(5); (setează lățimea stiloului curent. Numărul de pixeli care formează lățimea liniei este indicat în paranteze) setpencolor(clred); (setează culoarea stiloului la roșu) line(100,200,170,70); (desenează un segment dintr-un punct cu coordonate (100,200) la un punct cu coordonate (170,70)) setpencolor(clGreen); (setează culoarea stiloului la verde) line(170,70,250,200); (trasează o linie de la punctul(170,70) la punctul(250,200)) setpencolor(clBlue); (setează culoarea stiloului la albastru) line(250,200,100,200);(trasează o linie de la punctul (250,200) la punctul (100,200)) (rezultând un triunghi cu laturi de diferite culori) sfârșit.

Slide 6

Este important de reținut: 1. Când desenați o linie, puteți seta dimensiunea acesteia (coordonatele capetelor sale), culoarea, lățimea (grosimea) și stilul. 2. Pentru a seta stilul de linie în modulul GraphAbc, există o procedură SetPenStyle (Style), unde Style reprezintă constantele stilului stiloului (vezi Anexa la Capitolul 3). 3. Linia poate fi solidă, punctată, punctată, punctată. Formele închise pot fi vopsite peste.

Slide 7

Exemplul 4. Demonstrarea desenării figurilor închise folosind linii și pictându-le Programul treug_zakrash; folosește graphabc; începe setwidowsize(640,480); clearwindow(clWhite);(sterge fereastra grafica cu culoarea alba) setpenwidth(3); (setează lățimea stiloului curent) setpenstyle(pssolid); (setează stilul liniei - linie continuă) setpencolor(clgreen);(setează culoarea stiloului la verde) line(100,200,170,70); (desenează linii în verde) line(170,70,250,200); linie (250,200,100,200); inundare(440.120,clred); (Vopsește triunghiul în roșu) sfârșit.

Slide 8

Ca urmare a executării programului, pe ecranul monitorului din fereastra grafică va apărea un triunghi desenat în verde și umbrit în roșu.Este important de reținut: 1. Puteți picta doar forme închise al căror contur este desenat într-o singură culoare. 2. În procedura de umplere floodfill(x,y,c), este indicată coordonatele punctului (x,y), care trebuie să se încadreze în zona interioară a figurii care se pictează.

Slide 9

Dreptunghiuri și cercuri pot fi desenate folosind comenzile dreptunghi(x1,y1,x2,y2) și respectiv circle(x,y,r). Să ne uităm la cum se poate face acest lucru folosind exemplul unui program care desenează un dreptunghi și un cerc. Exemplul 5. Demonstrarea desenării geometriei unui program de dreptunghi și cerc; folosește graphabc; începe setwidowsize(640,480); setpencolor(clBlue); (setează culoarea stiloului albastru pentru desenarea conturului dreptunghiului) setpenwidth(6); (setează lățimea stiloului) rectangle(50,50,250,150);(desenează un dreptunghi specificat de coordonatele vârfurilor opuse) setpencolor(clred); (setează culoarea stiloului pentru a desena conturul cercului la roșu) circle(350,100,60); (desenează un cerc centrat la coordonatele (350.100) și raza 60).

Slide 10

Demonstrarea pictării unui dreptunghi și a unui cerc și geometria programului de inscripție al acestora3; folosește graphabc; începe setwidowsize(640,480); clearwindow(clYellow);(setează culoarea de fundal la galben) setpencolor(clteal); (setează culoarea albastru-verde a stiloului) setpenwidth(5); (setează lățimea liniei) setbrushcolor(clolive);(setează culoarea măsline a pensulei) dreptunghi (100,100,300,200); (desenează un dreptunghi umplut cu culoare măsline) setbrushcolor(clblue);(setează culoarea pensulei la albastru) circle(400,150,50); (desenează un cerc albastru) setfontstyle(fsbold);(setează stilul fontului) setfontsize(15);(setează dimensiunea fontului) setbrushcolor(clwhite);(setează culoarea pensulei la alb) setfontcolor(clolive);(setează măslinele culoarea fontului) textout (100.220,„Dreptunghi”); (face o legenda) setfontcolor(clblue); (setează culoarea fontului la albastru) textoout(380,220,"Circle"); (face o inscripţie) sfârşit.

Slide 11

Procedurile grafice ABC ale lui Pascal: 1. SetPixel(x,y,color: integer); - pictează un pixel cu coordonatele (x,y) cu culoarea culorii. 2. Linie(x1,y1,x2,y2: întreg); - desenează un segment din punctul (x1,y1) în punctul (x2,y2). 3. Cerc(x,y,r: întreg); - desenează un cerc cu centrul în punctul (x,y) și raza r. 4. Dreptunghi(x1,y1,x2,y2: întreg); -desenează un dreptunghi specificat de coordonatele vârfurilor opuse (x1,y1) și (x2,y2). 5. TextOut(x,y: întreg; s: șir); - scoate șirul s în poziția (x,y) (punctul (x,y) specifică colțul din stânga sus al dreptunghiului care va conține textul din șirul s). 6. FloodFill(x,y,culoare: întreg); - umple o zonă de aceeași culoare cu culoare, începând din punctul (x,y). 7. FillRect(x1,y1,x2,y2: întreg); - umple dreptunghiul specificat de coordonatele vârfurilor opuse (x1,y1) și (x2,y2) cu culoarea pensulei curente.

Slide 12

Ce va fi afișat pe ecranul monitorului ca urmare a executării acestor programe? grafica programului1; folosește graphabc; începe setpenwidth(10); setpencolor(clred); Linie(100,100,270,90); Sfârşit. Program grafica2; folosește graphabc; începe setpenwidth(8); setpencolor(clblue); cerc (200,150,50); Sfârşit.

Slide 13

Copiați în caiet: Subiect: Capacitățile grafice ale unui limbaj de programare. 1. Linie(x1,y1,x2,y2; - segment de la (x1,y1) la (x2,y2) 2. Cerc(x, y, r); - cerc cu centrul la (x,y) și raza r 3. Rectangle(x1,y1,x2,y2); - dreptunghi definit de coordonatele vârfurilor opuse (x1,y1) și (x2,y2) 4. FloodFill(x, y, color); - umple o zonă de​​ aceeași culoare culoare culoare, începând de la punctul (x,y).

Vizualizați toate diapozitivele