У меня почти решена одна задачка. Оенчь нужна помощь!!! Необходимо построить таблицу функции У на отрезке [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, мне для отчета надо... очень, очень.

Все зависит от текстового редактора который ты используешь.. большинство богут сохранять с расширением .txt

С копированием разобралась, оказывается можно открыть исходники через блокнот. А вот как с остальным??? Неужели никто не знает???

program funkcia;
uses crt;
const n=20;
var
fun: array['x'..'y',1..n] of real;
h:real;
i,mini,maxi: integer;

function NUM(x:real):real;
begin
  NUM:=exp(7*ln(x)) - exp(x*ln(7));
end;

begin
clrscr;
i:=1;
mini:=1;
maxi:=1;
fun['x',1]:=0.1;
repeat
  if abs(fun['x',i])<1 then
   h:=0.1
  else
    h:=0.2;
  fun['y',i]:=NUM(fun['x',i]);
  writeln ('x=',fun['x',i]:5:2,'     ','y=',fun['y',i]:5:3);
  if fun['y',i]<fun['y',mini] then
    mini:=i
  else
    if fun['y',i]>fun['y',maxi] then
      maxi:=i;
  inc(i);
  fun['x',i]:=fun['x',i-1]+h;
until fun['x',i]>3.001;
writeln('max y=',fun['y',maxi]:5:2,' sootv x=',fun['x',maxi]:5:2);
writeln('min y=',fun['y',mini]:5:2,' sootv x=',fun['x',mini]:5:2);
readln;
end. 

так пойдет?

Добавлено через 3 мин.
кстати, твоя часть даже не компилируется ;)
там скобочки не хватает.

Спасибо большое!!! Помогли!!! А скобочку да, забыла, но в программе то она у меня была