Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
zeta.cob
Sprache: Cobol
|
identification division.
program-id. zeta.
* aus Jones&Jones,
* Elementary Number Theory
* p 164
author. "JD".
date-written. 5.2.2009.
date-compiled.
data division.
working-storage section.
77 i pic S9(4).
77 j pic S9(4).
77 d pic S9(4).
linkage section.
77 s pic 9(4).
77 n0 pic 9(4)..
77 z pic S9(4)V9(4).
procedure division using s n0 returning z.
move 0 to z.
perform varying i from 1 until i>n0
move 1 to d
perform varying j from 1 until j>s
multiply i by d
end-perform
compute z=z+1/d
end-perform
* now zeta=sum(1,n0,1/n**s)
end program zeta.
[ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet)
]
|
|
