keine lösungsformel mehr

x²+px+q=0 => x_1/2 = -p/2+-sqrt(p²/4-q)

2^x=3 => x=ln3/ln2

transformationssatz



sinh(x) = (exp(x)-exp(-x))/2

dann haste die inverse funktion des sinh

arsinh(x) = ln(x+sqrt(1+x²))

     For k := 1 To nmax Do
    begin
         {mit Zeile 1 rechnen:}
         {lies(s[1],1,k);}  {kann doch wohl weg, oder?}

         For i := 1 To imax(k) Do
         begin
              If (k=nmax) and (i=rest)
              Then s[1,i] := Round(z/n)
              Else s[1,i] := z div n;

              z := 10*(z mod n);
         end;

         {k-ten Block in Zeilen 1 und 2 schreiben:}
         schr(s[1],1,k);
         schr(s[1],2,k);

    end;