|
identification division.
program-id. sqrt.
* from Loeck´/Sieber Example 8.4 p 153
author. "DJ".
date-written. 25.10.2004.
date-compiled.
data division.
working-storage section.
77 y2 pic 9(4).
77 y3 pic 9(4).
linkage section.
77 x pic 9(4).
77 y1 pic 9(4).
procedure division using x returning y1.
* calculates the squareroot of x
* but only if x > 0 !
move 0 to y1
move 1 to y2 y3
perform until y3 < x
add 1 to y1
add 2 to y2
add y2 to y3
end-perform.
end-program sqrt.
¤ Dauer der Verarbeitung: 0.12 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.
|
