g. surgulaZe, g. janeliZe, i. xuciSvili

III Tavi. grafikuli reJimi
3.1. grafikuli reJimis inicializeba. funqciebi grafikuli
reJimisaTvis
grafikul reJimSi samuSaod ganvixiloT ramodenime grafikuli
qveprograma:
initgr() - inicializebas ukeTebs grafikul reJims;
move(X, ?) – gadaaadgilebs kalams (realurs an fiqtiurs)
wertilSi (?, ?) koordinatebiT;
draw(x, ?) - xazavs swor xazs kalmis mimdinare poziciidan
wertilisaken, romlis koordinatebia (?, ?);
endgr( ) - daasrulebs grafikul reJims.
ganvixiloT programa, romelic xazavs 50 kvadrats, romelTagan
yoveli momdevno winas SigniT aris ganTavsebuli.
rogorc viciT C enaSi `proceduris~ an `qveprogramis~ aRsaniS-
navad miRebulia termini `funqcia~. funqciaze mimarTva Caiwereba
mrgval frCxilebSi, maSinac ki Tu argumenti ar aris. move(X, ?) da
draw(x, ?) funqciaze mimarTvamde aucileblad unda iyos initgr()
funqciaze mimarTva. analogiurad move(x, ?) da draw(x, ?) funqciebze
bolo mimarTvis Semdeg unda iyos endgr( ) funqciaze mimarTva. orive
funqcia move(x, ?) da draw(x, ?) uzrunvelyofs kalmis gadaadgilebas
wertilSi (x, ?) koordinatebiT. amavdroulad, move(x, ?) funqciis
muSaobisas kalami gadaadgildeba aRebul mdgomareobaSi, xolo
draw(x, ?) funqciis dros daSvebul mdgomareobaSi. aRniSnuli
funqciebi ar miekuTvneba C enas. es gare funqciebia, nebismieri
programis kompilaciisas isini daematebian kavSiris redaqtoris
daxmarebiT.
main()
{ float xA, yA, xB, yB, xC, yC, xD, yD,
xxA, yyA, xxB, yyB, xxC, yyC, xxD, yyD, p, q;
int i;
p=0.95;q=1.0-p;
144