Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Найти мин и макс значения "Y"

Автор: Astra 9.05.2007 14:47

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




А вот как найти минимум и максимум у и соответствующие им х??????? nea.gif
Если через массив, то помогите правильно связать его со значениями!! rolleyes.gif
М
 не забывай про теги.
мисс_граффити



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

Автор: compiler 9.05.2007 15:14

Цитата(Astra @ 9.05.2007 10:47) *
P.S. И еще вопрос: как скопировать исходник и сам текст программы в Паскале, чтобы перенести например в Word, ме для отчета надо... очень, очень.
Все зависит от текстового редактора который ты используешь.. большинство богут сохранять с расширением .txt

Автор: Гость 9.05.2007 17:45

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

Автор: мисс_граффити 9.05.2007 19:06

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 мин.
кстати, твоя часть даже не компилируется ;)
там скобочки не хватает.

Автор: Гость 9.05.2007 19:55

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