(*$B-*) PROGRAM fktplt; USES Graph; VAR i, xg, yg, xt, yt, oldx, oldy, farbe, keine: integer; xmin, xmax, ymin, ymax, x, h : real ; (*$I plotproz *) Function f(x:real):real; begin { f := 24/sqrt(2*x)-2 } f := sqr(24/(2+x))/2 end; BEGIN writeln('xmin, xmax, ymin, ymax eingeben'); readln(xmin, xmax, ymin, ymax); plotbegin( xg, yg, xt, yt, farbe, keine); achsen(xmin, xmax, ymin, ymax, xg, yg, xt, yt, farbe, keine); pl(xmin, f(xmin), keine); h := (xmax-xmin)/xg; for i := 0 to xg do begin x :=xmin+ i*h; pl(x, f(x), farbe) { writeln(x, f(x)) } end; x:=5; pl(x,0,keine); for i := 1 to 10 do begin pl(x,f(x), farbe); x := f(x); pl(x,x,farbe); end; pl(0,0,keine); pl(xmax,xmax,farbe); pl(4.6,f(4.5),keine); outtext('y = G(x)'); pl(6.1, 6,keine); outtext('y = x'); readln END.