|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1152 (0x480)
Types: TextFile
Names: »BIBLIOT.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─⟦this⟧ »BIBLIOT.PAS«
PROGRAM bibliot;
VAR
nummer : INTEGER;
BEGIN
WRITE(CLRHOM);
GOTOXY(0, 4);
WRITE('Indtast bogens nummer: '); READLN(nummer);
GOTOXY(0, 8);
WRITELN('En bog med nummeret ', nummer, ' ligger i gruppen:');
WRITELN;
IF nummer <= 9
THEN WRITE('00 - 09 Blandede skrifter.')
ELSE IF nummer <= 19
THEN WRITE('10 - 19 Filosofi. Psykologi. Videnskab og forskning.')
ELSE IF nummer <= 29
THEN WRITE('20 - 29 Religion.')
ELSE IF nummer <= 39
THEN WRITE('30 - 39 Samfundsvidenskab. Pædagogik. Folkeliv.')
ELSE IF nummer <= 49
THEN WRITE('40 - 49 Geografi og rejser.')
ELSE IF nummer <= 59
THEN WRITE('50 - 59 Naturvidenskab og matematik.')
ELSE IF nummer <= 69
THEN WRITE('60 - 69 Praktiske fag.')
ELSE IF nummer <= 79
THEN WRITE('70 - 79 Kunst. Teater. Film. Musik. Spil. Idræt.')
ELSE IF nummer <= 89
THEN WRITE('80 - 89 Litteratur. Sprog.')
ELSE IF nummer <= 99
THEN WRITE('90 - 99 Historie.')
ELSE WRITE('Ulovligt nummer!');
WRITELN;
WRITELN;
END.
«eof»