# Listenverarbeitung lineare Kostenfunktion

## Problembeschreibung

Von einer Reihe von Kostenstellen kennt man
a) die proportionalen Kosten
b) die Produktionsmenge
c) die Fixkosten

Zu bestimmen sind
a) die Gesamtkosten
b) die Stückkosten (auch Durchschnittskosten) genannt

## Problemlösung

EINGABE

LK:read("Gib die Liste mit proportionale Kosten, Produktionsmenge und Fixkosten ein");

VERARBEITUNG 1

n:length(LK);

for i:1 thru n do ev(K[i]:LK[i][1]*LK[i][2]+LK[i][3]);

AUSGABE 1

for i:1 thru n do print("Gesamkosten der Kostenstelle",i,"=",K[i])$

VERARBEITUNG 2

for i:1 thru n do ev(DK[i]:K[i]/LK[i][2]);

for i:1 thru n do ev(DK[i]:floor(DK[i]*100+0.5)/100.0);

AUSGABE 2

for i:1 thru n do print("Stückkosten der Kostenstelle",i,"=",DK[i])$