Задача Паскаль. Поиск квадранта по координатам.

[Maks_X]

Я пытаюсь решить задачку с таким смыслом - По координатам х,у найти квадрант и в зависимости от его номера вычислить определенную функцию. У меня проблемка: когда забиваю вот этот код он выдает ошибку : вещественное деление на 0. Посмотрите пожалуйста и объясните неразумному что не так. Заранее спасибо!

Program Ex1;
VAR c,d,x,y,z,b:real;
Begin
Writeln('Vvedite x,y tochki M');
Readln(x,y);
b:=abs(c*d);
If x=0 then writeln('Tochka M nahoditsa na osi oY')
Else
If y=0 then writeln('Tochka M nahoditsa na osi oX')
Else
If (x>0) and (y>0) then
               begin
               z:=(exp(c)+ln(b)/ln(10))/(3*c*d+5);
                writeln('z= ',z:6:2);
               end
END.

[Вавел из ГМТУ]

На какой строке останавливается компилятор?

[Maks_X]

В строке №13, где должна считаться функция "z".

[Вавел из ГМТУ]

b:=abs(c*d); - а что это?

c и d равны 0.... Следовательно в формулу z := .... у вас одни нули подставляются..

Я пока нипонял как это связанно с ошибкой. Delphi тупо вылетает и ничего не сообщает.

Если дописать к примеру: c := 1; d := 2;
То чтото считается и даже появляется какойто ответ...

[Maks_X]

Благодарю, видимо я не совсем правильно понял условие задачи. Просто в условии написано что дано :c,d,x,y. Далее нужно по координатам х,у найти точку и узнать в каком она квадранте. После этого во всех функциях присутствуют переменные c,d. Только к ним никаких условий не дано, неизвестно откуда брать. Видимо, просто набить произвольно. Спасибо большое!

[Вавел из ГМТУ]

А дело даже не в вашей формуле.
Там происходит(т.к. c и d равны 0) вот такое вычисление ln(0) - а это ошибка. Нельзя вычислить логарифм от нуля.

[Maks_X]

Да, именно. Нужно просто ввести c,d произовльно, но отличное от нуля. Я просто не догадался по запарке =) Спасибо)