|
identification division.
program-id. nthprimefactor.
* Kurt Gödel, 1931
* "On formally undecidable propositions
* of principa mathematica"
author. "JD".
date-written. 11.8.2007.
date-compiled.
data division.
working-storage section.
77 q pic 9(4).
linkage section.
77 x pic 9(4).
77 y pic 9(4).
77 r pic 9(4).
procedure division using x y
returning r.
* computes x | y
move 0 to r
move 1 to q.
* invariant q < y
perform until q >= y
if function prime(q)
and function divisible(q,y) then
move q to r
end-perform.
* r = x | y
end-program nthprimefactor.
¤ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
