|
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 - download
Length: 1472 (0x5c0)
Types: TextFile
Notes: Mikados_K
Names: »UDSPRING.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »UDSPRING.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »UDSPRING.K«
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
0x000…042 Line {l1=0x40, l2=»0010 // ---------------------- udspring ------------------------«, l3=0x40}
0x042…07c Line {l1=0x38, l2=»0020 // Udregner karakteren ved en udspringskonkurrence.«, l3=0x38}
0x07c…08c Line {l1=0x0e, l2=»0025 INTEGER I«, l3=0x0e}
0x08c…0b7 Line {l1=0x29, l2=»0030 INPUT "Antal deltagere: ":ANTAL«, l3=0x29}
0x0b7…0d1 Line {l1=0x18, l2=»0040 DIM RESULTAT(ANTAL)«, l3=0x18}
0x0d1…0db Line {l1=0x08, l2=»0050 // «, l3=0x08}
0x0db…0e8 Line {l1=0x0b, l2=»0060 CLEAR «, l3=0x0b}
0x0e8…104 Line {l1=0x1a, l2=»0070 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x104…111 Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x111…12f Line {l1=0x1c, l2=»0090 PRINT "Deltager nr: ";I«, l3=0x1c}
0x12f…15f Line {l1=0x2e, l2=»0100 INPUT "Sværhedsgrad (0.1 - 2.5): ":SVÆR«, l3=0x2e}
0x15f…181 Line {l1=0x20, l2=»0110 SUM:=0;STØRST:=0;MINDST:=11«, l3=0x20}
0x181…19b Line {l1=0x18, l2=»0120 FOR KAR:=1 TO 7 DO «, l3=0x18}
0x19b…1d4 Line {l1=0x37, l2=»0130 INPUT "Indtast karakter (0.0 - 10.0): ":KARAKTER«, l3=0x37}
0x1d4…1ec Line {l1=0x16, l2=»0140 SUM:=SUM+KARAKTER«, l3=0x16}
0x1ec…21b Line {l1=0x2d, l2=»0150 IF KARAKTER>STØRST THEN STØRST:=KARAKTER«, l3=0x2d}
0x21b…24a Line {l1=0x2d, l2=»0160 IF KARAKTER<MINDST THEN MINDST:=KARAKTER«, l3=0x2d}
0x24a…259 Line {l1=0x0d, l2=»0170 NEXT KAR«, l3=0x0d}
0x259…276 Line {l1=0x1b, l2=»0180 SUM:=SUM-STØRST-MINDST«, l3=0x1b}
0x276…28a Line {l1=0x12, l2=»0190 SUM:=SUM*SVÆR«, l3=0x12}
0x28a…2a3 Line {l1=0x17, l2=»0200 RESULTAT(I):=SUM/5«, l3=0x17}
0x2a3…2b0 Line {l1=0x0b, l2=»0210 NEXT I«, l3=0x0b}
0x2b0…2bd Line {l1=0x0b, l2=»0220 PRINT «, l3=0x0b}
0x2bd…2c7 Line {l1=0x08, l2=»0230 // «, l3=0x08}
0x2c7…2e3 Line {l1=0x1a, l2=»0240 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x2e3…32a Line {l1=0x45, l2=»0250 PRINT USING "Deltager nr.### --- resultat:###.## ":I,RESULTAT(I)«, l3=0x45}
0x32a…337 Line {l1=0x0b, l2=»0260 NEXT I«, l3=0x0b}
0x337…340 00 00 74 65 72 65 6e 20 76 ┆ teren v┆
0x340…360 65 64 20 65 6e 20 75 64 73 70 72 69 6e 67 73 6b 6f 6e 6b 75 72 72 65 6e 63 65 2e 38 29 30 30 33 ┆ed en udspringskonkurrence.8)003┆
0x360…380 30 20 49 4e 50 55 54 20 22 41 6e 74 61 6c 20 64 65 6c 74 61 67 65 72 65 3a 20 20 20 20 20 20 22 ┆0 INPUT "Antal deltagere: "┆
0x380…3a0 3a 41 4e 54 41 4c 29 18 30 30 34 30 20 44 49 4d 20 52 45 53 55 4c 54 41 54 28 41 4e 54 41 4c 29 ┆:ANTAL) 0040 DIM RESULTAT(ANTAL)┆
0x3a0…3c0 18 08 30 30 35 30 20 2f 2f 20 08 0b 30 30 36 30 20 43 4c 45 41 52 20 0b 1a 30 30 37 30 20 46 4f ┆ 0050 // 0060 CLEAR 0070 FO┆
0x3c0…3e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0xf…]