DataMuseum.dk

top - metrics - download

    Length: 1760 (0x6e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »EXAMEN«

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »EXAMEN« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »EXAMEN« 

Text

0010 // -------------------------- examen --------------------------------
0020 // Programmet udskriver navn, nummer,10 eksamenskarakterer
0030 // samt gennemsnit.
0040 // Data indlæses ved data-sætninger.
0045 INTEGER K1,K2,K3,K4,K5,K6,K7,K8,K9,K10
0050 DIM NAVN$ OF 25,NR$ OF 10,SV$ OF 1
0060 // 
0070 FOR I:=1 TO 2 DO 
0080 READ NAVN$,NR$,K1,K2,K3,K4,K5,K6,K7,K8,K9,K10
0090 CLEAR 
0100 CURSOR 10,2
0110 PRINT "U D S K R I F T    a f   E K S A M E N S P R O T O K O L L E N ."
0120 CURSOR 10,3
0130 PRINT "----------------------------------------------------------------"
0140 CURSOR 10,7
0150 PRINT "Navn:                  ";NAVN$
0160 CURSOR 10,8
0170 PRINT "Nummer:                ";NR$
0180 CURSOR 10,10
0190 PRINT "Dansk, skr:            ";K1
0200 CURSOR 10,11
0210 PRINT "Dansk, skr:            ";K2
0220 CURSOR 10,12
0230 PRINT "Engelsk, skr:          ";K3
0240 CURSOR 10,13
0250 PRINT "Engelsk, mdt:          ";K4
0260 CURSOR 10,14
0270 PRINT "Tysk, skr:             ";K5
0280 CURSOR 10,15
0290 PRINT "Historie:              ";K6
0300 CURSOR 10,16
0310 PRINT "Matematik, skr:        ";K7
0320 CURSOR 10,17
0330 PRINT "Matematik, mdt:        ";K8
0340 CURSOR 10,18
0350 PRINT "Fysik:                 ";K9
0360 CURSOR 10,19
0370 PRINT "Orden:                 ";K10
0380 PRINT 
0390 GENNEMSNIT:=(K1+K2+K3+K4+K5+K6+K7+K8+K9+K10)/10
0400 CURSOR 10,21
0410 PRINT USING "Gennemsnit:         ###.#":GENNEMSNIT
0430 CURSOR 70,23
0440 INPUT "Return!":SV$
0470 NEXT I
0480 // 
0490 DATA "Hans Hansen","2208651203",8,9,5,6,8,9,6,7,11,6
0500 DATA "Jens Jensen","1205661109",7,6,9,8,10,9,8,9,11,11