Pascal.Error 207.Division by zero

[homa371]

program a1;
uses crt;
var
x,a,k:real;
begin
clrscr;
writeln('Vvedite a');
readln(a);
k:=3.14;
while x<6.281 do
begin
k:=ln(cos(x)/sin(x)-1);
if k=a then
k:=k+0.001;
end;
clrscr;
writeln(' ',x:2:2);
end.

Такой код.После ввода а выдает ошибку.Может Что-то не правильно делаю,но не могу заметить.Жду комментариев.

[ViktorR]

В принципе можно воспользоваться отладчиком и понять, что деление на ноль вызвано в вычислении Ctg(x) = Cos(x)/tg(x).
Это вызвано двумя причинами:
1. Инициализируйте переменные перед их использованием в выражении.
Переменная x - не инициализирована;
2. Паскаль, перед запуском программы, очищает сегмент данных. Т.о. значение переменной х равно нулю.
Ещё одна ошибка появится, когда Ctg(x) будет <=1, например, при x = pi/4.
Эта ошибка будет связана с тем, аргумент функции ln() должен быть >0.


Как то так ...

[Hacker19_90]

не успел

[homa371]

program a1;
uses crt;
var
x,a,k:real;
begin
clrscr;
writeln('Vvedite a');
readln(a);
k:=3.14;
while x<6.281 do
begin
k:=ln(cos(x)/sin(x)-1);
if k=a then
x:=x+0.001;
end;
clrscr;
writeln(' ',x:2:2);
end.

исправил а вот так error 207. Invalid floating point operation.
Для заданного а вычислить принадлежащий интервалу (p;2p) корень уравнения ln(ctgx-1)=a.
корни в программе это х, меняю с интервалом в 0.001.Если значение функции равно заданному а то корень уравнения найден.