Циклы

[Artemiosochi]

Вычислить значения двух функций для различных значений аргумента в диапазоне от a до b с шагом h (a,b и h задаются, a<b). Результаты вычислений оформить в виде таблицы. Если при каком-либо значении x функция не определена, то в таблицу помещать символ '-'.

y=(exp^x^2)/(c*x+d) (c,d - заданы)
z=sqrt(x)+1/ctg(x)

Не пойму сам смысл задания, хоть первый напишите, второй уже сам сделаю.
Заранее благодарен.

[JUDAS]

program var1;
var a,b,c,d,h,x,y : double;
begin
 writeln('введите a'); read(a);
 writeln('введите b'); read(b);

 writeln('введите c'); read(c);
 writeln('введите d'); read(d);
 writeln('введите h'); read(h);
 x:=a;
 while x<=b do
 begin
    y:=c*x +d;
    if y=0 then 
     writeln('-') else
    begin
      y:= exp(x*x)/y;
      writeln(y);
    end;
    x:=x+h;
 end;
end.

[Artemiosochi]

Благодарю

program var1;
var a,b,c,d,h,x,y,z : double;
begin
 writeln('введите a'); read(a);
 writeln('введите b'); read(b);
 writeln('введите c'); read(c);
 writeln('введите d'); read(d);
 writeln('введите h'); read(h);
 x:=a;
 while x<=b do
 begin
    y:=c*x +d;
    if ((y=0) or (x<-d/c) or ((z=0)) or (cos(x)=0) or (x<=0)) then 
     writeln('-') else
    begin
      y:= exp(x*x)/y;
      z:=sqrt(x)+sin(x*pi/180)/cos(x*pi/180);
      writeln('|x   ',x:10:5,'|y   ',y:10:5,'|z   ',z:10:5,'|')
    end;
    x:=x+h;
 end;
end.

Не пойму где косяк. Она либо выдает "-" , либо после ввода чисел вообще не работает дальше.