Найти синус
Категория: Delphi/Pascal
2013-03-01 13:59:23
code: #delphi
var float : single; begin // Синус 30 градусов = 0.5 float := Sin(PI/6); // = 180/6 = 30 градусов ShowMessage('Sin(PI/6) = '+FloatToStr(float)); end;
Поделиться:
var float : single; begin // Синус 30 градусов = 0.5 float := Sin(PI/6); // = 180/6 = 30 градусов ShowMessage('Sin(PI/6) = '+FloatToStr(float)); end;