|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 992 (0x3e0) Notes: Mikados TextFile, Mikados_K Names: »SØJLESUM«
└─⟦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«
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