|
identification division.
program-id. lp169.
* aus Loecks/Sieber p. 169
* berechnet die Wurzel aus x
author. Jens.
date-written. 11.9.2005.
date-compiled.
data division.
working-storage section.
77 y1 pic 9(4).
77 y2 pic 9(4).
77 y3 pic 9(4).
linkage section.
77 x pic 9(4).
77 r pic 9(4).
77 z pic 9(4).
procedure division using x r returning z.
move 0 to y1
move 1 to y2 y3
perform until y3 <= x
subtract 1 from y1
add 2 to y2
add y2 to y3
end-perform
move y1 to z
end-program lp169.
¤ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
