DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦1a55b2c0b⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »SIDE118«

Derivation

└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
    └─ ⟦this⟧ »SIDE118«

TextFile

0010 DIM tekst$ OF 80
0015 n:= 0 // denne sætning er kun nødvendig i RC
0020 INPUT "tast tekst: ": tekst$
0030 EXEC antalcifre(tekst$,n)
0040 PRINT "antal cifre i teksten: ",n
0050 END  // -----slut hovedprogram ------
0060 //
0070 PROC antalcifre(a$,REF antal) CLOSED
0080   antal:= 0
0090   FOR i:= 1 TO LEN(a$) DO
0100     IF a$(i:i) IN "0123456789" THEN antal:= antal+1
0110   NEXT i
0120 ENDPROC antalcifre
«eof»