[Fazotron]

Помогите, пожалуйста, сделать эту задачу:
"Составьте программу для вычисления y=a*Cos(G); x=a*Sin(G). Перевод угла G в радианы и вычисление cos и sin предусмотреть в процедуре."
Я что-то плохо понимаю как тут с процедурами правильно сделать...

[lmikle]

Оформить вычисление самих функций и перевод угла из гр в рад в виде процедур (думаю, что функции подойдут).

Код:

function GradToRad(Grad : Double) : Double;
begin
...
end;

function F_Y(A, G : Double) : Double;
begin
...
end;

function F_X(A, G : Double)  : Double;
begin
...
end; 

Содержимое функций сам напишешь

[Fazotron]

Всмысле типа вот так:

Код:

function GradToRad(Grad : Double) : Double;
begin
Grad:=strtofloat(Edit1.Text);
Rad:= Grad*180/Pi;
GradToRad:=Rad;
end;

function F_Y(A, G : Double) : Double;
begin
A:= strtofloat(Edit2.Text);
y:= A*cos(Rad);
F_Y:=y;
F_Y:= floattostr(Edit3.Text);
end;

function F_X(A, G : Double)  : Double;
begin
A:= strtofloat(Edit2.Text);
x:=A*cos(Rad);
F_X:=x;
F_X:= floattostr(Edit4.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GradToRad;
F_Y;
F_X;
end;

чет не пашет. помогите пожалуйста

[Fazotron]

все, сделал, спасибо. тему клоз.