делфи калькулятор

[matematik]

Не могу правильно написать код для вычисления косинуса!
Подскажите

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=Floattostr(strtofloat(Edit1.Text)+strtofloat(edit2.Text));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:=Floattostr(strtofloat(Edit1.Text)-strtofloat(edit2.Text));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Label1.Caption:=Floattostr(strtofloat(Edit1.Text)*strtofloat(edit2.Text));
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Label1.Caption:=Floattostr(strtofloat(Edit1.Text)/strtofloat(edit2.Text));
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Label1.Caption:=Floattostr(cos(strtofloat(Edit1.Text)*pi/180));
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Label1.Caption:=Floattostr(sin(strtofloat(Edit1.Text)*pi/180));
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Label1.Caption:=Floattostr(exp((strtofloat(edit2.Text))*ln(strtofloat(Edit1.Text ))))
end;


procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.text:=' ';
edit2.text:=' ';
label1.caption:=' ';

end;

end.

[Don Karleone]

функция cos(x) и модуль Math в Uses

[Bullets]

Label1.Caption:=Floattostr(cos(strt ofloat(Edit1.Text)*pi/180));Это зачем?Uses math,

label1.Caption:=floattostr(cos(strtofloat(edit1.Text)))

[Don Karleone]

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

Это зачем?Uses math

Это я тупанул.

[matematik]

Это все правильно, но как сделать что бы косинус 90 правильно выводился , что бы 0

[p51x]

*pi/180));Это зачем?

РАДИАННАЯ МЕРА УГЛА

[_-Re@l-_]

p51x, выключите Caps Lock.

[Bullets]

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

РАДИАННАЯ МЕРА УГЛА

Я в курсе.Только зачем оно?Тут же написано написать код для вычисления косинуса,а не представить его как радианную меру угла!

[p51x]

Calculates the cosine of an angle.

Pascal
function Cos(const X: Extended): Extended;
C++
Extended Cos(const Extended X);
File
System

Description
In Delphi code, Cos returns the cosine of the angle X.

X is a real-type expression that represents an angle in radians.

Читайте справку до просветления.