SystemSin (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This example uses the Sine trig function to compute the sine of Pi.

Code

procedure TForm1.Button1Click(Sender: TObject);
var
  R: Extended;
  S: string;
begin
  R := Sin(Pi);
  Str(R:5:3, S);
  Canvas.TextOut(10, 10, 'The Sin of Pi is ' + S);
end;

Uses

Personal tools
Assistance