# Mittelwerte

## Problembeschreibung

******************************************
Dokumentnummer: D1067
Quelle: Johann Weilharter,
             Stochastik
******************************************

Für eine gegebene Liste x sollen 

a) das arithmetische Mittel
b) das harmonisches Mittel
c) das geometrische Mittel

bestimmt werden.

## Problemlösung

UNTERPROGRAMMM LADEN

load(descriptive);

EINGABE

x:read("Gib eine Liste ein");

VERARBEITUNG

m:mean(x);

m:m,numer;

m:floor(m*1000+0.5)/1000.0;

hm:harmonic_mean(x);

hm:hm,numer;

hm:floor(hm*1000+0.5)/1000.0;

gm:geometric_mean(x);

gm:gm,numer;

gm:floor(gm*1000+0.5)/1000.0;

AUSGABE

print("Arithmetisches Mittel",m)$

print("Harmonisches Mittel",hm)$

print("Geometrisches Mittel",gm)$