Problems with procedure 'reduction at first quadrant' at program sin(x) in Pascal |
| 07.02.2016, 15:41 | Auf diesen Beitrag antworten » |
| VanesaMoonlight | 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 |
|
|
|
|
|
Verwandte Themen
| Die Beliebtesten » |
| Die Größten » |
|
| Die Neuesten » |
|
