Программирование циклов с использованием оператора WHILE

[rus12]

Const
a=-2.0;
b=2.0;
h=0.2;
Var x,y:real;
begin
writeln('vvedite x');
read(x);
x:=a;
while x<=b do
begin
if (x=0) or (cos(x)=0)then
writeln('pri x=',x:5:3,'funkciy ne opredelena')
else begin
y:=(sin(x)/cos(x))/x;
writeln('x=',x:8:3,' y=',y:8:3);
end;
x:=x+h;
end; readln;
readln;
end.

Попробуй так

[Yuliyanna]

Спасибки!
Я добилась что при х=0 у=0, но по условию он должен выдавать, что функция не определена, и считает прога неправильно , если по калькулятору проверить!!!!!