# Prozentwert von 100

## Problembeschreibung

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

Gegeben ist eine Liste von Aufgaben durch
Betrag und Prozentsatz. Der Prozentwert ist
zu berechnen.

## Problemlösung

EINGABE

B_p:read("Gib die Liste mit Betrag und Prozentsatz ein");

VERARBEITUNG

n:length(B_p);

P:makelist(B_p[i][1]*B_p[i][2]/100.0,i,1,n);

P:makelist(floor(P[i]*100+0.5)/100.0,i,1,n);

Aufgaben:makelist([B_p[i],P[i]],i,1,n);

Aufgaben:transpose(Aufgaben);

AUSGABE

print("Prozentwert =",P)$

print("Tabelle: B, p, P",Aufgaben)$