|
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: 3008 (0xbc0)
Notes: Mikados TextFile, Mikados_K
Names: »SALGSPR3«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SALGSPR3«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SALGSPR3«
0010 // -------------------- salgspris3 ----------------------------- 0020 // Programmet udregner salgspris v/procedurer med to parametre. 0030 CLEAR 0040 NUMMER:=0 0050 // ------------------------------------------------------------- 0060 INPUT "Indtast købspris og fortjeneste i %: ":KØBSPRIS1,PCT1 0070 INPUT "Indtast købspris og fortjeneste i %: ":KØBSPRIS2,PCT2 0080 INPUT "Indtast købspris og fortjeneste i %: ":KØBSPRIS3,PCT3 0090 // ------------------------------------------------------------- 0100 PRINT "------------------------------------------------------------" 0110 // ------------------------------------------------------------- 0120 EXEC FORTJENESTE(PCT1,KØBSPRIS1) 0130 EXEC FORTJENESTE(PCT2,KØBSPRIS2) 0140 EXEC FORTJENESTE(PCT3,KØBSPRIS3) 0150 // ------------------------------------------------------------- 0160 PROC FORTJENESTE(PCT,KØBSPRIS) 0170 SALGSPRI:=KØBSPRIS*(100+PCT)/100 0180 EXEC UDSKRIFT 0190 ENDPROC FORTJENESTE 0200 // ------------------------------------------------------------- 0210 PROC UDSKRIFT 0220 PRINT 0230 NUMMER:=NUMMER+1 0240 PRINT USING "Nummer ### ":NUMMER 0250 PRINT USING "Købspris: #########.## kr. ":KØBSPRIS 0260 PRINT USING "Købspris: ####.## % ":PCT 0270 PRINT USING "Salgspris: #########.## kr. ":SALGSPRI 0280 PRINT "------------------------------------------------------------" 0290 ENDPROC UDSKRIFT