Помогите, пожалуйста, с задачей по Паскалю!

[Стюшенька]

Помогите, пожалуйста, с задачей по Паскалю!

На интревале (x2-1/x)<=y<=(x2+2x+1) c шагом дельта y=0.01/x3 протабулироать функцию z=lny+e('встепени')-y.
зарание спасибо!!!! паскаль.

 

[AlexZir]

x2 или x в квадрате?
x3 или x в кубе?

 

[Стюшенька]

x2 или x в квадрате?
x3 или x в кубе?

Да х в кавадрате и в кубе.

 

[Vladimir_S]

Будем считать, что x2, x3 это x² ,x³.
Прежде всего заметим, что в функции стоит Ln, откуда следует, что y>0, откуда
x²-1/x>0, откуда x>1.

VAR
 x,Ymin,Ymax,h:REAL;
 i,N:INTEGER;
BEGIN
 Write('x (>1) = ');
 ReadLn(x);
 h:=0.01/x/x/x;
 Ymin:=x*x-1/x;
 Ymax:=x*x+2*x+1;
 N:=ROUND((Ymax-Ymin)/h);
 For i:=0 to N do
  Writeln(Ymin+h*i,'     ',Ln(Ymin+h*i)+Exp(-Ymin-h*i));
 ReadLn;
END.

Но вообще-то странная задача. Разумное количество строк получается, только если x совсем чуть-чуть больше 1, т.е. 1.01, ну максимум 1.1. Если больше, то шаг по y получается очень мелким и программа идет "в разнос". Но даже если x близок к 1, то количество точек равно 100, т.е. в экран это не лезет. Что-то, похоже, в условии не то.

 

[Стюшенька]

СПАСИБО