<!-- snatch the php source as mat.phps ! -->
<!-- i am annoyed that WANTED 3mm font-size does neither PRINT nor DISPLAY
 as 3mm. anyway, the 2mm we have now seem sufficient. have fun. -->


<html><head><title>
  Automatische Matheaufgaben von gtslehrer -
<?php $date=date("Y.m.d.H.i.s"); echo $date;
?>
</title>

<style type=text/css>
  *  { font-family : arial,helvetica,verdana,sans-serif;
       font-size   : 3mm;}
  TD {
       font-family : arial,helvetica,verdana,sans-serif;
       font-size   : 3mm;
       padding     : 0.5mm;
     }
</style>

</head><body>
<font face=arial,helvetica,sansserif>

<?php 
    
    
function choice($i){             // wählt zufällig zwischen 1 und $i
      
return rand(1$i);
    }

    function 
n1k1bv(){               // zahl 1 komma 1 stell beide vorzeichen
      
$vorz 1;
      if (
rand(0,1) > 0.5$vorz=-1;
      return 
rand (10,99)/10*$vorz;
    }

    function 
oneOfTen(){
      
$ten = array ( 1234576543768593425135467,
                     
8695756478987654635235746 );
      
$ind rand (09);
      return 
$ten $ind ] ;
    }
    
    function 
n1k1(){                 // 1 vor, 1 nach komma
      
return rand (10,99)/10;
    }

    function 
n2k4(){                 // 2 Stellen, 4 Nachkommastellen
      
return rand (100000,999999)/10000;
    }

    function 
n4k4(){                 // 4 Stellen, 4 Nachkommastellen
      
return rand (10000000,99999999)/10000;
    }

    function 
n1(){
      return 
rand (3,9);
    }

    function 
n1mv(){                  // 1 Stelle, mit Vorzeichen
      
$s = +1;
      if (
rand(1,10) < 6$s = -1;
      return 
rand (3,9) * $s;
    }

    function 
n2(){
      return 
rand (11,99);
    }

    function 
n2bv(){                    // 2stellig, beide Vorzeichen
      
$vorz = +1;
      if (
rand(0,1) > 0.5$vorz = -1;
      return 
$vorz rand (11,99);
    }

    function 
n3(){
      return 
rand (100,999);
    }

    function 
n4(){ 
      return 
rand (1000,9999);
    }

    function 
n5(){
      return 
rand (10000,99999);
    }

    function 
r1000($z){                // rundet auf 1000er
      
return (floor($z/1000+0.5))*1000;
    }
    function 
r2k($z){                  // rundet auf 2 NKS
      
return floor($z*100+0.5)/100;
    }

// begin of main
  
flush();
  
$schueler $_GET["schueler"];
//  echo "schueler = $schueler\n";
  
flush();
  
   if ( 
$schueler == 0) {
      echo 
'<center> <table width=70% border=2> <tr> <td cellpadding=100px>';
      echo 
"<h2>Rechenaufgaben mit L&ouml;sungen.</h2>\n";
      echo 
'<h3>Jede Pr&uuml;fung sowie die L&ouml;sungen sind auf verschiedenen ';
      echo 
"Bl&auml;ttern. <br>\n";
      echo 
"Wer das nicht glaubt, schaue die Druckvorschau!</h3>\n";
      echo 
"\n<form> W&auml;hle Anzahl der Sch&uuml;ler:<p>";
      for (
$i=1$i<41$i++) {
        
$c=''; if ($i == 3$c=' checked';
        if (
$i<10) {$z="0";} else $z="";
        echo 
"\n<input type=radio name=schueler value=".$i.$c.'>'.$z.$i;
        if (
$i == 0) echo "<br>\n";
      }
      echo 
"\n<p><input type=submit><br>";
      echo 
"\n<p><input type=checkbox name=hint> Gib einen Tip dazu!</td>";
      echo 
'<td width=70% cellpadding=10px>';

  
// aufgabentypen
      
$at = array( "Runden""Runden2"
         
"NaheNullMitPlus""NaheNullMitMal"
          
"Addition4""Addition5""Addition6""Multikation""MultikationMitKomma",
         
"Division""LineareGleichungen""LinGleichMitKomma""LinGleichSchwerer",
         
"LinGleichNochSchwerer"'Flaeche''Dreisatz''DreisatzAntiprop',
         
'Ueberschlagsrechnung''KreisEinfach''KreisSchwierig',
         
'Zylinder''Quader''Würfel_schwierig''Prozent''Zinssatz',
         
'LinGl3Koeff''Volumina');
      echo 
"\n<br>W&auml;hle Anzahl der Aufgaben: <p>\n";

      foreach (
$at as $att) {
 
//      echo '<p>'.$att.' : ';
        
for ($i=0$i<10$i++) {
          echo 
"\n<input type=radio name=".$att.' value='.$i;
          if (
$i == 0) echo ' checked ';
          echo 
'>'.$i;
        }
        echo 
' : ' $att;
        echo 
'<br>';
      }
      echo 
"</form>\n";
   } else {

    if (
$schueler 40$schueler 40;
//    echo "$schueler \n";
    
srand ((double) microtime () * 1000000);
    
flush();
    
    
$hint $_GET ["hint"];
    
$a "";              // aufgabe
    
$l "";              // loesung
//    $no = rand(1000,9999);
    
$no $date;
    for (
$p $p <= $schueler $p++){            // p = anzahl schueler
    
      
flush();
      
$widdersphinx=1;               // <>0 => kein bild der widdersphinxe
    
      
$a $a.'<h4>Pr&uuml;fung Nr. '.$no.'-'.$p ;
      if (
$hint$a .= " mit Tips. ";
      
$a .= ' - Nachname, Vorname: </h4>';
      
$l $l.'<h3>Pr&uuml;fung Nr. '.$no.'-'.$p.'</h3> <table border=1 ';
      
$l .= '> <tr>';

      
$n 40;                 //anzahl aufgaben  
      
$m 1;                 // lfd. nr. der Aufgaben
      
$ltdcount 7;           // max anzahl der tabellenspalten in lösung
      
$ltd 0;

      
$n $_GET["Runden"];
      for (
$i=0$i<$n$i++) {          // Runden
        
$z1 n4k4();
        
$resfloor(($z1+500)/1000)*1000;
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$a .= 'Runde kaufmännisch auf Tausender: '.$z1.'<p>';
        
$l .= "\n".' <td> <b>'.$p."-".$m.')</b> '.$res '</td>' ;
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr>'."\n".' <tr>';
          
$ltd 0;
        }
        
$m++;
      }
      
      
$n $_GET["Runden2"];
      for (
$i=0$i<$n$i++) {          // Runden
        
$z1 n4k4();
        
$resfloor($z1*100+0.5)/100;
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$a .= 'Runde kaufmännisch auf 2 Nachkommastellen: '.$z1.'<p>';
        
$l .= "\n".' <td> <b>'.$p."-".$m.')</b> '.$res '</td>' ;
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr>'."\n".' <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["NaheNullMitPlus"];
      for (
$i=0$i<$n$i++) {          // NaheNullMitPlus
        
$z1 n4k4();
        
$z2 n4k4();
        
$z3 n4k4();                    // mit z1-z2+z3-z4 = 2stel
        
$z5 n2bv();                    // wird z4 = z1-z2+z3-2stel
        
$z4 $z1 $z2 $z3 $z5 ;
//        $res= floor($z1*100+0.5)/100;
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$a .= 'Es kommt eine 2stellige Zahl heraus: '.$z1.' - '.$z2.' + '.$z3;
        
$a .= ' - ('.$z4.') = <p>';
        
$l .= "\n".' <td> <b>'.$p."-".$m.')</b> '.$z5 '</td>' ;
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr>'."\n".' <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["NaheNullMitMal"];
      for (
$i=0$i<$n$i++) {          // NaheNullMitMal
        
$z1 n2();
        
$z2 n2();
        
$z4 n2();                    // mit z1*z2 - z3:z4 = z5
        
$z5 n2bv();                  // wird z3 = (z5 - z1*z2 ) * (- z4)
        
$z3 = ( $z5 $z1 $z2 ) * (- $z4 ) ;
//        $res= floor($z1*100+0.5)/100;
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$a .= 'Es kommt eine 2stellige Zahl heraus: ';
        
$a .= $z1.' * '.$z2.' - '.$z3.' : '.$z4.' = <p>';
        
$l .= "\n".' <td> <b>'.$p."-".$m.')</b> '.$z5 '</td>' ;
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr>'."\n".' <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Addition4"];
      for (
$i=0$i<$n$i++) {          // addition4
//        if (random(2)==1){
        
$z1 n4();
        
$z2 n4();
        
$z3 n4();
        
$z4 n4();
        
$res $z1 $z2 $z3 $z4;
// test
//        $resue = r1000($z1)-r1000($z2)+r1000($z3)-r1000($z4);
//  if ($n % 5 == 0) 
        
$l .= "\n";
        
$a .= '<p><b>'.$p.'-'.$m.')</b> '.$z1.' - '.$z2.' + '.$z3.' - '.$z4.' = <br>';
//        $a .= r1000($z1).'-'.r1000($z2).'+'.r1000($z3).'-'.r1000($z4);
        
$l .= ' <td> <b>'.$p."-".$m.')</b> '.$res.'</td>' ;
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr>'."\n".' <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Addition5"];
      for (
$i=0$i<$n$i++) {          // addition5
        
$z1 n4();
        
$z2 n3();
        
$z3 n4();
        
$res oneOfTen ();
        
$z4 $res $z1 $z2 $z3;
        
$a .= '<p><b>'.$p.'-'.$m.')</b> '.$z1.' + '.$z2.' + '.$z3;
        
$a .= ' + ('.$z4.') = ';
        
$l .= '<td>  <b>'.$p."-".$m.')</b> '$res '</td>';
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Addition6"];
      for (
$i=0$i<$n$i++) {          // addition4
        
$z1 n3();
        
$z2 n3();
        
$z3 n4();
        
$z4 n4();
        
$z5 n5();
        
$res = -n2()*100;
        
$z6 $res $z1 $z2 $z3 $z4 $z5 ;
        
$a .= '<p><b>'.$p.'-'.$m.')</b> '.$z1.' - '.$z2.' + '.$z3;
        
$a .= ' - ( '.$z4.' +  '.$z5.' -  '.$z6.' ) = ';
        
$l .= '<td>  <b>'.$p."-".$m.')</b> '$res '</td>';
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Multikation"];
      for (
$i=0$i<$n$i++) {          // multikation
        
$z1 n3();
        
$z2 n3();
        
$z3 $z1 $z2;
        
$a $a.'<p><b>'.$p.'-'.$m.')</b> '.$z1.' * '.$z2.' = ';
        
$l $l.' <td> <b>'.$p."-".$m.')</b> '.$z3 '</td>';
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["MultikationMitKomma"];
      for (
$i=0$i<$n$i++) {          // multikation
        
$z1 n2();
        
$z2 n2k4();
        
$z3 $z1 $z2;
        
$a $a.'<p><b>'.$p.'-'.$m.')</b> '.$z1.' * '.$z2.' = ';
        
$l $l.' <td> <b>'.$p."-".$m.')</b> '.$z3 '</td>';
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Division"];
      for (
$i=0$i<$n$i++) {          // division
        
$z1 n3() / 10;
        
$z2 n3();
        
$z3 $z1 $z2;
        
$a $a.'<p><b>'.$p.'-'.$m.')</b> Bitte mit voller Nebenrechnung: ';
        
$a $a $z3.' : '.$z2.' = ';
        
$l $l.' <td> <b>'.$p."-".$m.')</b> '.$z1 '</td>';
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

//  variablennamen
    
$varnam = array('a','b','c','d','e','f','g','h','i','j','Q','R','S','T',
                
'U','V','W','X','Y','Z');
    
$varnamcount 20;
    
$varn $varnam[rand(0,$varnamcount-1)];
//    echo "gewählter varnam : ".$varn."<br>\n";

      
$n $_GET["LineareGleichungen"];
      for (
$i=0$i<$n$i++) {          // LinGl
        
$varn $varnam[rand(0,$varnamcount-1)];
        
$z1 n1();
        
$z2 n1();
        
$z3 n1();
        
$z4 $z1 $z2 $z3;
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$a .= $z1.' * '.$varn.' + '.$z3.' = '.$z4.'. Wie gro&szlig; ist '.$varn.' ?';
        
$l $l.' <td> <b>'.$p."-".$m.')</b> '.$varn.'='.$z2 '</td>';
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["LinGleichMitKomma"];
      for (
$i=0$i<$n$i++) {          // LinGl
        
$varn $varnam[rand(0,$varnamcount-1)];
        
$z1 n2()/10;
        
$z2 n1();
        
$z3 n1mv();
        
$z4 $z1 $z2 $z3;
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$a .= $z1.' * '.$varn ' ';
        if (
$z3 0) {
          
$a .= ' + ';
        } else {
          
$a .= ' - ';
          
$z3 = -$z3;
        }
        
$a .= $z3.' = '.$z4.'. Wie gro&szlig; ist '.$varn.' ?';
        
$l $l.' <td> <b>'.$p."-".$m.')</b> '.$varn.'='.$z2 '</td>';
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["LinGleichSchwerer"];
      for (
$i=0$i<$n$i++) {          // LinGl Schwerer
        
$varn $varnam[rand(0,$varnamcount-1)];
        
$z1 n1k1bv();
        
$z2 n1k1bv();
        
$z3 n1k1();
        
$z4 $z1 $z2 $z3;
        
$a .= '<p><b>'.$p.'-'.$m.')</b> '.$z1;
        
$a .= ' * '.$varn.' - '.$z3.' = '.$z4.'. Wie gro&szlig; ist '.$varn.' ?';
        
$l $l.' <td> <b>'.$p."-".$m.')</b> '.$varn.'='.$z2 '</td>';
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["LinGleichNochSchwerer"];
      for (
$i=0$i<$n$i++) {          // LinGl Noch Schwerer

// Plan : Aufgabe 1 * i + 2 - 3 * i = 4 - 5 * i
// i=z0. z4 wird berechnet aus ...
        
$varn $varnam[rand(0,$varnamcount-1)];
        
$z0 n1k1();
        
$z1 n1k1();
        
$z2 n1k1();
        
$z3 n1k1();
        
$z5 n1k1();
        
$z4 $z1*$z0+$z2-$z3*$z0+$z5*$z0;
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$a .= $z1.' * '.$varn.' + '.$z2.' - '.$z3.' * '.$varn.' = ';
        
$a .= $z4.' - '.$z5.' * '.$varn.'. Wie gro&szlig; ist '.$varn.' ?';
        
$l $l.' <td> <b>'.$p."-".$m.')</b> '.$varn.'='.$z0 '</td>';
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Flaeche"];
      for (
$i=0$i<$n$i++) {          
//        $a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$a .= '<table> <td><img src=rechteck01.jpg> </td><td>';
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$vh n1();
        
$vg n1();
        
$vf n1();
        
$ve n1();
        
$vd n1();
        
$vc n1() + 9;
        
$va $vc $ve $vg;
        
$vb $vh $vf $vd;
    
// for debugging - misspelled $va as $a
/*        $va=19; $vb=18; $vc=18; $vd=8; $ve=6;    $vf=5; $vg=7; $vh=5; */    
        
$flache $va*$vh + ($va-$vg) * $vf $vd $vc;
        
$a .= '<span style="font-size:3mm;">';
        
$a .= 'Gegeben ist eine aus Rechtecken zusammengesetzte Fl&auml;che. <br>';
        
$a .= 'Die Zeichnung ist nicht ma&szlig;st&auml;blich ! <br>';
        
$a .= 'a='.$va.'m ; b='.$vb.'m ; c='.$vc.'m; d='.$vd.'m; ';
        
$a .= 'e='.$ve'm ;  f='.$vf'm.<br>';
        
$a .= 'Ermittle g, h und die Fläche durch Rechnen <b>und</b> <br>';
        
$a .= 'eine maßstäbliche Skizze und schreibe das Ergebnis <br>.<br> ';
        
$a .= 'hierhin: _______________________________';
        
$a .= '</span> </td> </table>';
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
$l .= ' g='.$vg.'m; h='.$vh.'m; Fl&auml;che= '.$flache.'qm.'     .'</td>';
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Dreisatz"];
      for (
$i=0$i<$n$i++) {          
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$ware = array ("Chicoree""Rinderfilet""Kalbsleber""Knurrhahn""Scholle",
          
"Salat""Karotten""Schwarzpulver");
        
$w =  $ware[rand(0,7)];
        
$v1 n1k1()*200;      // preis in V3. menge1 in v1, menge2 in v2.
        
$v2 n1k1()*200;
        
$v3 n1k1()/100;
        
$p1 $v1 $v3;
        
$p2 $v2 $v3;
        
$a .= $v1."g ".$w." kosten ".$p1." EUR. Wieviel kosten ".$v2."g ?";
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
$l .= $p2."&euro;;<br> ".($v3*1000)." &euro;/kg.";
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
        
$m++;
      }

      
$n $_GET["DreisatzAntiprop"];
      for (
$i=0$i<$n$i++) {          
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$ware = array ("den Bau der Cheopspyramide""den Abri&szlig; des Chon-Tempels",
          
"die Renovierung der Sphinx""das Auffrischen der Widdersphinxenallee",
          
"den Umbau des Amun-Re-Tempels""das Verputzen der Hatschepsut-Kapelle",
          
"das Bemalen des Aton-Heiligtums""die Sprengung der Wei&szlig;en Kapelle");
        
$w =  $ware[rand(0,7)];
        
$v1 n2();      
        
$v2 n1();
        
$v3 n2();
        
$a .= ($v1*$v2)." Menschen brauchen ".$v3." Stunden für ".$w.". ";
        if (
$widdersphinx==0) {
          
$widdersphinx=1;
          
$a .= '<br><img src=widder01.jpg width=68%>';
        }
        
$a .= "<br> Wieviel Stunden brauchen ".$v1." Menschen ?";
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
$l .= ($v2*$v3)." h.";
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Ueberschlagsrechnung"];
      for (
$i=0$i<$n$i++) {          
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$z1 n4();
        
$z2 n4();
        
$z3 $z1 $z2;
        
$z4 $z3;
        
$fall n2();
//        $a .= "debug : fall = ".$fall.".<br>";
        
if ($fall 44$z4 $z3 n1();
        if (
$fall 77$z4 " " n1().$z3;
        
$a .= "Fritz sagt: ".$z1"*".$z2." = ".$z4.". ";
        
$a .= "Machen Sie eine <br> &Uuml;berschlagsrechnung mit gerundeten Tausendern. ";
        
$a .= "Ergebnis : ________________ ";
        
$a .= "Hat Fritz recht?";
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
$uberschl = ((int)(($z1+500)/1000))*1000 * ((int)(($z2+500)/1000))*1000;
        
$l .= "&Uuml;: ".$uberschl.". <br>Fritz: ";
        if (
$z3 == $z4$l .= "richtig.";
          else 
$l .= "falsch.";
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

// begin kreis einfach
      
$n $_GET["KreisEinfach"];
      for (
$i=0$i<$n$i++) {          
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
        
$fall n1();         // irgendwas zwischen 3 und 9 , incl.
        
$done="";
        if (
$fall 5) {
          
$radius n1();
          
$durchm 2*$radius;
          
$umfang 2*3.14*$radius;
          
$flache 3.14*$radius*$radius;
          
$a .= "Gegeben ist ein Kreis mit Radius ".$radius."cm. <br>";
          
$a .= "Berechne Durchmesser, Umfang und Fläche: d=_________, ";
          
$a .= "u=______________, A=______________.";
          
$l .= "d=".$durchm.", u=".$umfang.", A=".$flache.".";
          
$done="yepp.";
        }
        if (
$fall 7) {
          
$radius n1();
          
$durchm 2*$radius;
          
$umfang 2*3.14*$radius;
          
$flache 3.14*$radius*$radius;
          
$a .= "Gegeben ist ein Kreis mit Durchmesser ".$durchm."cm. <br>";
          
$a .= "Berechne Radius, Umfang und Fläche: r=_________, ";
          
$a .= "u=______________, A=______________.";
          
$l .= "r=".$radius.", u=".$umfang.", A=".$flache.".";
          
$done="yepp.";
        }
        if (! 
$done) {
          
$radius n1();
          
$durchm 2*$radius;
          
$umfang 2*3.14*$radius;
          
$flache 3.14*$radius*$radius;
          
$a .= "Gegeben ist ein Kreis mit Umfang ".$umfang."cm. <br>";
          
$a .= "Berechne Radius, Durchmesser und Fläche: r=_________, ";
          
$a .= "d=______________, A=______________.";
          
$l .= "r=".$radius.", d=".$durchm.", A=".$flache.".";
          
$done="yepp.";
        }
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }
// end kreis einfach

      
$n $_GET["KreisSchwierig"];
      for (
$i=0$i<$n$i++) {
        
$a .= "<table> <tr> <td>";
//        $a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
        
$fall choice(3);         // irgendwas zwischen 3 und 9 , incl.
        
$done="";
        if (
$fall == 1) {
          
$r n1k1();
          
$a .= "<img height=80 src=kreis01.png> ";
          
$a .= "</td> <td>";
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
          
$a .= "Berechne Umfang und Fläche: u=______________, A=______________.<br>";
          
$a .= "Die Figur ist aus drei Viertelkreisen des Radius ";
          
$a .= $r " zusammengesetzt. <br> ";
          
$a .= "</td></tr></table>";
          
$umfang 2*$r 3.14 $r;
          
$flache 3.14 $r $r 3/4;
          
$l .= "u=".$umfang.", A=".$flache.".";
          
$done="yepp.";
        }
        if (
$fall == 2) {
          
$b n1k1();
          
$a .= "<img height=80 src=kreis02.png>";
          
$a .= "</td> <td>";
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
          
$a .= "Berechne Umfang und Fläche: u=______________, A=______________.<br>";
          
$a .= "Die Figur ist aus einem Quadrat der Kantenl&auml;nge ";
          
$a .= $b ." und zwei Halbkreisen zusammengesetzt. ";
          
$umfang = (3.14) * $b;
          
$flache = (3.14 +1) * $b $b;
          
$l .= "u=".$umfang.", A=".$flache.".";
          
$done="yepp.";
        }
        if (
$fall == 3) {
          
$b n1k1();
          
$a .= "<img height=80 src=kreis03.png> ";
          
$a .= "</td> <td>";
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
          
$a .= "Berechne Umfang und Fläche: u=______________, A=______________.<br>";
          
$a .= "Die Figur ist aus einem Quadrat der Kantenl&auml;nge ";
          
$a .= $b ." und zwei Viertelkreisen zusammengesetzt. <br>";
          
$umfang = (3.14) * $b;
          
$flache = (3.14 +1) * $b $b;
          
$l .= "u=".$umfang.", A=".$flache.".";
          
$done="yepp.";
//          echo "hint:". $hint. "<br>\n";
          
if ($hint == "on") {
            
$nachk $flache floor ($flache);
            
$a .= "Die NKS der Fl&auml;che sind ".$nachk.".<br>\n";
          }
        }
        
$a .= "</tr> </table>\n";
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Zylinder"];                     // Zylinder
      
for ($i=0$i<$n$i++) {          
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
$radius n1();
        
$hoehe  n1();
        
$durchm 2*$radius;
        
$umfang 2*3.14*$radius;
        
$grundflache 3.14*$radius*$radius;
        
$mantel $umfang $hoehe;
        
$volumen $grundflache $hoehe;
        
$flache $mantel $grundflache;
        if (
choice(2) == 1) {             // radius gegeben
          
$a .= "Gegeben ist ein Zylinder mit Radius ".$radius."cm ";
          
$a .= " und H&ouml;he ".$hoehe."cm. ";
          
$a .= "Berechne Durchmesser, Grundfläche, Mantelfläche, <br>Gesamtfläche";
          
$a .= " und Volumen. Gib stets die Einheiten an:  <p> d=_________, ";
          
$l .= "d=".$durchm."cm, grund=".$grundflache."cm<sup>2</sup>, ";
        } else {                          
// durchm gegeben
          
$a .= "Gegeben ist ein Zylinder mit Durchmesser ".$durchm."cm ";
          
$a .= " und H&ouml;he ".$hoehe."cm. ";
          
$a .= "Berechne Radius, Grundfläche, Mantelfläche, <br>Gesamtfläche";
          
$a .= " und Volumen. Gib stets die Einheiten an:  <p> r=_________, ";
          
$l .= "r=".$radius."cm, grund=".$grundflache."cm<sup>2</sup>, ";
        }
        
$a .= "Grundfläche=______________, Mantelfläche=______________, <p>";
        
$a .= "Gesamtfläche=______________, Volumen=______________.";
        
$l .= "<br>mantel=".$mantel."cm<sup>2</sup>, v=".$volumen."cm<sup>3</sup>.";
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Quader"];
      for (
$i=0$i<$n$i++) {          
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
$pp n1();
        
$qq n1k1();
        
$hoehe n1();
        
$grundflache $pp $qq;
        
$mantel * ($pp $qq) * $hoehe;
        
$volumen $grundflache $hoehe;
        
$flache $mantel $grundflache;
        
$a .= "Gegeben ist ein Quader mit Breite ".$pp."m, Tiefe ".$qq."m und ";
        
$a .= "Höhe ".$hoehe."m. Berechne Grundfläche, Mantelfläche, <br>Gesamtfläche";
        
$a .= " und Volumen. Gib stets die Einheiten an:  <p> ";
        
$a .= "Grundfläche=______________, Mantelfläche=______________,<p>";
        
$a .= "Gesamtfläche=______________, Volumen=______________.";
        
$l .= "grund=".$grundflache."m<sup>2</sup>, mantel=".$mantel;
        
$l .= "m<sup>2</sup>, <br>gesamt=".$flache;
        
$l .= "m<sup>2</sup>, v=".$volumen."m<sup>3</sup>.";
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Würfel_schwierig"];
      for (
$i=0$i<$n$i++) {          
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
        
$fall choice(2);         
        
$fall 2;                  // oje - zu schwierig                           
        
if ($fall == 1) {            // Zylinder
          
$radius n1k1();
          
$hoehe  $radius;
          
$durchm 2*$radius;
          
$umfang 2*3.14*$radius;
          
$grundflache 3.14*$radius*$radius;
          
$mantel $umfang $hoehe;
          
$volumen $grundflache $hoehe;
          
$flache $mantel $grundflache;
          
$a .= "Gegeben ist ein Zylinder mit Gesamtfl&auml;che ".$flache;
          
$a .= "dm<sup>2</sup>, dessen Radius gleich seiner Höhe ist. ";
          
$a .= "Berechne den Radius : r=_________. ";
          
$l .= "r=".$radius."dm.";
        }
        if (
$fall == 2) {               // Würfel     // ärks, p ist IMMER NOCH besetzt
          
$qq n1k1();
          
$volumen $qq $qq $qq;
          
$flache $qq $qq 6;
          
$a .= "Gegeben ist ein W&uuml;rfel mit der Oberfl&auml;che ".$flache;
          
$a .= "m<sup>2</sup>. Berechne die Kantenlänge : a=______________.";
          
$l .= "a=".$qq."m.";
        }
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

// begin prozent
      
$n $_GET["Prozent"];
      for (
$i=0$i<$n$i++) {          
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
$fall choice(4);
// debug
//    $a .= "<hr>fall=".$fall."<hr>";
        
if ($fall == 1) {
          
$vorher n2();
          
$proz 9+2*n1();
          
$nachher $vorher * ($proz 100);
          
          
$a .= " Der Preis f&uuml;r S wird um ".$proz."% erh&ouml;ht.";
          
$a .= " Vorher hat sie ".$vorher."EUR gekostet. Was kostet sie jetzt? ".
                
"____________";
          
$l .= $nachher."EUR";
        }
        if (
$fall == 2) {
          
$vorher n2();
          
$proz 11+2*n1();
          
$nachher $vorher * ($proz 100);
          
          
$a .= " Der Preis f&uuml;r B wird um ".$proz."% gesenkt.";
          
$a .= " Vorher hat es ".$vorher."EUR gekostet. Was kostet es jetzt? ".
                
"____________";
          
$l .= $nachher."EUR";
        }
        if (
$fall == 3) {
          
$vorher n2();
          
$proz 9+2*n1();
          
$nachher $vorher * ($proz 100);
          
          
$a .= " Der Preis f&uuml;r S wurde um ".$proz."% erh&ouml;ht.";
          
$a .= " Jetzt kostet sie ".$nachher."EUR. Was kostete sie vorher? ".
                
"____________";
          
$l .= $vorher."EUR";
        }
        if (
$fall == 4) {
          
$vorher n2();
          
$proz 11+2*n1();
          
$nachher $vorher * ($proz 100);
          
          
$a .= " Der Preis f&uuml;r B wurde um ".$proz."% gesenkt.";
          
$a .= " Jetzt kostet es ".$nachher."EUR. Was hat es vorher  gekostet? "
             
.  "____________";
          
$l .= $vorher."EUR";
        }
        
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }
// end prozent

      
$n $_GET["Zinssatz"];
      for (
$i=0$i<$n$i++) {          
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
        
$kap n4();
        
$zin n1k1()+5;
        
$mon rand (1,12);
        
$zins $kap $zin 100 $mon/12;
        
$gesk $kap $zins;
        
$a .= "Gunter leiht f&uuml;r ".$mon." Monate ";
        
$a .= $kap." EUR zu ".$zin." Prozent Zinsen. ";
        
$a .= "Wieviel mu&szlig; er nach Ablauf der Zeit zur&uuml;ckzahlen?";
        
$l .= r2k($gesk)."EUR.";
        
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["LinGl3Koeff"];
      for (
$i=0$i<$n$i++) {          
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$l .= ' <td> <b>'.$p."-".$m.')</b> ';
        
        
$x1 n1();
        
$x2 n1();
        
$x3 n1()-3;
        for (
$j=1$j<4;$j++){
          
$k1=n1();
          
$k2=n1();
          
$k3=n1();
          
$yy=$k1*$x1+$k2*$x2+$k3*$x3;
          
$a .= $k1." x + ".$k2." y + ".$k3." z = ".$yy;
          if (
$j<3$a .= " ----- \n";
        }
        
$l .= "x=".$x1." y=".$x2." z=".$x3;
        
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$n $_GET["Volumina"];
      if (
$n 0) {
        
$a .= '<h4>Bitte ohne Taschenrechner und Handy, sonst Täuschung = Note 6.';
        
$a .= '<h4>Quader : V = a * b * c. Kugel : V = 4 / 3 * PI * r<sup>3</sup>. ';
        
$a .= 'Zylinder : V = PI * r<sup>2</sup> * h. W&uuml;rfel : V = ';
        
$a .= 'k<sup>3</sup>.</h4>';
      }
      for (
$i=0$i<$n$i++) {          // volumina
        
$a .= '<p><b>'.$p.'-'.$m.')</b> ';
        
$l .= ' <td> <b>'.$p.'-'.$m.')</b> ';
        
        
$cho choice(4);
        if (
$cho==1) {
          
$aa n1k1();
          
$bb n1k1();
          
$cc n1k1();
          
$vol $aa $bb $cc /10;

          
$a .= 'Gegeben ist ein Quader mit den Dimensionen ';
          
$a .= $aa' m, ' .$bb' dm und ' .$cc' m. Wie groß ist sein Volumen?';
          
$l .= $vol 'm<sup>3</sup></td>';
        }
        if (
$cho==2) {
          
$aa n1()*3;
          
$vol 4.0 3.14 $aa*$aa*$aa;
          
$a .= 'Gegeben ist eine Kugel mit Radius ' .$aa'cm. ';
          
$a .= ' Wie groß ist ihr Volumen?';
          
$l .= $vol 'cm<sup>3</sup></td>';
        }
        if (
$cho==3) {
          
$aa n1k1();
          
$vol =  $aa*$aa*$aa;
          
$a .= 'Gegeben ist ein W&uuml;rfel mit Kantenl&auml;nge ' .$aa'mm. ';
          
$a .= ' Wie groß ist sein Volumen?';
          
$l .= $vol 'mm<sup>3</sup></td>';
        }
        if (
$cho==4) {
          
$rr n1k1();
          
$dd $rr 2;
          
$hh n1k1();
          
$vol =  3.14 $rr*$rr*$hh;
          
$a .= 'Gegeben ist ein Zylinder mit Durchmesser ' .$dd'dm ';
          
$a .= ' und H&ouml;he ' .$hh'dm.  Wie groß ist sein Volumen?';
          
$l .= $vol'dm<sup>3</sup></td>';
/*
*/
        
}
        
        
$ltd++;
        if (
$ltd >= $ltdcount) {
          
$l .= '</tr> <tr>';
          
$ltd 0;
        }
        
$m++;
      }

      
$l .= '</tr> </table>';
      
//      $no++;
      
$a .= '<p style="page-break-before:always"><p/>'."\n";
    }
    echo 
$a;
    echo 
'<h2>L&ouml;sungen:</h2>';
    echo 
$l;
  }
?>
</span>