|
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: »UGEDAG«
└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
└─ ⟦this⟧ »UGEDAG«
0010 DIM dag$(13) OF 7,ugedag$ OF 7 0020 dag$(1):= "søndag"; dag$(2):= "mandag"; dag$(3):= "tirsdag" 0030 dag$(4):= "onsdag"; dag$(5):= "torsdag"; dag$(6):= "fredag" 0040 dag$(7):= "lørdag"; dag$(8):= "søndag"; dag$(9):= "mandag" 0050 dag$(10):= "tirsdag"; dag$(11):= "onsdag"; dag$(12):= "torsdag" 0060 dag$(13):= "fredag" 0070 // 0080 INPUT "tast ugedag (små bogstaver): ": ugedag$ 0090 INPUT "tast antal dage: ": antal 0100 // nu findes hvilket nummer den indtastede ugedag har på listen 0110 nr:= 0 0120 REPEAT 0130 nr:= nr+1 0140 UNTIL ugedag$=dag$(nr) 0150 // 0160 r:= antal MOD 7 0170 nytnr:= nr+r 0180 PRINT "den nye ugedag er en ";dag$(nytnr) 0190 //------------------------------------------------------------- «eof»