%
%  Flächenberechnung je nach Typ 
%
function Flaeche()
  c = input( 'Flächentyp wählen (k,q,r) : ', 's' );
  switch( c ) 
     case 'k'
       r = input( 'Kreis: Radius eingeben : ');
       f = pi * r*r;
       fprintf( 'Kreis: Fläche zum Radius %g = %g \n', r, f );
     case 'q' 
       a = input( 'Quadrat: Kantenlänge eingeben : ');
       f = a*a;
       fprintf( 'Quadrat: Fläche zur Kantenlänge %g = %g \n', a, f );
     case 'r' 
       l = input( 'Rechteck: Länge eingeben : ');
       b = input( 'Rechteck: Breite eingeben : ');
       f = l*b;
       fprintf( 'Rechteck: Länge %g * Breite %g = %g \n', l, b, f );
     otherwise
       fprintf( 'Ungültiger Flächen-Typ %c \n', c );
  end

