IdentificationDivision. Program-Id. Victor. * Buch "Introduction to Cybernetics", 1966 * von Viktor Gluschkow * p268 DataDivision. Working-StorageSection.
78 n value 100.
77 i pic 9(4) comp.
77 s pic 9(4)V9(4) comp.
77 a pic 9(4)V99 occurs n.
77 b pic 9(4)V99 occurs n. ProcedureDivision. * Formula accept a accept b move 0 to s performvarying i from 1 until i=n compute s=s+a(i)*b(i) end-perform. display"s="s * s=sum(a(i)*b(i) End-Program Victor.
¤ Dauer der Verarbeitung: 0.18 Sekunden
(vorverarbeitet)
¤
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.