forum.boolean.name - TurboPascal7. Нужна помощь

forum.boolean.name (http://forum.boolean.name/index.php)

- Delphi (http://forum.boolean.name/forumdisplay.php?f=66)

- - TurboPascal7. Нужна помощь (http://forum.boolean.name/showthread.php?t=6417)

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

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

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.

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

Ответ: TurboPascal7. Нужна помощь

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

Ответ: TurboPascal7. Нужна помощь

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

Ответ: TurboPascal7. Нужна помощь

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

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

Ответ: TurboPascal7. Нужна помощь

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