|
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: 1472 (0x5c0)
Notes: Mikados TextFile, Mikados_K
Names: »UDSPRING«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »UDSPRING«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »UDSPRING«
0010 // ---------------------- udspring ------------------------ 0020 // Udregner karakteren ved en udspringskonkurrence. 0025 INTEGER I 0030 INPUT "Antal deltagere: ":ANTAL 0040 DIM RESULTAT(ANTAL) 0050 // 0060 CLEAR 0070 FOR I:=1 TO ANTAL DO 0080 PRINT 0090 PRINT "Deltager nr: ";I 0100 INPUT "Sværhedsgrad (0.1 - 2.5): ":SVÆR 0110 SUM:=0;STØRST:=0;MINDST:=11 0120 FOR KAR:=1 TO 7 DO 0130 INPUT "Indtast karakter (0.0 - 10.0): ":KARAKTER 0140 SUM:=SUM+KARAKTER 0150 IF KARAKTER>STØRST THEN STØRST:=KARAKTER 0160 IF KARAKTER<MINDST THEN MINDST:=KARAKTER 0170 NEXT KAR 0180 SUM:=SUM-STØRST-MINDST 0190 SUM:=SUM*SVÆR 0200 RESULTAT(I):=SUM/5 0210 NEXT I 0220 PRINT 0230 // 0240 FOR I:=1 TO ANTAL DO 0250 PRINT USING "Deltager nr.### --- resultat:###.## ":I,RESULTAT(I) 0260 NEXT I