Frage von vanesamoonlight, 16

Problems with procedure 'reduction at first quadrant' at program sin(x)?

program test; var w, z, a, b, c, d, x : real ; Procedure 'Reduction' (var w, z, a, b, c, d : integer ; var x: real ; ) begin z:= w div 360 ; a:= w mod 360 ; if z : < 1 then do x:= Sin(w) ; if z : >= 1 do x:= Sin(a) ; if w < 90 then do x:= Sin(w) ; b:= 180 - w ; if w > 90 and w < 180 then do x:= sin(b) ; c:= w - 180 ; if w > 180 and w < 270 then do x:= -1 * Sin(c) ; d:= 360 - w ; if w > 270 and w < 360 then do x:=b-1 * Sin(d) ; if w = 90 then do x = 1 ; if w = 270 then do x= - 1 ; if w = 360 or w = 180 or w = 0 then do x = 0 ; end; Begin ClrScr Write ('Bitte Winkel eingeben: ') ; ReadLn (w); Reduction(Sin(w)) ; x:= Sin(w) ; Write('Der Sinus des Winkels ',w:7:2, 'beträgt: ',Sin(w) : 7:5) ; End.

Antwort
von PWolff, 6

Wie sieht das als Code formatiert aus?

Ist das eine Fehlermeldung? Ist dies die vollständige Fehlermeldung, oder wie lautet diese?

Oder ein logischer Fehler (falsches Ergebnis)?

Keine passende Antwort gefunden?

Fragen Sie die Community

Weitere Fragen mit Antworten