90 likes | 272 Vues
Grafica in PASCAL. Pentru ca sa elaboram un grafic desen vom folosi mai multe cuvinte cheie :. Arc( x,y , α , β ,r); Bar(x¹,y¹,x²,y²); Circle( x,y,r ); Line(x¹,y¹,x²,y²); Lineto ( x,y ); Moveto ( x,y );. Outext (‘text’); Outextxy ( x,y,’text ’); Putpixel ( x,y ,(color));
E N D
Pentru ca saelaboram un grafic\desenvomfolosimaimultecuvintecheie: Arc(x,y,α,β,r); Bar(x¹,y¹,x²,y²); Circle(x,y,r); Line(x¹,y¹,x²,y²); Lineto(x,y); Moveto(x,y);
Outext(‘text’); Outextxy(x,y,’text’); Putpixel(x,y,(color)); Rectangle(x¹,y¹,x²,y²); Setcolor(color); Setfillstyle(patter; color);
In desenareaschematica a desenuluivomfolosisistemulcartizian de coordonate… axa ox vafiamplasatasus, iaroyvaincepenumaratoarea de sus in jos….
Ca sacreezi un graficsau un desen in PASCAL estenevoiesaprecizezi de la inceputulprogramului… sianumeprincuvintulcheie:”graph”, care se izoleaza cu virguladupadeschidereabibliotecii PASCAL-lui. Ex: Program p1; Uses crt, graph;
Deasemeniestenevoie de o procedura care saciteascagraficul/desenul Ex: procedure opengraph; vargd,gm:integer; begin gd:= detect; initgraph(gd,gm,’c:\tp\bgi’); end;
Pentru a inscrieparametriidoritiaigraficului/desenuluiavemnevoie de inca o procedura. Ex:proceduretriunghi; begin setlinestyle(solidln, 100,3); setcolor(red); line(170,300,150,300); line(150,300,170,200); line(170,200,170,300); end;
In programul principal vomcitiproceduraopengraphsiprocedura care am folosit-o (ex:trunghi). Ex: begin clrscr; opengraph; triunghi; readkey; closegraph; end.
Un desenreusit e acela in care depuifoartemultefortsidragoste…deci….. SPOR LA MUNCA!!!!! BY BEKK@