|
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 - metrics - download
Length: 1760 (0x6e0)
Notes: Mikados TextFile, Mikados_K
Names: »ANALYSE«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ANALYSE«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ANALYSE«
0010 // ----------------------- analyse ------------------------ 0020 // Optæller antallet af vokaler, konsonanter, cifre og mellemrum 0030 // i en forud indtastet tekst. Programmet kan let udvides til 0040 // at omfatte analyse af en tekst med alle tegn. 0050 DIM VOKAL$ OF 10,KONSONANT$ OF 20,BLANKTEGN$ OF 1,TEXT$ OF 80 0055 DIM TAL$ OF 10 0060 ANTVOKAL:=0;ANTKONSONANT:=0;ANTBLANKTEGN:=0;ANTTAL:=0 0070 // --------------------------------------------------------------------- 0080 CLEAR 0090 VOKAL$:="aeiouyzæøå" 0100 KONSONANT$:="bcdfghjklmnpqrstvxz" 0110 BLANKTEGN$:=" " 0120 TAL$:="1234567890" 0125 PRINT 0130 PRINT "Indtast en tekst på højst 80 tegn. (Brug små bogstaver og tal):" 0140 PRINT 0150 INPUT TEXT$ 0160 FOR I:=1 TO LEN(TEXT$) DO 0170 IF TEXT$(I:1) IN VOKAL$ THEN ANTVOKAL:=ANTVOKAL+1 0180 IF TEXT$(I:1) IN KONSONANT$ THEN ANTKONSONANT:=ANTKONSONANT+1 0190 IF TEXT$(I:1) IN BLANKTEGN$ THEN ANTBLANKTEGN:=ANTBLANKTEGN+1 0200 IF TEXT$(I:1) IN TAL$ THEN ANTTAL:=ANTTAL+1 0210 NEXT I 0220 // -------------------------------------------------------------------- 0230 PRINT 0240 PRINT 0250 PRINT USING "I teksten er der: #### vokaler. ":ANTVOKAL 0260 PRINT USING "I teksten er der: #### konsonanter. ":ANTKONSONANT 0270 PRINT USING "I teksten er der: #### mellemrum. ":ANTBLANKTEGN 0280 PRINT USING "I teksten er der: #### cifre. ":ANTTAL