# Progressive Handelskalkulation

## Problembeschreibung

******************************************
Dokuemntnummer: D1201
Quelle: Johann Weilharter,
             Wirtschaftsrechnen
******************************************

Die progressive Handelskalkulation ist abzurechnen.

## Problemlösung

EINGABE

angabe:read("Gib den Warenwert und die Kalkulationsprozentsätze ein");

VERARBEITUNG

ww:angabe[1];

lrp:angabe[2];

lsp:angabe[3];

bkp:angabe[4];

rgp:angabe[5];

gwp:angabe[6];

ksp:angabe[7];

krp:angabe[8];

usp:angabe[9];

lrg:ww*lrp/100.0;

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

ze:ww-lrg;

lsg:ze*lsp/100.0;

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

ke:ze-lsg;

bkg:ke*bkp/100.0;

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

ep:ke+bkg;

rgs:ep*rgp/100.0;

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

sp:ep+rgs;

gwg:sp*gwp/100.0;

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

kv:sp+gwg;

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

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

zv:kv+ksg;

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

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

ln:zv+krg;

usg:ln*usp/100.0;

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

lb:ln+usg;

ergebnis:matrix(
 ["Position","Betrag"], 
 ["Warenwert",ww], 
 ["- Lieferantenrabatt",lrg], 
 ["Zieleinkaufspreis",ze], 
 ["- Lieferantenskonto",lsg], 
 ["Kassaeinkaufspreis",ke], 
 ["+ Bezugskosten",bkg], 
 ["Einstandspreis",ep], 
 ["+ Regien",rgs], 
 ["Selbstkostenpreis",sp], 
 ["+ Gewinn",gwg], 
 ["Kassaverkaufspreis",kv], 
 ["+ Kundenskonto",ksg], 
 ["Zielverkaufspreis",zv], 
 ["- Kundenrabatt",krg], 
 ["Listenverkaufspreis Netto",ln], 
 ["+ Umsatzsteuer",usg], 
 ["Listenverkaufspreis Brutto",lb]
)$

AUSGABE

print(ergebnis)$