Найти мин и макс значения "Y" Опции

[Astra]

У меня почти решена одна задачка. Оенчь нужна помощь!!! Необходимо построить таблицу функции У на отрезке [a,b] с шагом h, вводя соответствующую функцию в разделе Function. Найти min и max значения y и соответствующие им значения аргумента. Величину шага h взять равной равной 0.1, если модуль х<1, и 0.2 для других значений х. y=x в степени 7 - 7 в степени x, a=0.1;b=3.0;

program funkcia;
uses crt;
var
x,y,h:real;
function NUM(x,y:real):real;
begin
y:=exp(7*ln(x) - exp(x*ln(7));
writeln ('x=',x:5:2,'     ','y=',y:5:3);
readln;
end;
begin
clrscr;
x:=0;
repeat
if abs(x)<1 then
h:=0.1 else
h:=0.2;
x:=x+h;
y:=NUM(x,h);
until x>3;
readln;
end.

А вот как найти минимум и максимум у и соответствующие им х???????
Если через массив, то помогите правильно связать его со значениями!!

М

не забывай про теги. мисс_граффити

P.S. И еще вопрос: как скопировать исходник и сам текст программы в Паскале, чтобы перенести например в Word, мне для отчета надо... очень, очень.

Сообщение отредактировано: мисс_граффити - 9.05.2007 11:24