|
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: 640 (0x280)
Types: TextFile
Names: »MAANED2.PAS«
└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
└─ ⟦this⟧ »MAANED2.PAS«
└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
└─ ⟦this⟧ »MAANED2.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─ ⟦this⟧ »MAANED2.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─ ⟦this⟧ »MAANED2.PAS«
PROGRAM maaned2;
VAR
nummer : INTEGER;
BEGIN
WRITE(CLRHOM);
GOTOXY(5, 2); WRITE('Angivelse af antal dage i en måned:');
GOTOXY(5, 3); WRITE('-----------------------------------');
GOTOXY(5, 5); WRITE('Indtast månedens nummer (f.eks. 4): ');
READLN(nummer);
GOTOXY(5, 10);
CASE nummer OF
1, 3, 5, 7, 8, 10, 12 : WRITE('Måned nr. ', nummer, ' har 31 dage');
2 : WRITE('Måned nr. 2 har 28 (29) dage');
4, 6, 9, 11 : WRITE('Måned nr. ', nummer, ' har 30 dage');
OTHERWISE
WRITE('Du har tastet et ulovligt nummer');
END;
GOTOXY(0, 20);
END.
«eof»