не идет паскаль (функция min and max).

[Тань"ка]

задание: разработать программу. В программе предусмотреть ввод исходных данных


Задача: определить наибольшее и наименьшее значение функции y=e^1-x - ctg ln(1+x), вычисленных в точках x, изменяющихся от а=0,2 до b=4,3 с шагом h=0,1. Вывести на печать все вычисления функции,найденные экстремальные значения функции и соответствующие им значения аргумента.



Вот тут я сделала, но что-то не идет:

Program MinMaxF; 
var с,ax1,ax2,h,y,x,mx,mn,a,b;
begin
h:=0,1;a:=0,2;b:=4,3;c:=1;mn:=maxint;mx:=-mn;
x:=a;while x<b do begin
y:=exp^(1-x)-ctg(ln(1+x));
if y<mn then begin mn:=y;ax1:=x;end;
if y>mx then begin mx:=y;ax2:=x;end;
x:=x+h;
end;
end.

[Stilet]

что-то не идет

Во-первых: y:=exp(1-x)...
Во-вторых: Уточни в хелпе, по-моему нет функции ctg() в паскале. Впрочем если паскаль современный, возможно в нем есть модуль Math.
Если нет то: cos(a)/sin(a) - где в качестве а параметр, передаваемый котангенсу.

[Тань"ка]

y:=exp(1-x) а кок он поймет что здесь(1-x) это степень

[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;
{$F-}

begin
  clrscr;
  Extremum(F1, 0.2, 4.3, 0.1);
  writeln;
  repeat until keypressed;
end.

за помощь оставляем положительные отзывы

[Stilet]

кок он поймет что здесь(1-x) это степень

Функция exp() выдает е в степени такой-то. Поймет. Он ее знает