# Durchschnittlicher Fertigungslohn

## Problembeschreibung

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

Gegeben ist eine Aufstellung von Fertigungslöhnen, die in
einer Produktion angefallen sind:
-----------------------------------------------------------
Stunden   |   Fertigungslohn in GE/Stunde
-----------------------------------------------------------
10             |    20
20             I    15
22             I      9
-----------------------------------------------------------      
Es ist ein Programm zu erstellen, welcher nach Eingabe
dieser Daten den durchschnittlichen Fertigungslohn
errechnet und ausgibt.

## Problemlösung

EINGABE

fl:read("Liste [Stunden,GE]");

VERARBEITUNG

n:length(fl);

dfl:sum(fl[i][1]*fl[i][2],i,1,n)/sum(fl[i][1],i,1,n);

dfl:dfl,numer;

dfl:?floor(dfl*100+0.5)/100.0;

AUSGABE

print("Durchschnittlicher Fertigungslohn",dfl,"GE")$

## Zusätzliche Erklärungen

Nummer 1 : Eingabe der gegebenen Daten in Form einer Liste
Nummer 2 : Länge der Liste bestimmen
Nummer 3 : Formel für den gewogenen Durchschnitt
Nummer 4 : den Bruch in eine Dezimalzahl verwandeln
Nummer 5 : kaufmännische Rundung auf 2 Dezimalstellen
Nummer 6 : das $ Zeichen unterdückt die Ausgabe mittels ECHO