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

/* [wxMaxima: title   start ]
Berechnung des Bruttobetrages
   [wxMaxima: title   end   ] */

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

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

Gegeben ist der Nettobetrag und der Umsatzsteuersatz
einer Rechnung. Der Bruttobetrag ist zu bestimmen.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
Netto:read("Gib den Nettobetrag ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
Ust_Satz:read("Gib den Umsatzsteuersatz ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Ust:Netto*Ust_Satz/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Ust:floor(Ust*100+0.5)/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Brutto:Netto+Ust;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Umsatzsteuer =",Ust);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Brutto =",Brutto);
/* [wxMaxima: input   end   ] */

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