|
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 - download
Length: 1024 (0x400)
Types: TextFile
Names: »VARER1.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─ ⟦this⟧ »VARER1.PAS«
PROGRAM varer1;
VAR
nummer : INTEGER;
BEGIN
WRITE(CHR(12),'Indtast varenummer: '); READLN(nummer);
WRITELN;
IF nummer < 1
THEN WRITELN(nummer:3,' er et ulovligt varenummer')
ELSE IF nummer <= 20
THEN WRITE('Vare nummer: ',nummer:3,' ligger i varegruppe 1.')
ELSE IF nummer <= 40
THEN WRITE('Vare nummer: ',nummer:3,' ligger i varegruppe 2.')
ELSE IF nummer <= 60
THEN WRITE('Vare nummer: ',nummer:3,' ligger i varegruppe 3.')
ELSE IF nummer <= 80
THEN WRITE('Vare nummer: ',nummer:3,' ligger i varegruppe 4.')
ELSE IF nummer <= 100
THEN WRITE('Vare nummer: ',nummer:3,' ligger i varegruppe 5.')
ELSE WRITE(nummer:3,' er et ulovligt varenummer');
WRITELN;
END.
«eof»