|
identification division.
program-id. sin.
* aus Wirth, systematisches Programmieren p. 65
author. "JD".
date-written. 11.9.2005.
date-compiled.
data division.
working-storage section.
77 s pic 9(4)V9(4) comp.
77 t pic 9(4)V9(4) comp.
77 k pic 9(4) comp.
77 eps pic 9(4)V9(4) comp value 0.001.
linkage section.
77 x pic 9(4)V9(4) comp.
77 r pic 9(4)V9(4) comp.
procedure division using x r.
* computes sin(x)
move x to t
move 1 to k
move t to s
perform until function abs(t) <= eps * function abs(s)
add 2 to k
compute t = - t * x * x / ( k * (k - 1))
add t to s
end-perform.
move s to r.
end-program sin.
¤ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
