Задача 8.3. Знайти найбiльше та найменше значення функцiї
, табулюючи їїна вiдрiзку [a, b] з кроком h. Розв'язання. Обчислення значень функцiй f вигiдно оформити у виглядi функцiї.

Program MaxMin;
Var a,b,h,x,max,min:real;
Function f(x:real):real;
Begin
    f:=Sqr(x)*Cos(Ln(Abs(x)))
End;
Begin
 WriteLn('Введiть межi iнтервалу [a,b] i крок h');
 Read(a,b,h);
  x:=a; min:=f(a); max:=f(a);
 while x<=b do
 begin
 if max then max:=f(x);
 if min> f(x) then min:=f(x);
   x:=x+h;
 end;
 WriteLn('f_max=', max:6:3);
 WriteLn('f_min=', min:6:3);
End.

Результати роботи програми:
Введiть межi iнтервалу [a, b] i крок h 1 10 0.1
f_max= 4.093 f_min=-64.754