Здравствуйте, den_stella.
Ответ в приложении. На почту уже выслал.

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

}
{
Область определения функции y(x): x>0, x != pi*n, где n=1,2,...
Область определения функции z(x): x>0, pi*n<=x<=pi(1/2+n)
y:=(1/x+sqrt(x)/(sin(x)))
z:=ln(1/(2+2*x+sqr(x)))+sqrt(cos(x))
}
program main;
(* вопрос 173070 *)
var
i: integer; (* шаг цикла *)
a,b: real; (* левая и правая границы интервала *)
h: real; (* шаг табуляции *)
x: real;
const eps = 0.0001; (* допустимая ошибка при сравнении с нулем *)

function IsNegative(const val: real): boolean;
begin
IsNegative := val<0;
end; { IsNegative }

function IsZero(const val, eps: real): boolean;
begin
IsZero := abs(val)<eps;
end; { IsNegative }

function y(const x: real): real;
begin
y:=(1/x+sqrt(x)/(sin(x)))
end; (* y *)

function z(const x: real): real;
begin
z:=ln(1/(2+2*x+sqr(x)))+sqrt(cos(x))
end; (* z *)

begin
write('a=');
readln(a);

write('b=');
readln(b);

write('h=');
readln(h);

writeln(' x | y | z');
writeln('======================');
x:= a;
while (x<=b+eps) do
begin
write(x:6:3);
if (IsNegative(x) or IsZero(sin(x), eps)) then
write(' - ')
else
write(y(x):7:3);
write(' | ');

if (IsNegative(cos(x)) or
IsZero(2+2*x+sqr(x), eps) or
IsNegative(1/(2+2*x+sqr(x))) or
IsZero(1/(2+2*x+sqr(x)), eps))
then
write(' - ')
else
write(z(x):7:3);
writeln;
x:= x+h;
end;
readln;

end.