MCVSI schnecke2 Miscellaneous Ó schnecke2gClick to insert. ùùùùùùùùùùùùùùùùùùùùùùìììùùìììùùìììùùùùùùùùùùùùùùùùùùùùùù€€€ü@@@@C„C„C„@@@@ü¾× ð anzahl20winkela50winkelb40PROCEDURE schnecke; VAR winkela:REAL; winkelb:REAL; a:REAL; b:REAL; c:REAL; d:REAL; e:REAL; f:REAL; anzahl:INTEGER; z:REAL; y:INTEGER; BEGIN; winkela:=PWINKELA; winkelb:=PWINKELB; anzahl:=PANZAHL; a:=winkela*3.14/180; b:=winkelb*3.14/180; c:=0.5; z:=0; LineTo(c,0); MoveTo(0,0); FOR y:=1 TO anzahl DO BEGIN e:=Tan(b)*(c+z); LineTo(c+z,e); d:=z+Tan(a)*(Tan(b)*(0.5+z)); LineTo(c+d,0); LineTo(c+z,0); LineTo(c+z,e); f:=z+Tan(a)*Tan(b)*(0.5+z)/2; LineTo(c+f,0); MoveTo(c+z,e); z:=d; END; END; RUN(schnecke);anzahl segmenteWinkel aWinkel b