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