|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300)
Types: TextFile
Names: »GANGE«
└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
└─ ⟦this⟧ »GANGE«
0010 // programnavn GANGE (træner lette gange-stykker) 0020 //----------------------------------------------- 0030 EXEC klargøring 0040 REPEAT 0050 a:= RND(0,20) 0060 b:= RND(0,20) 0070 PRINT a;" * ";b, 0080 INPUT " = ": elevfacit 0090 IF elevfacit=a*b THEN 0100 PRINT "Svaret er korrekt - Fint klaret!" 0110 ELSE 0120 PRINT "Nej, det er forkert! - Facit bliver: ";a*b 0130 ENDIF 0140 INPUT "Stoppe eller Fortsætte (svar S eller F): ": svar$ 0150 UNTIL svar$ IN "Ss" 0160 END //-------------slut hovedprogram---------------------- 0170 // 0180 PROC klargøring 0190 DIM svar$ OF 1 0200 RANDOMIZE 0210 CLEAR 0220 ENDPROC klargøring «eof»