|
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: »PAKKEPST.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─⟦this⟧ »PAKKEPST.PAS«
PROGRAM pakkepst;
VAR
vaegt, portokr : REAL;
porto, gruppe : INTEGER;
BEGIN
WRITELN(CLRHOM);
WRITELN('POSTTAKSTER FOR PAKKEPOST');
WRITELN('_________________________');
WRITELN;
WRITE('Indtast pakkens vægt i kg (ikke over 20 kg): '); READLN(vaegt);
WRITELN;
WRITELN('Almindelig pakke .......... tast 1');
WRITE('Voluminøs pakke ........... tast 2: '); READLN(gruppe);
WRITELN;
IF vaegt <= 5
THEN porto := 1700
ELSE IF vaegt <= 10
THEN porto := 3000
ELSE IF vaegt <= 15
THEN porto := 5500
ELSE IF vaegt <= 20
THEN porto := 6500
ELSE WRITELN('Denne pakke er da vist fragtgods!');
IF gruppe = 2
THEN porto := porto * 2;
portokr := porto / 100;
IF (vaegt <= 20) AND ((gruppe = 1) OR (gruppe = 2))
THEN
BEGIN
WRITELN('Pakkens vægt: ', vaegt : 5 : 2, ' kg');
WRITELN;
WRITELN('Porto: ', portokr : 6 : 2, ' kr');
END;
WRITELN;
END.
«eof»