Протаюулировать функцию без деления на ноль

[tohkaRu]

нужно протабулировать ф-ю.. там у нее есть в знаменателе ноль - как сделать , чтобы не было деления наноль??
var a,b,h,y,x:real;

begin
{ TODO -oUser -cConsole Main : Insert code here }
write('vvedite nachalo otr a='); readln(a);
write('vvedite konec otr b='); readln(b);
write('vvedite shag h='); readln(h);
x:=a;
while x<=b do begin
y:=exp(1/3*ln(2.3+cos(5*x))+sqrt(x*x+3)/(3*x));
writeln('x=',x:2:3,' y=',y:2:3);
x:=x+h;
end;

writeln;
readln;

end.

[Loky]

Добавь проверки на 0 у всех делителей. И обрабатывай (например своё сообщение об ошибке)

[helpprogram]

Пиши, сделаем в лучшем виде.
ICQ 491 - 901 - 645.

[sheka]

255507394.