|
Identification Division.
Program-Id. Victor.
* Buch "Introduction to Cybernetics", 1966
* von Viktor Gluschkow
* p268
Data Division.
Working-Storage Section.
78 n value 100.
77 i pic 9(4).
77 k pic 9(4).
77 s pic 9(4)V9(4) comp occurs n.
77 b pic 9(4)V99 occurs n.
01 a occurs n.
02 pic 9(4)V99 occurs n.
Procedure Division.
* Formula
accept a
accept b
perform varying k from 1 until k=n
move 0 to s(k)
perform varying i from 1 until i=n
compute s(k)=s(k)+b(i)*a(i,k)
end-perform
end-perform
display "s="s
* s=sum(a(i)*b(i)
End-Program Victor.
¤ Dauer der Verarbeitung: 0.2 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.
|
