Správa okien
SetWindowSize(š,v);
nastavuje rozmery grafického okna
SetWindowWidth(w);
nastavuje šírku grafického okna
SetWindowHeight(h);
nastavuje výšku grafického okna
SetWindowTitle('Nadpis') ;
zmení názov okna
okno
ClearWindow;
vymaže grafické okno bielou farbou
ClearWindow(color);
Vymaže grafické okno so zadanou farbou.
používa GraphABC;
začať
ClearWindow;
ClearWindow(clMoneyGreen);
koniec.
Zelená farba peňazí Grafický
primitívov
Bodka
Linka
Obdĺžnik
Kruh
Elipsa
Sektor
Arc Bodka
SetPixel(x,y,color);
vyfarbí jeden pixel súradnicami (x,y)
farba
používa GraphABC;
začať
SetPixel(300,200,clred);
koniec. Čiary
LineTo(x,y);
nakreslí segment z aktuálnej polohy pera do bodu
(x,y)
súradnice pera sa tiež stanú
rovná sa (x,y)
x, y
používa GraphABC;
Začať
LineTo(300,200);
koniec. Čiary
MoveTo(x,y);
nastaví aktuálnu polohu kreslenia
do bodu (x,y)
x1, y1
x2, y2
používa GraphABC;
Začať
MoveTo(150,50);
LineTo(500,250);
koniec. Čiary
Čiara(x1,y1,x2,y2);
nakreslí segment so začiatkom v bode (x1,y1) a koncom
v bode (x2,y2)
x1, y1
x2, y2
používa GraphABC;
začať
riadok(100,50,500,250);
koniec. farby
clAkvamarín
clBisque
clBlue
clBurlyWood
clČokoláda
clKukuričný hodváb
clTmavomodrá
clDarkGray
clDarkMagenta
clDarkOrchid
clDarkSeaGreen
clTmavofialová
clDeepSkyBlue
clAzure
clČierna
clBlueViolet
clCadetBlue
clCoral
clCrimson
clDarkCyan
clDarkGreen
clDarkOliveGreen
clDarkČervená
clDarkSlateBlue
clDeepPink
clDimGray
clBéžová
clBlanchedMandle
clBrown
clChartreuse
clNevädzaBlue
cCyan
clDarkGoldenrod
clDarkKhaki
clTmavooranžová
clTmavá tyrkysová
clDarkSlateGray
clDarkLosos
clDodgerBlue farby
clFuchsia
clZlato
clZelená
clHotPink
clIvory
clLavenderBlush
clLightBlue
clGainsboro
clGoldenrod
clZelenáŽltá
clIndianRed
clKhaki
clLawnGreen
clLightCoral
clGhostWhite
clGray
clMedovka
clIndigo
clLavender
clLemonChiffon
clLightCyan
clLightGoldenrodYe
clLightGray
clLightGreen
llow
clLightPink
clLightSalmon
clLightSeaGreen
clLightSkyBlue
clLightSlateGray
clLightSteelBlue
clSvetložltá
clLime
clLimeGreen
clLinen
clMagenta
clMaroon
clMediumAquamari
clStredná modrá
clStredná orchidea
nie
clStredná fialová
clStredná morská zelená clStredná bridlicová modrá
clMoneyGreen
clPlum
clMistyRose
clRandom – náhodný
farba z celej palety
Pascalove farby Farba čiary
SetPenColor(color);
nastavuje farbu pera špecifikovanú parametrom
farba
používa GraphABC;
začať
SetPenColor(clred);
riadok(30,30,400,350);
koniec. Bodkovaná čiara
SetPenStyle(<…>);
nastavuje štýl pera
používa GraphABC;
začať
setpencolor(clred);
SetPenWidth(4);
SetPenStyle(psSolid);(Solid)
Riadok(10,75,350,75);
SetPenStyle(psDash);(Dash)
Riadok(10,100,350,100);
SetPenStyle(psDot); (bodkované)
Riadok(10,125,350,125);
SetPenStyle(psDashDot); (čiarkované)
Riadok(10,150,350,150);
SetPenStyle(psDashDotDot);
(Alternatívne prerušované)
Riadok(10,175,350,175);
koniec. Hrúbka čiary
SetPenWidth(n);
nastaví šírku (hrúbku) pera na n
pixelov
používa GraphABC;
začať
setpenwidth(20);
setpencolor(clred);
riadok(30,30,400,350);
koniec. Trojuholník
Čiara(x1,y1,x2,y2);
LineTo(x,y);
používa GraphABC;
začať
setpenwidth(20);
setpencolor(clred);
riadok(300,100,500,300);
lineto(100,300);
lineto(300,100);
Floodfill(300,200,clgreen);
koniec. Obdĺžnik
Obdlznik(x1,y1,x2,y2);
nakreslí obdĺžnik daný súradnicami
opačné vrcholy (x1,y1) a (x2,y2)
x1, y1
x2, y2
používa GraphABC;
začať
Obdlznik(50,50,200,200);
koniec. Farba výplne
FloodFill(x,y,farba);
vyplní oblasť rovnakej farby farbou, začínajúc od bodu
(x,y)
x1, y1
x2, y2
používa GraphABC;
začať
Obdlznik(50,50,200,200);
FloodFill(100,100,clModrá);
koniec. Výplň štetcom
SetBrushColor(color);
nastaví farbu štetca, vysunie sa až po uzavreté
okruhu, ktorého popis sa riadi postupom inštalácie
farby štetca
používa GraphABC;
Začať
SetBrushColor(clGreen);
Obdlznik(50,50,300,300);
koniec. Výplň štetcom
SetBrushStyle(<…>);
nastaví typ štýlu štetca
bsSolid
Pevná kefa (od
predvolené)
bsClear
Priehľadný štetec
bsHatch
Štetec na linky
bsGradient
Prechodová kefa Výplň štetcom
Štýly šrafovania štetca sú určené vymenovaným typom
SetBrushHatch(<…>);
Pre štýly šrafovania štetca sú definované nasledujúce konštanty:
používa GraphABC;
Začať
SetBrushStyle(bsHatch);
Autor:
predvolená
štýl je nastavený na 0 –
pevný
plnenie
farba.
SetBrushHatch(bhHorizont
al);
Obdlznik(10,10,100,100);
…
koniec. Výplň štetcom
Pre štetec na ťah môžete dodatočne nastaviť
nehnuteľnosť:
SetHatchBrushBackgroundColor(clGold) ;
používa GraphABC;
Začať
SetBrushStyle(bsHatch);
Autor:
predvolená
štýl je nastavený na 0 –
SetHatchBrushBackgroundColor(cl
pevný
plnenie
zlato);
farba.
SetBrushColor(clCoral);
SetBrushHatch(bhHorizontal); Farba obrysu a hrúbka
SetPenWidth(w);
SetPenColor(color);
používa GraphABC;
začať
SetPenColor(clred);
SetPenWidth(20);
Obdlznik(50,50,200,200);
FloodFill(100,100,clModrá);
koniec. Kruh
Kruh(x,y,r);
nakreslí kružnicu so stredom (x, y) a
polomer r
r
x1, y1
používa GraphABC;
začať
Kruh(500,200,100);
FloodFill(500,200,clred);
koniec. Elipsa
Elipsa(x1,y1,x2,y2);
nakreslí elipsu danú jej popísaným
obdĺžnik so súradnicami protiľahlých
vrcholy (x1,y1) a (x2,y2).
x1, r
1
x1, r
1
používa GraphABC;
začať
Elipsa(50,50,200,350);
FloodFill(50+100,50+100,clred);
Elipsa(250,150,550,300);
FloodFill(250+100,150+100,clBlue);
koniec.
x2, r
2
x2, r
2Oblúk kruhu
Arc(x,y,r,al,a2);
nakreslí kruhový oblúk so stredom v bode (x, y) a polomerom r,
uzavretý medzi dva lúče zvierajúce uhly a1 a a2
s osou OX (a1 a a2 sú skutočné, špecifikované v stupňoch a
počítané proti smeru hodinových ručičiek)
r
x, y
používa GraphABC;
Začať
SetPenWidth(10);
*
Oblúk(300,250,150,45,135)
;
koniec. Sektor
Koláč(x,y,r,al,a2);
nakreslí sektor kruhu ohraničený oblúkom (parametre
procedúry majú rovnaký význam ako pri procedúre Arc)
používa GraphABC;
začať
Koláč(300,200,100,0,90);
FloodFill(300+10,200-10,
clAkvamarín);
koniec. Textový výstup
TextOut(x,y,’reťazec’);
vypíše riadok textu na pozícii (x, y) (bod (x, y) určuje
ľavom hornom rohu obdĺžnika, ktorý bude obsahovať
text)
používa GraphABC;
začať
TextOut(100,30,"Štvorec");
Obdlznik(50,50,200,200);
FloodFill(55,55,clBlue);
koniec. Akcie s písmom
SetFontName('meno');
nastavuje názov písma
SetFontColor(color);
nastaví farbu písma
SetFontSize(sz);
nastavuje veľkosť písma v bodoch
SetFontStyle(fs);
nastaví štýl písma Názov písma
Predvolené písmo je nastavené na
názov MS Sans Serif
Najbežnejšie sú fonty
Times New Roman, Arial a Courier New
Názov písma je možné napísať bez zohľadnenia
Registrovať
Napríklad:
SetFontName('Times New Roman'); Štýl písma
fsNormal - normálne
Definované pomenovanými konštantami:
fsBold - tučné písmo
fsItalic – šikmé
fsBoldItalic – tučná kurzíva
fsUnderline – podčiarknuté
fsBoldUnderline – tučné podčiarknutie
fsItalicUnderline – šikmo podčiarknuté
fsBoldItalicUnderline – tučné podčiarknutie kurzívou Napríklad:
používa GraphABC;
Začať
SetFontName('Arial');
SetFontSize(20);
SetFontColor(clRed);
TextOut(10,10,‘normálne“);
SetFontStyle(fsItalic);
SetFontColor(clBlue);
TextOut(10,50,‘šikmý");
SetFontStyle(fsBold);
SetFontColor(clRandom);
TextOut(10,90,‘tučné");
SetFontStyle(fsUnderline);
SetFontColor(clRandom);
TextOut(10,130,‘podčiarknuté“);
SetFontStyle(fsBoldItalicPodčiarknuté);
SetFontColor(clRandom);
TextOut(10,170,‘tučné, kurzíva, podčiarknuté");
koniec. Použité
farby
Farbu je možné nastaviť aj pomocou funkcie
RGB(r,g,b), kde r, g a b sú celé čísla v
rozsah od 0 do 255.
Funkcia vráti celočíselnú hodnotu, ktorá je
farebný kód, ktorý obsahuje červenú, zelenú a
modré zložky s intenzitami r, g a b
respektíve (0 zodpovedá minimu
intenzita, 255 – maximum).
RGB(255,255,255) – zhody
biela farba.
RGB(0,0,0) – zodpovedá čiernej farbe. Napríklad:
používa GraphABC;
začať
Clearwindow(rgb(200,150,250));
TextOut(93,30," Square ");
Obdlznik(50,50,200,200);
FloodFill(55,55,clRed);
TextOut(275,30," Elipsa");
Elipsa(250,50,350,200);
FloodFill(250+50,50+50,clYellow);
Serogodskaja N.I. GBOU škola č. 118 Juhozápadný správny obvod
Grafický režim
Učiteľ informatiky GBOU škola č. 118 Juhozápadný správny obvod
Serogodskaja N.I.
Moskva
Lekcia 1
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Ciele
Vzdelávacie:
oboznámi študentov so softvérovým prostredím Pascal ABC a štruktúrou programu v jazyku Pascal;
formovať u študentov primárne poznatky o aplikácii študovaného materiálu.
Vzdelávacie:
naučiť analyzovať, zovšeobecňovať a systematizovať;
obohatiť slovnú zásobu študentov.
Vzdelávacie:
rozvíjať informačnú kultúru žiakov, schopnosť samostatnej a kolektívnej činnosti a reflexie.
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
- Študenti by mali vedieť:
- základné príkazy a funkcie v prostredí GraphPascal ABC;
- pravidlá pre návrh a fungovanie programu;
- Študenti by mali byť schopní:
- vyvíjať programy na kreslenie grafických primitív;
- vykonať potrebné akcie s programom;
- rozvíjať postupy s parametrami a bez parametrov pre kreslenie objektov;
- vyvíjať programy založené na štandardných návrhoch algoritmov;
- Okrem toho: riešiť zložitejšie grafické problémy
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Pre prácu v grafickom režime je potrebné pripojiť modul GraphABC :
Grafická obrazovka PassalABC obsahuje 640 bodov podľa horizontálne a 400 bodov vertikálne.
Upozorňujeme, že počiatok je ľavý horný roh obrazovky, na rozdiel od súradnicových osí v matematike
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
OVLÁDANIE OBRAZOVKY
SetWindowWidth(w) - nastavuje šírku grafického okna;
SetWindowHeight(h) - nastavuje výšku grafického okna;
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
ClearWindow; - vymaže grafické okno bielou farbou.
ClearWindow (cl názov farby ); - vymaže grafické okno so zadanou farbou.
ClearWindow(clMoneyGreen);
Zelená farba peňazí
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Grafické primitívy
- Bodka
- Linka
- Obdĺžnik
- Kruh
- Elipsa
- Sektor
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
SetPixel(x,y,cl názov farby ) - vyfarbí jeden pixel so súradnicami (x,y,) farbou
SetPixel(300,200,clred);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
LineTo(x,y) - nakreslí segment z aktuálnej polohy pera do bodu (x,y); Súradnice pera sa tiež rovnajú (x,y).
begin LineTo(300,200);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Čiary
Čiara(x1,y1,x2,y2) - nakreslí úsečku so začiatkom v bode (x1,y1) a koncom v bode (x2,y2).
riadok(100,50,500,250);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Použité farby
clČierna - čierna clPurpurová - fialový clBiela - biely clMaroon - Tmavo červená clRed - červená clNavy - Námornícka modrá clZelená - zelená clBrown - hnedá clBlue - Modrá clSkyBlue - Modrá cŽltá - žltá clKrém – krém
clAqua - tyrkysová clOlive - olivový clFuchsia - orgován clTeal - modro zelená clGray - tmavošedý clLime - svetlozelená clMoneyGreen – farba zelených peňazí clLtGray - svetlo sivá clDkGray - tmavošedý clMedGray - šedá clStriebro – striebro
Random(16777215) – náhodná farba z celej palety farieb Pascal
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Farba čiary
Nastaviť farbu pera (farba) - nastaví farbu pera určenú parametrom farba .
setpencolor(clred);
riadok(30,30,400,350);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Bodkovaná čiara
SetPenStyle(); -
nastaví štýl pera určený číslom.
setpencolor(clred);
SetPenStyle(1); (1 - dlhý zdvih)
Riadok(10,100,350,100);
SetPenStyle(2); (2 - krátky zdvih)
Riadok(10,125,350,125);
SetPenStyle(3); (3 - prerušovaná čiara)
Riadok(10,150,350,150);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Hrúbka čiary
SetPenWidth(n) - nastaví šírku (hrúbku) pera na n pixelov.
setpenwidth(20);
setpencolor(clred);
riadok(30,30,400,350);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Trojuholník
Kreslené postupmi
Čiara(x1,y1,x2,y2); LineTo(x,y);
Program treugolnik;
setpenwidth(20);
setpencolor(clPurple);
riadok(300,100,500,300);
lineto(100,300);
lineto(300,100);
Floodfill(300,200, clSkyBlue) ;
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Obdĺžnik
Obdĺžnik (x1,y1,x2,y2) - nakreslí obdĺžnik určený súradnicami protiľahlých vrcholov (x1,y1) a (x2,y2).
Program pryamougolnik;
Obdlznik(50,50,200,200);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Farba výplne
FloodFill(x,y,farba) - Vyplní oblasť jednej farby farbou, počnúc bodom (x, y).
Program pryamougolnik;
Obdlznik(50,50,200,200);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Výplň štetcom
SetBrushColor (farba) - nastaví farbu štetca.
Výplň štetca siaha až do uzavretá slučka, ktorého popis sa riadi postupom nastavenia farby štetca.
Program fill_kist;
SetBrushColor( clMoneyGreen);
Obdlznik(50,50,300,300);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Výplň štetcom
SetBrushStyle (číslo od 0 do 7 alebo názov) - nastavuje štýl štetca určený číslom alebo symbolickou konštantou.
Program p12_zalivka;
používa GraphABC;
SetBrushColor(clAqua);
SetBrushStyle(1);
Obdlznik(10,10,100,100);
SetBrushColor(clRed);
SetBrushStyle(2);
Obdlznik(110,10,200,100);
SetBrushColor(clBlue);
SetBrushStyle(3);
Obdĺžnik(210,10,300,100);
SetBrushColor(clGreen);
SetBrushStyle(4);
Obdlznik(10,110,100,210);
SetBrushColor(clYellow);
SetBrushStyle(5);
Obdĺžnik(110,110,200,210);
SetBrushColor(clBlack);
SetBrushStyle(6);
Obdĺžnik(210,110,300,210);
Predvolený štýl je 0 – plná farebná výplň.
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Výplň štetcom
SetBrushPicture('meno') -
nastaví vzorku uloženú v súbore fname ako vzor na tieňovanie štetcom, v tomto prípade sa pri maľovaní ignoruje aktuálna farba štetca.
begin SetBrushPicture("brush4.bmp"); Elipsa(0,0,640,400);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Farba obrysu a hrúbka
sú dané postupmi SetPenWidth(w); SetPenColor(color);
Program pryamougolnik;
SetPenColor(clred);
SetPenWidth(20);
Obdlznik(50,50,200,200);
FloodFill(100,100, clSkyBlue);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Kruh
Kruh (x, y, r) - nakreslí kružnicu so stredom v bode (x,y) a polomerom r .
Kruh(500,200,100);
FloodFill(500,200, clZelená);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Elipsa
Elipsa (x1,y1,x2,y2) - nakreslí elipsu definovanú jej opísaným obdĺžnikom so súradnicami protiľahlých vrcholov (x1,y1) a (x2,y2).
Elipsa(50,50,200,350);
FloodFill(50+100,50+100,clred);
Elipsa(250,150,550,300);
FloodFill(250+100,150+100,clBlue);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Oblúk kruhu
Oblúk(x,y,r,a1,a2)- Nakreslí kruhový oblúk so stredom v bode (x, y) a polomerom r, uzavretý medzi dvoma lúčmi, ktoré zvierajú uhly a1 a a2 s osou OX (a1 a a2 sú skutočné, špecifikované v stupňoch a počítané proti smeru hodinových ručičiek).
SetPenWidth(10);
Arc(300,250,150,45,135);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Sektor
Koláč(x,y,r,a1,a2) - nakreslí výsek kruhu ohraničený oblúkom (parametre procedúry majú rovnaký význam ako pri procedúre Oblúk).
Koláč(300,200,100,0,90);
FloodFill(300+10,200-10,clAqua);
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Bibliografia
- Fedorenko Yu. Algoritmy a programy v Turbo Pascal .
- Faronov V.V. Turbo Pascal 7.0. Kurz pre začiatočníkov. - Vedomosti, 1998. -620 s.
- Gryzlov V.I., Gryzlová T.P. Turbo Pascal 7.0. - M.: "DMK", 2000. - 416 s.
- Zuev E.A. Programovací jazyk Turbo Pascal 6.0. - M.: Unitech, 1992. - 298 s., il.
- Zuev E.A. Turbo Pascal. Praktické programovanie .
Serogodskaja N.I. GBOU SOŠ č.1 budova 2
Ďakujem za tvoju pozornosť!
Grafika v programovacom prostredí
Turbo Pascal
Učiteľ EADC: Neverova I.Yu.
Plán lekcie:
- Vlastnosti pripojenia grafického režimu v programovacom prostredí Turbo Pascal
- Zostavenie programovej štruktúry
- Výpočet súradníc pre postupy
- Vlastnosti kresby s obrysom a farebnou výplňou
- Prehľad vzorových programov
I.G. Semakin, A.P. Šestakov. Základy programovania, s.88-98, 398-409.
Grafické možnosti jazyka Turbo Pascal - knižnica Graph
- Pripojenie grafickej knižnice je špecifikované v programe pomocou nasledujúceho postupu:
- Ak chcete nastaviť režim grafickej obrazovky, použite nasledujúci postup:
InitGraph(Var Driver, Režim: Celé číslo, Cesta: Reťazec);
Cesta ku grafickej knižnici
Prevádzkový režim vodiča
Kód vodiča
Prevádzkové režimy grafického programu
- Textový režim. Používa sa na písanie programu. Prechod z textového režimu programu do režimu grafického vykonávania programu sa vykonáva pomocou procedúry RUN alebo kláves Ctrl+F9.
- Grafický režim. Obraz je zostavený z jednotlivých bodov (pixelov). Prevádzkový režim grafického ovládača VGAHi zodpovedá grafickej mriežke 640x480 pixelov, s paletou 16 farieb, automatickou detekciou typu ovládača a inštaláciou grafického režimu. Ukončite program do textového režimu programovania stlačením klávesu Enter.
Štruktúra programu
Program ricunok; (názov programu)
Používa graf; (pripojenie grafickej knižnice)
Var Dr, Md: celé číslo; (popis premenných ovládača)
Začiatok (začiatok tela programu)
Dr:= Zistiť ; (typ vodiča)
InitGraph(Dr, Md,‘C:\TP 70\BGI‘); (povoliť grafiku pomocou
knižnica grafov)
ReadLn; (oneskorenie programu)
Koniec. (koniec programu)
Výpočet súradníc pre postupy odvodzovania geometrických útvarov
Bar(50,100,150,150)
Fillellipse(250,125,25,25)
Monitor typu VGA
Použitie grafických postupov
Program, ktorý zobrazuje bielu japonskú vlajku s červeným kruhom v strede
na tyrkysovom pozadí obrazovky.
Var Dr, Md: celé číslo;
InitGraph(Dr, Md, 'C:\TP70\BGI');
ClearViewPort; (Vymazanie obrazovky, nastavenie pozadia obrazovky)
SetBkColor(Cyan); (Nastavte farbu pozadia obrazovky na tyrkysovú)
SetFillStyle(1, 15); (Farba obdĺžnikovej výplne podľa vzoru a farby)
Stĺpec (10, 10, 410, 210); (Nakreslenie vyplneného obdĺžnika podľa súradníc)
SetColor(4); (Nastavenie farby kruhových čiar)
Kruh(210, 110, 30); (Nakreslenie kruhu so stredovými súradnicami a polomerom)
SetFillStyle(1, 4); (Farba výplne kruhu podľa vzoru a farby)
FloodFill(200, 100, 4); (Vyplnenie uzavretého tvaru farbou okolo súradníc k okrajom)
ReadLn; (oneskorenie programu)
CloseGraph ; (ukončiť grafický režim)
Koniec. (koniec tela programu)
Program, ktorý zobrazuje blokovú schému
var dr,md:integer;
begin dr:=detect;
setlinestyle(0,1,3);
elipsa(320,40,0,360,50,10);
riadok(320,50,320,70);
riadok(270,70,390,70); riadok(390,70,370,100); riadok(370,100,250,100); riadok(250,100,270,70); riadok(320,100,320,120);
obdlznik(260,120,380,150);
riadok(320,150,320,170); riadok(320,170,400,190); riadok(400,190,320,210); riadok(320,210,240,190); riadok(240,190,320,170);
riadok(240,190,200,190); riadok(200,190,200,210);
obdlznik(140,210,260,240);
riadok(200,240,200,260);
obdlznik(140,260,260,290);
riadok(200,290,200,310);
Riadok(140,310,260,310); Riadok(260,310,240,340); Riadok(240,340,120,340); Riadok(120,340,140,310); riadok(200,340,200,360);
riadok(200,360,100,360); riadok(100,360,100,170); riadok(100,170,320,170); riadok(400,190,440,190);
riadok(440,190,440,380); riadok(440,380,320,380); riadok(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
Výsledok spustenia programu
Napíšte program, ktorý zobrazí nasledujúci obrázok
Program paravoz;
var dr,md:integer;
begin dr:=detect;
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);
Riadok(350,65,390,65);
Riadok(350,65,360,120);
Riadok(390,65,380,120);
Riadok(380,120,360,120);
SetFillStyle(1,1);
Sektor(420,245,0,360,20,20);
Sektor(300,245,0,360,20,20);
Sektor(185,245,0,360,20,20);
SetFillStyle(1,7);
Sektor(400,50,0,360,30,10);
Sektor(425,25,0,360,20,10);
Sektor(445,5,0,360,10,5);
Domáca úloha
V pracovných zošitoch Téma č.4 vyplňte úlohy 1 a 2 o využití grafických postupov.
Tabuľka základných grafických postupov v prílohe 4.
Snímka 2
Každý pixel (bod) má dve súradnice: x a y Geometrické rozmery pixelu sú určené rozlíšením monitora.
Snímka 3
Príklad 1. Ukážka zapojenia modulu GraphAbc program tochka; používa graphabc; (pripojenie modulu GraphAbc) begin setwindowsize(640,480);(nastaví veľkosť grafického okna) setpixel(100,120,clBlack); (nastaví farbu pera na čiernu a nakreslí bod na súradniciach (100,120)). V tomto príklade sme sa oboznámili s použitím príkazu setpixel v špeciálnom prípade. Vo všeobecnosti tento príkaz vyzerá takto: setpixel(x:integer,y:integer,c:color) – nakreslí bod so súradnicami (x,y) farbou c. clČierna – čierna clFialová – fialová clBiela – biela clČervená – červená clZelená – zelená clHnedá – hnedá clModrá – modrá clSkyBlue – svetlomodrá clŽltá – žltá
Snímka 4
Program na kreslenie úsečky spájajúcej dva body so súradnicami (120,150) a (150,80) červenou farbou pera môže vyzerať takto: Príklad 2. Ukážka kreslenia čiarového programu Linii; používa graphabc; begin setwindowsize(640,480); setpencolor(clred); (nastaví farbu pera na červenú) line(120,150,300,100); (nakreslí segment od (120 150) do (300 100)) koniec.
Snímka 5
Príklad 3. Ukážka kreslenia čiar rôznymi farbami pera program treugolnik; používa graphabc; begin setwindowsize(640,480); setpenwidth(5); (nastaví šírku aktuálneho pera. Počet pixelov, ktoré tvoria šírku čiary, je uvedený v zátvorkách) setpencolor(clred); (nastaví farbu pera na červenú) line(100,200,170,70); (nakreslí segment z bodu so súradnicami (100,200) do bodu so súradnicami (170,70)) setpencolor(clGreen); (nastaví farbu pera na zelenú) line(170,70,250,200); (nakreslí čiaru z bodu (170,70) do bodu (250,200)) setpencolor (clBlue); (nastaví farbu pera na modrú) čiara(250,200,100,200);(nakreslí segment z bodu (250,200) do bodu (100,200)) (výsledkom je trojuholník so stranami rôznych farieb) koniec.
Snímka 6
Je dôležité si zapamätať: 1. Pri kreslení čiary môžete nastaviť jej veľkosť (súradnice jej koncov), farbu, šírku (hrúbku) a štýl. 2. Na nastavenie štýlu čiary v module GraphAbc existuje procedúra SetPenStyle (Style), kde Style sú konštanty štýlu pera (pozri Prílohu ku kapitole 3). 3. Čiara môže byť plná, bodkovaná, bodkovaná, prerušovaná. Uzavreté tvary je možné prelakovať.
Snímka 7
Príklad 4. Ukážka kreslenia uzavretých postáv pomocou čiar a ich maľovanie Program treug_zakrash; používa graphabc; begin setwindowsize(640,480); clearwindow(clWhite);(vyčistí grafické okno bielou farbou) setpenwidth(3); (nastaví šírku aktuálneho pera) setpenstyle(pssolid); (nastaví štýl čiary - plná čiara) setpencolor(clgreen (nastaví farbu pera na zelenú) line(100,200,170,70); (kreslí čiary zelenou farbou) riadok(170,70,250,200); riadok(250,200,100,200); Floodfill(440,120,clred); (Vyfarbí trojuholník na červeno) koniec.
Snímka 8
V dôsledku spustenia programu sa na obrazovke monitora v grafickom okne objaví trojuholník nakreslený zelenou farbou a vytieňovaný červenou farbou. Je dôležité si zapamätať: 1. Môžete maľovať iba uzavreté tvary, ktorých obrys je nakreslený jednou farbou. 2. V postupe vypĺňania floodfill(x,y,c) je uvedená súradnica bodu (x,y), ktorý musí spadať do vnútornej oblasti maľovaného obrazca.
Snímka 9
Obdĺžniky a kruhy je možné kresliť pomocou príkazov rectangle(x1,y1,x2,y2) a circle(x,y,r). Pozrime sa, ako sa to dá urobiť na príklade programu, ktorý kreslí obdĺžnik a kruh. Príklad 5. Ukážka kreslenia geometrie programu obdĺžnika a kruhu; používa graphabc; begin setwindowsize(640,480); setpencolor(clBlue); (nastaví modrú farbu pera na kreslenie obrysu obdĺžnika) setpenwidth(6); (nastaví šírku pera) rectangle(50,50,250,150);(nakreslí obdĺžnik určený súradnicami protiľahlých vrcholov) setpencolor(clred); (nastaví farbu pera na kreslenie obrysu kruhu na červenú) circle(350,100,60); (nakreslí kružnicu so stredom na súradniciach (350,100) a polomere 60) koniec.
Snímka 10
Ukážka maľovania obdĺžnika a kruhu a ich nápisového programu geometria3; používa graphabc; begin setwindowsize(640,480); clearwindow(clYellow);(nastaví farbu pozadia na žltú) setpencolor(clteal); (nastaví modro-zelenú farbu pera) setpenwidth(5); (nastaví šírku čiary) setbrushcolor(clolive) (nastaví olivovú farbu štetca) rectangle(100,100,300,200); (nakreslí obdĺžnik vyplnený olivovou farbou) setbrushcolor(clblue) (nastaví farbu štetca na modrú) kruh (400,150,50); (nakreslí modrý kruh) setfontstyle(fsbold);(nastaví štýl písma) setfontsize(15);(nastaví veľkosť písma) setbrushcolor(clwhite);(nastaví farbu štetca na bielu) setfontcolor(clolive);(nastaví olivovú farba písma) textový výstup (100 220 "Obdĺžnik"); (vytvorí titulok) setfontcolor(clblue); (nastaví farbu písma na modrú) textout(380,220,"Kruh"); (urobí nápis) koniec.
Snímka 11
Pascalove grafické postupy ABC: 1. SetPixel(x,y,color: integer); - vyfarbí jeden pixel so súradnicami (x,y) farebnou farbou. 2. Riadok (x1,y1,x2,y2: celé číslo); - nakreslí úsečku z bodu (x1,y1) do bodu (x2,y2). 3. Kruh(x,y,r: celé číslo); - nakreslí kružnicu so stredom v bode (x,y) a polomerom r. 4. Obdĺžnik(x1,y1,x2,y2: celé číslo); -nakreslí obdĺžnik určený súradnicami protiľahlých vrcholov (x1,y1) a (x2,y2). 5. TextOut(x,y: celé číslo; s: reťazec); - vypíše reťazec s na pozíciu (x,y) (bod (x,y) určuje ľavý horný roh obdĺžnika, ktorý bude obsahovať text z reťazca s). 6. FloodFill(x,y,color: integer); - vyplní oblasť rovnakej farby farbou, počnúc bodom (x, y). 7. FillRect(x1,y1,x2,y2: celé číslo); - vyplní obdĺžnik určený súradnicami protiľahlých vrcholov (x1,y1) a (x2,y2) farbou aktuálneho štetca.
Snímka 12
Čo sa zobrazí na obrazovke monitora v dôsledku spustenia týchto programov? programová grafika1; používa graphabc; begin setpenwidth(10); setpencolor(clred); Riadok(100,100,270,90); Koniec. Program grafika2; používa graphabc; begin setpenwidth(8); setpencolor(clblue); kruh(200,150,50); Koniec.
Snímka 13
Skopírujte si do zošita: Téma: Grafické možnosti programovacieho jazyka. 1. Priamka(x1,y1,x2,y2; - úsečka od (x1,y1) po (x2,y2) 2. Kružnica (x, y, r); - kružnica so stredom v (x,y) a polomerom r 3. Obdĺžnik(x1,y1,x2,y2 - obdĺžnik definovaný súradnicami protiľahlých vrcholov (x1,y1) a (x2,y2) 4. FloodFill(x, y, farba farba); bod (x,y).
Zobraziť všetky snímky
