# Progressive Handelskalkulation

## Problembeschreibung

******************************************
Gokumentnummer: D1059
Quelle: Johann Weilharter,
             Wirtschaftsrechnen
******************************************

Ein Programm zur progressiven Handelskalkulation ist gesucht.

## Problemlösung

EINGABE

wwg:read("Gib den Warenwert ein");

lrp:read("Gib den Lieferantenrabatt in % ein");

lsp:read("Gib den Lieferantenskonto in % ein");

bkp:read("Gib die Bezugskosten in % ein");

rgp:read("Gib die Regien in % ein");

gwp:read("Gib den Gewinn in % ein");

ksp:read("Gib den Kundenskonto in % ein");

krp:read("Gib den Kundenrabatt in % ein");

usp:read("Gib den Umsatzsteuerstatz in % ein");

VERARBEITUNG

lrg:wwg*lrp/100.0;

zeg:wwg-lrg;

lsg:zeg*lsp/100.0;

keg:zeg-lsg;

bkg:keg*bkp/100.0;

epg:keg+bkg;

rgg:epg*rgp/100.0;

skg:epg+rgg;

gwg:skg*gwp/100.0;

kvg:skg+gwg;

ksg:kvg*ksp/(100.0-ksp);

zvg:kvg+ksg;

krg:zvg*krp/(100.0-krp);

lng:zvg+krg;

usg:lng*usp/100.0;

lbg:lng+usg;

lbg:floor(lbg*100+0.5)/100.0;

AUSGABE

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