# Progressive Handelskalkulation

Dokumentnummer: D2014
Fachgebiet: Wirtschaftsrechnen,
Informatik
Einsatz: ab 1HAK

## Problembeschreibung

Ein Programm zur progressiven Handelskalkulation ist gesucht.

## Problemlösung

EINGABE

wwg:1000
/* Warenwert in €*/;
lrp:20
/* Lieferantenrabatt in % */;
lsp:3
/* Lieferantenskonto in % */;
bkp:10
/* Bezugskosten in % */;
rgp:50
/* Regien in % */;
gwp:10
/* Gewinn in % */;
ksp:3
/* Kundenskonto in % */;
krp:0
/* Kundenrabatt in % */;
usp:20
/* Umsatzsteuerstatz in % */;

VERARBEITUNG

lrg:wwg*lrp/100.0
/* Lieferantenrabatt in € */;

zeg:wwg-lrg
/* Zieleinkaufspreis in € */;

lsg:zeg*lsp/100.0
/* Lieferantenskonto in € */;

keg:zeg-lsg
/* Kassaeinkaufspreis in € */;

bkg:keg*bkp/100.0
/* Bezugskosten in € */;

epg:keg+bkg
/* Einstandspreis in € */;

rgg:epg*rgp/100.0
/* Regien oder Gemeinkosten in € */;

skg:epg+rgg
/* Selbstkosten in € */;

gwg:skg*gwp/100.0
/* Gewinn in € */;

kvg:skg+gwg
/* Kassaverkaufspreis in € */;

ksg:kvg*ksp/(100.0-ksp)
/* Kundenskonto in € */;

zvg:kvg+ksg
/* Zielverkaufspreis in € */;

krg:zvg*krp/(100.0-krp)
/* Kundenrabatt in € */;

lng:zvg+krg
/* Listenverkaufspreis netto in € */;

usg:lng*usp/100.0
/* Umsatzsteuer in € */;

lbg:lng+usg
/* Listenverkaufspreis brutto in € */;

lbg:floor(lbg*100+0.5)/100.0
/* RUNDEN auf 2 Nachkommastellen */;

AUSGABE

print("")$
print("Der Listenverkaufspreis brutto ist ",lbg," GE")$