Глупый вопрос про Sin(x) - помогите разобраться

[Kelmair]

Похоже, что я что-то не правильно делаю. Вопрос дурацкий

Калькулятор выдаёт sin(2874,19863) = −0,10108008575
Моя программа считает sin(2874.19863) = 0,351008611648819

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:double;
begin
a:=StrToFloat(Edit1.Text);
b:=sin(a);
Edit2.Text:=FloatToStr(b)
end;

Вот почему так и как правильно?

[Sergei I. Gorelkin]

Аргумент sin(x) задается в радианах. Калькулятор же в данном случае считает в градусах.

[tema]

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:double;
begin
a:=StrToFloat(Edit1.Text);
b:=sin(a*pi/180);
Edit2.Text:=FloatToStr(b)
end;