|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4032 (0xfc0)
Notes: Mikados TextFile, Mikados_K
Names: »FLYBILLE«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FLYBILLE«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FLYBILLE«
0010 // ----------------------- flybillet ------------------------ 0020 // Programmet udregner flypriser med tre forskellige rabatsystemer. 0030 // Normalpris: Computertown tur/retur 900 kr. 0040 // Rabatpris ved grupper over 10 personer: 80% af billet. 0050 // Familiepris: Voksen: 100 %, ægtefælle: 50 %, efterfølgende børn: 10 % 0060 // --------------------------------------------------------------------- 0070 CLEAR 0080 CURSOR 5,5 0090 PRINT " F L Y B I L L E T : K Ø B E N H A V N "; 0095 PRINT "- C O M P U T E R T O W N ." 0100 PRINT "_________________________________________"; 0105 PRINT "___________________________" 0110 CURSOR 1,9 0120 INPUT "Indtast antallet af passagerer: ":ANTAL 0130 CURSOR 1,11 0140 INPUT "Indtast familieforhold: (Hvis familie: 1, ellers 0) ":FAMILIE 0150 IF ANTAL<=10 AND FAMILIE=0 THEN EXEC ENKELTBILLET 0160 IF ANTAL>10 AND FAMILIE=0 THEN EXEC GRUPPEBILLET 0170 IF ANTAL>1 AND FAMILIE=1 THEN EXEC FAMILEBILLET 0180 // --------------------------------------------------------------------- 0190 PROC ENKELTBILLET 0200 PRINT 0210 PRINT "Der skal betales 900 kr. tur/retur Computertown for hver billet." 0220 PRINT USING "Ialt: #######.## kr.":900*ANTAL 0230 ENDPROC ENKELTBILLET 0240 // --------------------------------------------------------------------- 0250 PROC GRUPPEBILLET 0260 PRINT 0270 PRIS:=900*0.8 0280 PRINT USING "Der skal betales ######.## kr.":PRIS; 0281 PRINT " tur/retur Computertown for hver billet" 0290 PRINT 0300 PRINT USING "Ialt: #######.## kr.":PRIS*ANTAL 0310 ENDPROC GRUPPEBILLET 0320 // --------------------------------------------------------------------- 0330 PROC FAMILEBILLET 0340 PRINT 0350 IF ANTAL>14 THEN PRINT "Familien skal overveje at leje sit eget fly." 0360 PRINT 0370 PRIS:=900+900*0.5+(ANTAL-2)*900*0.1 0380 PRINT USING "Voksen: #######.## kr.":900 0390 PRINT USING "Ægtefælle: #######.## kr.":900*0.5 0400 IF ANTAL>2 THEN 0401 PRINT USING "Hvert barn skal betale: #######.## kr. ":900*0.1 0402 ENDIF 0410 PRINT 0420 PRINT USING "Familen skal betale:######.## tur/retur Computertown.":PRIS 0430 ENDPROC FAMILEBILLET