|
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: 1024 (0x400)
Types: TextFile
Names: »POST1.PAS«
└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
└─ ⟦this⟧ »POST1.PAS«
└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
└─ ⟦this⟧ »POST1.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─ ⟦this⟧ »POST1.PAS«
PROGRAM post1;
VAR
vaegt : INTEGER;
porto : REAL;
BEGIN
WRITE(CLRHOM);
GOTOXY(0, 2);
WRITELN(' P o s t t a k s t e r i D a n m a r k p r :',
' 1 . j u n i 1 9 8 4');
WRITE(' -------------------------------------------------',
'-------------------------');
GOTOXY(0, 5);
WRITE(' Indtast brevets vægt i gram: '); READLN(vaegt);
CASE vaegt OF
0 .. 20 : porto := 270;
21 .. 100 : porto := 370;
101 .. 250 : porto := 550;
251 .. 500 : porto := 900;
501 .. 1000 : porto := 1300;
END;
GOTOXY(0, 10);
IF (0 <= vaegt) AND (vaegt <= 1000)
THEN
BEGIN
WRITE(' Brevets vægt: ', vaegt : 4, ' gr');
GOTOXY(0, 12);
WRITE(' Porto: ', porto / 100 : 5 : 2, ' kr');
END
ELSE
WRITE(' Ulovlig brevvægt!');
GOTOXY(0, 20);
END.
«eof»