program funzione;

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_grafico:=3D9;

modo_grafico:=3D2;

InitGraph(driver_grafico,modo_grafico, 'c:\tp\bgi');

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

line(320,0,320,479); (* asse y *)<= o:p>

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

line(625,245,639,240);

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

line(325,14,320,0) ;

k:=3D0;

while k<200 do begin=

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

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

repeat

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

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

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

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

= y_schermo:=3Dround(y1);

= y_schermo:=3D240-y_schermo;

= x1:=3Dk*cos(a)+k; (* f= attore di scala per x *)

= x_schermo:=3Dround(x1);

= x_schermo:=3D320+x_schermo;

= putpixel(x_schermo,y_schermo,5);

= putpixel(y_schermo,x_schermo,5);

end;

a:=3Da+inc= remento;

until a>6.28;<= /o:p>

k:=3Dk+5;

end;=

outtextxy(590,245,'ass= e x');

outtextxy(330,1,'asse = y');

repeat until keypresse= d;

closegraph;

end.=