|
|
| Problems with procedure 'reduction at first quadrant' at program sin(x) in Pascal |
     |
Meine Frage:
Berechnung von sin(x) mit sog. Potenzreihen.
Beim Prozedure Reduktion soll der Winkel so reduziert werden dass er auf dem ersten Quadrant liegt. Ich habe das Code geschrieben aber leider funktioniert es nicht und ich verstehe nicht was ich falsch mache.
Danke im Voraus für Ihre Hilfe
Meine Ideen:
Program test;
var x,w,z,a,b,c,d,vz:Real;
{x result, w angle}
Procedure Reduction(w,z,vz,a,b,c,d:integer;var x:integer);
Program test;
var x,w,z,a,b,c,d,vz:Real;
Procedure Reduction(w,z,vz,a,b,c,d:integer;var x:integer);
begin
vz:=-1;
z:= w div 360;
a:= w mod 360;
if z<1 then do x:=sin(w)
else do x:=sin(a);
if w<90 then do x:=sin(w);
if w>90 then w<180 then do b:=180-w and x:=sin(b);
if w>180 and w<270 then do c:=w-180 and x:=vz*sin(c);
if w>270 and w<360 then do d:=360-w and x:=vz*sin(d);
if w=90 then x=1;
if w=270 then x=vz*1;
if w=360 or w=180 or w=0 then x=0;
end;
Begin
ClrScr
Write('Bitte Winkel eingeben: ');
ReadLn (w);
y:=sin(w);
Write('Der Sinus des Winkels ',w:7:2, 'beträgt: ',Sinus(w):7:5);
End
|
|
