[demudrol]

К примеру возьмем такой код:
var
a,b: double;
begin
a:= Sin(270);
b:= cos(180);
edit1.Text:=FloatToStr(a);
edit2.Text:=FloatToStr(b);

Вопрос первый. Почему на синус он выдает -0,176045946471211, а обычный калькулятор -1, а косинус -0,598460069057858, хотя так же по кальулятору -1.
Второй вопрос. Как написать с точностью до 2 знака после запятой, к примеру -0,17

Заранее спасибо, а то сколько ломал голову к ответу не пришел

[AlexSku]

надо углы переводить из градусов в радианы:

Код:

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= Format('%.2f', [sin(3*PI/2)]);
  Edit2.Text:= Format('%.2f', [sin(DegToRad(270))]);
end;