[Fazotron]

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

[lmikle]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

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]

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