В чем ошибка

[Evgen87]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x,y: real;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    write('‚ўҐ¤ЁвҐ x: ');
    readln(x);
    if (x<3) then
     y:=4.5*sqr(4.5)*sin(x)/cos(x)
    else
     y:=exp(x+1);

    writeln('y = ',y:6:2);
    readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

[VIK_aka_TOR]

насколько понимаю значения не те выводит... дело в том что тригонометрические функции по умолчанию берут радиан sin(x) x - радиан... что бы перевести радиан в градусы нужно: угол * пи / 180

y:=4.5*sqr(4.5)*sin(x * pi / 180)/cos(x* pi / 180);

каков вопрос таков и ответ...

[Evgen87]

Сообщение от Evgen87

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var x,y: real;

begin
try
{ TODO -oUser -cConsole Main : Insert code here }
write('‚ўҐ¤ЁвҐ x: ');
readln(x);
if (x<3) then
y:=4.5*sqr(4.5)*sin(x)/cos(x)
else
y:=exp(x+1);

writeln('y = ',y:6:2);
readln;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.

В чем ошибка если в условии найти y={4.5^3*tgx<3
{e в корне (x+1)
{Х>=;