Протабулировать функцию

[PowerPoint]

√x / x*x+ 1+x интервал [0;2] шаг 0,2 (найти наибольшее и наименьшее значение функции указать значение аргументов при которых они достигаются)

[Stilet]

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };

type

  { TMyApplication }

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
  end;

{ TMyApplication }

procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
  y,x,mx,my:double;
begin    mx:=0; my:=0;
  x:=0;while x<=2 do begin y:=sqrt(x)/(x*x+1+x);
    writeln(x:10:2,y:10:2);
    if y<my then my:=y; if y>mx then mx:=y;
    x:=x+0.2;
  end;  writeln;
  writeln(mx:10:2,my:10:2);
  readln;
  Terminate;
end;

var
  Application: TMyApplication;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end.

[Develop]

program Main;

uses crt;

type fun = function(arg: real): real;

procedure Extremum(f: fun; a, b, h: real);
var r, minX, maxX, minY, maxY: real;
begin
  minY:=  1.7e38;
  maxY:= -1.7e38;
  repeat
    r:= f(a);
    if r < minY then begin minX:= a; minY:= r; end;
    if r > maxY then begin maxX:= a; maxY:= r; end;
    writeln('x:',a:4:1,';  y:',r:7:3,';');
    {}
    a:= a + h;
  until (a > b);
  {}
  writeLn('-------------------');
  writeLn('minimum - x:',minX:4:1,';  y:',minY:7:3,';');
  writeLn('maximum - x:',maxX:4:1,';  y:',maxY:7:3,';');
end;

{$F+}
function F1(x: real): real;
var t: real;
begin
  t:= ln(1+x);
  F1:= exp(1-x) - cos(t)/sin(t);
end;
function F2(x: real): real;
begin
  F2:= sqrt(x)/(x*x + x + 1);
end;
{$F-}

begin
  clrscr;
{ Extremum(F1, 0.2, 4.3, 0.1);}
  Extremum(F2, 0.0, 2.0, 0.2);
  writeln;
  repeat until keypressed;
end.