program ellisse;

uses Crt, Graph;

var

driver_grafico, modo_grafico,x_schermo,y_schermo,k:integer;

a,y,x1,y1,incremento:real;

st:string[4];

begin

driver_grafic= o:=3D9;

modo_grafico:=3D2;

InitGraph(driver_grafico<= span class=3DGramE>,modo_grafico, 'c:\tp\bgi'= );

(*if Gr= aphResult<> grOk then

Ha= lt(1);*)

line(0,= 240,639,240); (* asse x *)

line(32= 0,0,320,479); (* asse y *)

line(625,235,639,240); (* orientamento asse x *)

line(625,245,639,240);

line(315,14,320,0) ;&= nbsp; (* orientamento asse y *)

line(325,14,320,0) ;

a:=3D0; = (* valore iniziale di a *)

incremento:=3D0.01; (* inc= remento dei succesivi valori di a *)

= repeat

y:=3Dsin(a); (* equazione = della funzione *)

y1:=3D100*sin(a)+30; (* f= attore di scala per y *)

if ab= s(y1)<240 then (* salta il blocco delle istruzioni *)

begin = (* se il punto Š fuori schermo *)

= y_schermo:=3D= round(y1);

= y_schermo:=3D= 240-y_schermo;

= x1:=3D50*cos(a)+20; (* fattore di scala per x *)

= x_schermo:=3Dround(x1);;

= x_schermo:=3D= 320+x_schermo;

= putpixel(x_schermo,y_schermo,5);=

end;

a:=3Da+incremento;

un= til a>6.28;

<= span class=3DGramE>outtextxy(590,245,'a= sse x');

<= span class=3DGramE>outtextxy(330,1,'ass= e y');

re= peat until keypressed;

<= span class=3DGramE>closegraph;

end.