Процедурный тип

@limee_ · Регистрация: 13.10.2017

Методом перебора с шагом 0.05 определить минимумы функций f(x)= e^x - x^3 на отрезке [1.5;4.5] и g(x)= x^3 - 10x+2 на отрезке [0;3]

@Puporev · 01.03.2018, 12:27

Pascal

uses crt;
const h=0.05;
type func=function(x:real):real;
{$F+}
function f(x:real):real;
begin
f:=exp(x)-x*x*x;
end;
function g(x:real):real;
begin
g:=x*x*x-10*x+2;
end;
{$F-}
function min(y:func;a,b:real):real;
var x,m:real;
begin
x:=a;
while x<=b do
 begin
  if x=a then m:=y(x)
  else if y(x)<m then m:=y(x);
  x:=x+h;
 end;
min:=m;
end;
begin
clrscr;
writeln('Минимум функции f(x)=e^x-x^3 на интервале [1.5;4.5]=',min(f,1.5,4.5):0:3);
writeln('Минимум функции g(x)=x^3-10x+2 на интервале [0;3]=',min(g,0,3):0:3);
readln
end.

Добавлено через 46 секунд
Процедурный тип, он же функциональный.

@limee_ 0 / 0 / 0 Регистрация: 13.10.2017 Сообщений: 13
		1
	Процедурный тип 28.02.2018, 20:03. Просмотров 1147. Ответов 1 Метки нет (Все метки) Методом перебора с шагом 0.05 определить минимумы функций f(x)= e^x - x^3 на отрезке [1.5;4.5] и g(x)= x^3 - 10x+2 на отрезке [0;3] 0

Опции темы

Процедурный тип

Решение