/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/

/* [wxMaxima: title   start ]
Prozentwert von 100
   [wxMaxima: title   end   ] */

/* [wxMaxima: section start ]
Problembeschreibung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
*****************************************
Dokumentnummer: D1049
Quelle: Johann Weilharter,
             Wirtschaftsrechnen
*****************************************

Gegeben ist eine Liste von Aufgaben durch
Betrag und Prozentsatz. Der Prozentwert ist
zu berechnen.
   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]
Problemlösung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
EINGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
B_p:read("Gib die Liste mit Betrag und Prozentsatz ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
VERARBEITUNG
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
n:length(B_p);
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
Aufgaben:makelist([B_p[i],P[i]],i,1,n);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Aufgaben:transpose(Aufgaben);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
AUSGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
print("Prozentwert =",P)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Tabelle: B, p, P",Aufgaben)$
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$