TurboPascal7. Нужна помощь

[Acolyte]

Извините,если не в тот раздел.
Помогите пожалуйста с лабой.
Дан пример:


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.

Прога нормально компилится. Но результат у и высчитанное мной
значение на калкуляторе значение отличается. Подскажите,все ли
нормально с прогой?

[HolyDel]

Acolyte , по логике вроде все ничтяк. ты в курсе что sin,cos и прочие считают угол в радианах?

[HolyDel]

Acolyte, я хз как тебе ставили задачу.
если учитывать угол в РАДИАНАХ - то все парвильно
если учитывать угол в ГРАДУСАХ - то надо домножать на ~57.1 в выражениях вида sin(x) Ё sin(x*57.1).

HolyDel
перевод угла из градусов в радианы : angle_rad = angle_dec * pi / 180
57.1 это вообще совсем не точно, в учебных целях тем более не подходит

Acolyte
обычно если в задаче не задан настолько подробно тип входных данных то не грузись (если явно не задано что они в градусах или радианах)

[Acolyte]

Да все уже,спс Дело не в проге,дело в моих ацких расчетах