Вычислить значения функции y=tg(nx)+2n/x при n=5 и изменении x в интервале [1;3]

[andrmerk]

Вычислить значения функции y=tg(nx)+2n/x при n=5 и изменении x в интервале [1;3] с шагом дельта(x)=0.2. отпечатать только значения y>15

Помогите пожалуйста,вроде бы сделал,но не уверен что правильно,кажется есть ошибка..

program inform;
  var n,x,x0,y:real;
  begin
    n:=5;
    x0:=1;
    y:=sin(n*x)/cos(n*x)+2*n/x;
    repeat
    if y>15 then
    writeln('y=',y);
    x:=x+0.2;
    until x>3
  end.

[newerow1989]

Тут уменьшать шаг, тогда заработает!

const h=0.2;
      a=1;
      b=3;
      n=5;
      max=15;
var x,y:real;
begin
   x:=a;
   While x<=b do
   begin
      y:=sin(n*x)/cos(n*x)+2*n/x;
      If y>max then
         Writeln('x = ',x:3:1,'  y = ',y:5:5);
      x:=x+h;
   end;
   Readln;
end.

Сойдет?

[andrmerk]

Ввожу значение и ничего не происходит..Что-то не так

[newerow1989]

Конечно не будет работать! Я же написал

Тут уменьшать шаг!

[andrmerk]

Понял,сделал
А так и должно быть,что он бесконечные числа будет выводить?

[newerow1989]

При h=0.2 ничего не выведет. А при h=0.02 сколько?

[andrmerk]

3 значения x и 3 значения y
Я просто не так понял,думал что x:=x+h на поменять на x:=x-h

[newerow1989]

Правильно! А если еще уменьшить, то еще больше будет!