Ветвящийся выч. процесс, в чем ошибка? Опции

[Евгений]

Доброго всем времени суток!
Дано задание составить программу вычисления значения функции:

Вот что я наваял:

program vetv;
uses crt;
var
A,B,F: real;
begin
textbackground(white);
clrscr;
textcolor(black);
write('введите A: ');
readln(A);
write('введите B: ');
readln(B);
if (A>0) and (abs(B)<=0.5555)
then F:=exp(ln(A)*0.5555)-0.5555*B
else
if (A>0) and (abs(B)<0.5555)
then F:=sqrt(A)/B-0.5555*B
else
if A<=0
then F:=0.5555*exp(A)*sin(B);
write('F=',F);
readln;
end.

Возможно в задании опечатка, так как я думаю, что второе условие не будет выполняться ни при каких значениях.
Но меня больше интересует почему при значении В=0.5555, программа выдает 0, ведь в первом условии стоит знак меньше или равно?
Извините, что возможно не понятно написал, программист из меня никакой, только первые попытки..

Пользуйся подсветкой кода (выделяешь весь код, и потом в комбобоксе CODE выбираешь нужный язык)

Сообщение отредактировано: Lapp - 29.11.2010 12:27

[Евгений]

Спасибо большое за помощь, подключил в опциях 8087/80287, поставил тип данных Extended. Все заработало!
На счет подсветки кодов учту.

Сообщение отредактировано: Евгений - 24.11.2010 23:35