Programmalaşdyrma diliniň grafiki mümkinçiliklerini peýdalanyp ýönekeý programmalary düzmek

1.

TÜRKMENISTANYŇ BILIM MINISTRLIGI
TÜRKMENISTANYŇ MILLI BILIM INSTITUTY
Türkmenistanyň orta mekdepleriniň VII synplary
üçin interaktiw-multimedia elektron gollanmasy
AŞGABAT 2014

2. Programmalaşdyrma diliniň grafiki mümkinçiliklerini peýdalanyp ýönekeý programmalary düzmek

3.

Ýapyk figuralary FloodFill(x,y,color) buýrugynyň kömegi bilen boýap bolýar, bu ýerde
(x,y) boýalýan figuranyň içki çäginde ýerleşen nokadyň koordinatasy, color bolsa
boýagyň reňkidir.
Üçburçlugy çyzmagyň we boýamagyň programmasy
Program boýalan_üçburçluk; {Programmanyň sözbaşysy}
Uses GraphAbc; {GraphAbc moduly birikdirmek}
Begin {Programmanyň başlangyjy}
SetWindowSize (640,480); {Grafiki penjiräniň ölçeglerini
goýmak}
ClearWindow (clWhite); {Grafiki penjiräni ak reňk bilen
arassalamak}

4.

SetPenWidth (3); {Galamyň ýogynlygyny kesgitlemek}
SetPenStyle (psSolid);
{Çyzyga tutuş çyzyk stilini
goýmak}
SetPenColor (clGreen);
{Galamyň ýaşyl reňkini
goýmak}
Line (100,200,170,70); {Ýaşyl reňkli çyzyk çyzmak}
Line (170,70,250,200);
Line (250,200,100,200);
FloodFill (150,120,clRed);
{Üçburçlugy gyzyl reňk
bilen boýamak}
End. {Programmanyň soňy}

5.

Gönüburçluk we töwerek çyzmagyň
programmasy
Program
gönüburçluk
we
töwerek;
{Programmanyň sözbaşysy}
Uses GraphAbc; {GraphAbc moduly birikdirmek}
Begin {Programmanyň başlangyjy}
SetWindowSize (640,480);
{Grafiki penjiräniň
ölçeglerini goýmak}
SetPenColor (clBlue);
{Gönüburçlugyň çägini
çyzmak üçin, galama gök reňk goýmak}

6.

SetPenWidth (6);
{Galamyň ýogynlygyny
kesgitlemek}
Rectangle (50,50,250,150); {Garşylykly depeleriniň
koordinatalary
(50,50)
we
(250,150)
bolan
gönüburçlugy çyzmak}
SetPenColor (clRed);
{Töweregiň çägini çyzmak
üçin, galama gyzyl reňk goýmak}
Circle (350,100,60); {Merkezi (350,100) koordinataly
nokatda we radius 60 bolan töweregi çyzmak}
End. {Programmanyň soňy}

7.

8.

Gönüburçluk we tegelek çyzyp, olary boýaýan we
ýazgy goýýan programma
Program Boýamak we ýazgy goýmak; {Programmanyň sözbaşysy}
Uses GraphAbc; {GraphAbc moduly birikdirmek}
Begin {Programmanyň başlangyjy}
SetWindowSize(640,480);{Grafiki penjiräniň ölçeglerini bermek}
ClearWindow (clYellow); {Düşege sary reňki bermek}
SetPenColor (clTeal); {Galama gök-ýaşyl reňki bermek}
SetPenWidth (5); {Çyzygyň ýogynlygyny bermek}
SetBrushColor (clOlive); {Çotga zeýtun reňki bermek}
Rectangle (100,100,300,200); {Zeýtun reňke boýalan gönüburçluk
çyzmak}
SetBrushColor (clBlue); {Çotga gök reňki bermek}
Circle (400,150,50); {Gök reňke boýalan töwerek çyzmak}

9.

SetFontStyle (fsbold); {Şrifte stil bermek}
SetFontSize (15); {Piksellerde şriftiň öleçegini bermek}
SetBrushColor (clYellow); {Çotga sary reňk bermek}
SetFontColor (clOlive); {Şrifte zeýtun reňk bermek}
TextOut (100,220, 'Gönüburçluk'); {Çep ýokarky burçy
(100,200) koordinataly nokatda bolan gönüburçlukda
ýazgyny ýerleşdirmek}
SetFontColor (clBlue); {Şrifte gök reňk bermek}
TextOut (380,220, 'Tegelek');
{Çep ýokarky burçy
(380,220) koordinataly nokatda bolan gönüburçlukda
ýazgyny ýerleşdirmek}
End. {Programmanyň soňy}

10.

11.

Interaktiw-multimedia elektron
gollanmanyň awtorlary:
Saryýew Döwran
Ataýew Kakageldi
Garýagdyýew Oraz