# Gewinnverteilung

## Problembeschreibung

******************************************
Dokumentnummer: D1174
Quelle: Johann Weilharter,
             Wirtschaftsrechnen
******************************************

Gegeben sind der Gewinn und die Einlagen von n Gesellschaftern.
Der Gewinn ist im Verhältnis der Einlagen zu verteilen.

Wir erstellen ein Maxima-Programm für diesen Zweck.

## Problemlösung

EINGABE

Gewinn:read("Gib den zu verteilenden Gewinn ein");

Der Verteilungsschlüssel könnte sich z.B, aus den Anteilen der
Gesellschafter ergeben

Verteiler:read("Gib die Einlagen der Gesellschafter als Liste ein in []");

VERARBEITUNG

Wie viele Gesellschafter sind beteiligt?

n:length(Verteiler);

Wie hoch ist die Summe der Einlagen?

s:sum(Verteiler[i],i,1,n);

Welcher Anteil entfällt auf eine GE ? (Verteilungsschlüssel)

Anteil:Gewinn/s,numer;

Teile:Verteiler*Anteil;

AUSGABE

for i:1 thru n do
     print(concat(i,".ter Gesellschafter bekommt ",
           ?truncate(Teile[i]*100+0.5)/100.0," GE"))$

## Wo wird das im Unterricht verwendet?

Rechnungswesen
Verteilungsrechnung
Fortlaufende Proportionen