Von Thomas Jannot, PC Magazin PLUS 1/1989
 |
Die wenigsten Cobol-Compiler verfügen über trigonometrische Funktionen, um z.B. den Sinus berechnen zu können. SINUS.COB, geschrieben für MS-Cobol 2.1, demonstriert auf einfachste Weise die bis auf 10 Stellen hinter dem Komma genaue Sinusberechnung per Fakultät. |
Berechnet wird der Sinus von x, während sich x in Zehntel-Schritten von -3,14 bis +3,14 bewegt. Je nach Lage des Sterns in den Zeilen 30 oder 31 können Sie sich entweder eine Sinuskurve oder die einzelnen Ergebnisse anzeigen lassen. Die Ungenauigkeiten in der Kurve ergeben sich aus der Anpassung der Sinuswerte an die Bildschirmkoordinaten. Vergleichen Sie die Ergebnisse ruhig einfach mal mit GW-Basic. Die Ausführungsgeschwindigkeit der Cobol-Routine ist nicht gerade berauschend - für die ohnehin seltenen Fälle einer solchen Rechnung in dieser Programmiersprache sollte sie jedoch ausreichen.
