программа в паскале на вычисление значений функции в цикле (цикл While)

[Mark706]

Надо написать программу в паскале через цикл While
условие:
y=tgx
-1,32<=x<=1,49
Δx=1,1
Найти все y в диапазоне [-14;17].
Помогите пожалуйста , заранее спасибо.

[Mad_Cat]

x:=-1.32;
while x<=1.49 do
begin
writeln(sin(x)/cos(x));
x:=x+1.1;
end;

[Mark706]

Спасибо , но такой вопрос , что делать с диапазоном y ?

[Serge_Bliznykov]

что делать, что делать - проверять!

...
  y := sin(x)/cos(x);
  if (y>=-14) and (y<=17) then writeln(y);
...