|
identification division.
program-id. aufbruch.
********************************************
* eine schöne geometrische Figur aus der Zeit
* vom 12.6.2008 im Jahr-der-mathematik
********************************************
author. Jens.
date-written. 25.10.2004.
date-compiled.
data division.
working-storage section.
77 x pic 9(8)V9(4).
77 y pic 9(8)V9(4).
77 z pic 9(8)V9(4).
77 t pic 9(8)V9(4).
77 r pic 9(8)V9(4).
procedure division.
display "gestartet"
perform varying x from 0 by 0.01 until x >= 1
perform varying y from 0 by 0.01 until y >= 1
perform varying z from 0 by 0.01 until z >= 1
compute r=8*x*x*y*z*z
compute t=0.04*x*x*x*x+x*y*y+0.04*y*y*y*z
compute z=z*t
compute z=z*(z+6)
compute z=z+5*x*(9*z-25)-z*y*y
if z=0 then display "z="z
end-perform
end-perform
end-perform.
display "beendet"
end-program geometric.
¤ Dauer der Verarbeitung: 0.13 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.
|
