Перебором с шагом 0.05 найти минимум функции

@pink_dream · Регистрация: 28.11.2018

Студворк — интернет-сервис помощи студентам

Перебором с шагом 0.05 найти минимум функции g(x)= на отрезке [1; 3] и максимум функции f(x) = на отрезке [0; 2].
Выдает ошибку формата модуля... Помогите, пожалуйста. Заранее спасибо

Pascal

Unit FUNCT;
Interface
type
   fun=function(s:real):real;
   function g(x:real):real;
   function f(x:real):real;
Implementation
              function g(x:real):real;
              begin
                   g:=x*x*x-10*x+2 end;
              function f(x:real):real;
              begin
                   f:=exp(x)-2*sqr(x) end;
end.
 
 
Unit PEREBOR;
 
Interface
uses FUNCT;
type
  fun=function(s:real):real;
const
  shag=0.05;
function max(f:fun;xn,xk:real):real;
function min(g:fun;xn,xk:real):real;
 
Implementation  
function max(f:fun;xn,xk:real):real;
var
  max_fun,buf:real;
begin
  max_fun:=f(xn);
  buf:=f(xn);
  repeat
    if f(xn)>buf then max_fun:=f(xn);
    buf:=f(xn);
    xn:=xn+shag;
  until xn>xk;
max:=max_fun;
end;
 
function min(g:fun;xn,xk:real):real;
var
  min_fun,buf:real;
begin
  min_fun:=g(xn);
  buf:=g(xn);
  repeat
    if g(xn)<buf then min_fun:=g(xn);
    buf:=g(xn);
    xn:=xn+shag;
  until xn>xk;
min:=min_fun;
end;
end.
 
 
 
program pascal_the_best;
uses crt,PEREB,FUNCT;
begin
     clrscr;
     writeln('max f(x)= ',max(f,1,3));
     writeln('min g(x)= ',min(g,0,2));
end.

Добавлено через 12 минут
Модули сохранял с расширением .tpu в опции>каталоги>каталог exe и tpu

@Puporev · 27.03.2019, 15:06

Pascal

Unit FUNCT;
Interface
type fun=function(s:real):real;
function g(x:real):real;
function f(x:real):real;
Implementation
{F+}
function g(x:real):real;
begin
g:=x*x*x-10*x+2
end;
function f(x:real):real;
begin
f:=exp(x)-2*sqr(x)
end;
{F-}
end.

Pascal

Unit PEREBOR;
Interface
uses FUNCT;
const shag=0.05;
function max(f:fun;xn,xk:real):real;
function min(g:fun;xn,xk:real):real;
Implementation
function max(f:fun;xn,xk:real):real;
var max_fun,buf:real;
begin
max_fun:=f(xn);
buf:=f(xn);
repeat
if f(xn)>buf then max_fun:=f(xn);
buf:=f(xn);
xn:=xn+shag;
until xn>xk;
max:=max_fun;
end;
 
function min(g:fun;xn,xk:real):real;
var min_fun,buf:real;
begin
min_fun:=g(xn);
buf:=g(xn);
repeat
if g(xn)<buf then min_fun:=g(xn);
buf:=g(xn);
xn:=xn+shag;
until xn>xk;
min:=min_fun;
end;
end.

Pascal

program pascal_the_best;
uses crt,PEREBOR,FUNCT;
begin
clrscr;
writeln('max f(x)= ',max(f,1,3));
writeln('min g(x)= ',min(g,0,2));
readln
end.

Опции темы