Извините,если не в тот раздел.
Помогите пожалуйста с лабой.
Дан пример:
a*(Cos(t))^3+b*Sin(t^3)
y= ______________________
a+b*ln|1/t+tg(t)|
Нужно высчитать у по вводимым с клавиатуры неизвестным a,t,b.
Program LAB1;
var a,t,b,y,exit:real;
begin
read(a,t,b);
if t=0 then writeln('Net reshenii') else
begin
if Cos(t)=0 then writeln('Net reshenii') else
begin
if (a+b*ln(abs(1/t+(Sin(t)/Cos(t)))))=0 then writeln('Net reshenii') else
begin
y:=(a*Cos(t)*Cos(t)*Cos(t)+b*Sin(t*t*t))/(a+b*ln(abs(1/t+(Sin(t)/Cos(t)))));
writeln('y = ',y:2:10);
read(exit);
end;
end;
end;
end.
Прога нормально компилится. Но результат у и высчитанное мной
значение на калкуляторе значение отличается. Подскажите,все ли
нормально с прогой?