Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
Loecks-P43.cob
Sprache: Cobol
|
identification division.
program-id. betrag.
* von Appell/Väth
* aus Funktionalanalysis S. 324
* eine Approximation der Betragsfunktion
author. "JD".
date-written. 18.9.2006.
date-compiled.
data division.
working-storage section.
77 xn pic 9(8)V99.
77 t pic 9(4).
procedure division.
display "start"
move 0 to t xn
perform 100 times
add 1 to t
compute xn=xn+1/2*(t*t- xn*xn)
end-perform
display "done, xn="xn.
end-program betrag.
[ Verzeichnis aufwärts0.14unsichere Verbindung
Übersetzung europäischer Sprachen durch Browser
]
|
|
