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

/* [wxMaxima: title   start ]
Kreisfläche bei gegebenem Umfang
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1018
Quelle: Johann Weilharter,
             Analytische Geometrie 2
******************************************

Gegeben ist der Umfang eines Kreises.
Zu berechnen sind
a) Radius
b) Fläche

Die Fläche soll, auf 2 Stellen gerundet, ausgegeben werden!
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
U:read("Gib den Umfang des Kreises ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
r:U/(2.0*%pi);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
F:r**2*%pi;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
F:F,numer;
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
print("Die gesuchte Flaeche ist",F)$
/* [wxMaxima: input   end   ] */

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