# Durchschnittsrechung

Dokumentnummer: D2017
Fachgebiet: Wirtschaftsrechnen
Einsatz: ab 1HAK

## Problembeschreibung

Gegeben ist eine Liste von Lieferungen mit Angabe von
Menge und Einzelpreis. Der Durchschnittspreis ist gesucht.

## Problemlösung

EINGABE

lieferungen:[[10,21],
             [11,19],
             [10.5,19.2]]
/* Liste aus Lieferungen (Menge,Einzelpreis) */;

VERARBEITUNG

n:length(lieferungen);

durchschnittlicher_Einzelpreis:sum(lieferungen[k][1]*lieferungen[k][2],
k,1,n)/sum(lieferungen[k][1],k,1,n);

durchschnittlicher_Einzelpreis:durchschnittlicher_Einzelpreis,numer;

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

AUSGABE

print("")$
print("Durchschnittspreis = ",durchschnittlicher_Einzelpreis)$