Проверьте программу вычисления след. функций знак a обозначает "для любых"


var x,a,b,t,y,z: real;

begin

writeln('введите значения x');

readln(x);

writeln('введите значения a');

readln(a);

writeln('введите значения b');

readln(b);

if(x=0)or(b=0) then write('значение t не определено, деление на 0')

else

begin

t: =b*b+a/cos(x);

y: =t-ln(abs(a));

if cos(t)=0 then write('значение z не определено, деление на 0')

else

begin

z: =cos(sin(y)/cos(y))+t*t*t;

write('z=',z: 0: 3);

end;

end;

end.

ymnik3345    2   08.11.2019 16:07    3