{$N+}
program Quadratwurzel;

uses crt;

var
  a,x,y:extended;
  n:char;

begin
 clrscr;
 n:='j';
 while (n<>'n') and (n<>'n') do begin
  writeln ('Quadratwurzeln berechnen mit f(x)=(x+a/x)/2');
  write('? a= ');readln(a);
  if a=0 then writeln('! Quadratwurzel von ',a,'= ',a)
   else begin
    y:=a;
    x:=0;
    while abs(y-x)>abs(1e-11*y) do begin
     x:=y;
     y:=(x+a/x)/2;
    end;
    writeln('! Quadratwurzel von ',a,'= ',y);
   end;
  write ('Programm wiederholen? (J/N) ');
  read (n);
 end;
end.

Program Nulstellenberechnung;

uses crt;

var
 x1,x2,m:real;

begin
 clrscr;
 Writeln ('Berechnung der Nulstellen von y=x-(1-x)^4 im [0,1]');
 x1:=0;
 x2:=1;
 while (abs(x2-x1)>abs(x1)*1e-11) do begin
  m:=(x1+x2)/2;
  If m-sqr(sqr(1-m))>0 then x2:=m else x1:=m;
 end;
 Writeln ('Die Nulstelle besindet sich bei x=',x1);
 readln;
end.