DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦a70b87c38⟧

    Length: 992 (0x3e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »SØJLESUM«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »SØJLESUM« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »SØJLESUM« 

Text

0010 // ----------------------- Søjlesum --------------------
0020 // 
0030 PROC AFRUND(X)
0040 AFRUND:=INT(X*100+0.5)/100
0050 ENDPROC AFRUND
0060 // 
0070 PROC SØJLESUMMER(REF MATRIX(,),RÆKKE,SØJLE,REF SUM())
0080 // 
0090 FOR I:=1 TO SØJLE DO 
0100 FOR J:=1 TO RÆKKE DO 
0110 SUM(I):=SUM(I)+AFRUND(MATRIX(J,I))
0120 NEXT J
0130 NEXT I
0140 ENDPROC SØJLESUMMER
0150 // 
0160 CLEAR 
0164 PRINT 
0165 PRINT 
0170 DIM TALSÆT(5,3),SØJLESUM(3)
0180 FOR I:=1 TO 5 DO 
0190 FOR J:=1 TO 3 DO 
0200 READ TALSÆT(I,J)
0210 NEXT J
0220 NEXT I
0230 EXEC SØJLESUMMER(TALSÆT,5,3,SØJLESUM)
0240 // 
0250 FOR I:=1 TO 3 DO 
0260 PRINT CHR$(SØJLESUM(I),8,2)
0270 NEXT I
0280 // 
0290 DATA 12.345,12.4,8.887999
0300 DATA 2.551,45.347,23.121
0310 DATA 89.899,34.725,76.123
0320 DATA 45.358,63.736,86.853
0330 DATA 38.482,48.395,26.428