1
Download User Control Language (UCL) Reference Manual
Transcript
Dok.-Nr/Doc. No.: COL–RIBRE–STD–0010 Daimler–Benz Aerospace Raumfahrt-Infrastruktur Ausgabe/Issue: Überarbtg./Rev.: Seite/Page: 4 – 4–60 Datum/Date : 13.03.1998 Datum/Date: von/of 4–71 function Sum_Of (A : array of INTEGER) : INTEGER; variable Sum : INTEGER := 0; begin for I := 0 to HIGH (A) do Sum := Sum + A(I); end for; return Sum; end Sum_Of; Daimler–Benz Aerospace AG, D–28199 Bremen – All Rights reserved – Copyright per DIN 34
