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

[Yuliyanna]

Составила программу, все работает. только считает неправильно. в ответах выдает что при х=0 ,у=0!
Условие: Y = tgx/x; A = -2, B = 2, H = 0.2
Программа:
Program lab_3
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;
end.
Помогите пожалуйста, завтра уже сдавать!!!!!!!

[Ermowkin]

А зачем ты вводишь x и тут же ему присваиваешь другое значение.

read(x);
x:=a;

[Yuliyanna]

Так мне преподаватель написал, я не очень в этом разбираюсь, т.е. в этом моя ошибка?

[Ermowkin]

Вы уверены что у вас условие правильно?
Условие: Y = tgx/x; A = -2, B = 2, H = 0.2

Зачем тогда здесь A = -2, B = 2, H = 0.2

[Ermowkin]

Напиши полностью условие как вам дал преподаватель.

[Yuliyanna]

я все проверила, условие записано так как дал преподаватель!

[Ermowkin]

B - это как я понял граница максимального числа которое можно ввести = 2
H - Это шаг с которым увеличивается X = 0,2
A - так и не понял, если судить по вашему коду, то не важно какое число вы введете, будет выводить одно и то же, потому что вы X сразу присваиваете A

Уберите строку x:=a;
Больше не знаю чем вам помочь.

[Yuliyanna]

Попробую, сделать как вы говорите!Спасибо большое за помощь!!!!!!

[Yuliyanna]

все равно считает неправильно!!!Что делать?!

[Yuliyanna]

Люди!!!Может кто подскажет другой вариант решения?