Процедура, вычисляющая Y=a*cos(G) и X=a*sin(G)

[Vishez]

Не могу никак разобраться Вот задача:

 
Составить программу для вычисления Y=a*cos(G); X=a*sin(G). Перевод угла G в радианы и вычисление cos и sin предусмотреть в процедуре.

Вот примерное моё начало :

 
var
x,y,Rad,a : real;
G,M,S,G1,M1,S1 : integer;
procedure Proc1(G1,M1,S1 :integer; var Rad:real);
begin
Rad:=(G1*(3.14/180))+(M1*(3.14/(180*60)))+(S1*(3.14/(180*60*60)));
end;
procedure Proc2(x,y,a :real);
begin
y:=a*cos(Rad);
x:=a*sin(Rad);
end;
begin
a:=strtofloat(Edit1.text);
G:=strtoint(Edit2.text);
M:=strtoint(Edit3.text);
S:=strtoint(Edit4.text);

А дальше никак, да и в правильности задания переменных не уверен...

[Shuraken]

procedure TForm1.SinCos(const A, G: integer; var X, Y: real);
begin
x := A*sin(G*Pi/180);
y := A*cos(G*Pi/180);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
A, G: integer;
x, y: real;
begin
A := StrToInt(Edit1.Text);
G := StrToInt(Edit2.Text);
SinCos(A, G, x, y);
Edit3.Text := FloatToStr(x);
Edit4.Text := FloatToStr(y);
end;

Вопросы?

[Vishez]

Спасибо, понял Процедуры освоены
И всё-таки 1 вопрос : Если я напишу в 6 Делфи
TForm1.SinCos...
то выдаст ошибку, а если просто
SinCos то нет.

[Shuraken]

сорри, необходимая поправка
type
TForm1 = class(TForm)
....
private
procedure SinCos(const A, G: integer; var X, Y: real);
public

end;

Это будет обозначать, что данная процедура доступна только в данном модуле.
Если ты так не напишешь, а напишешь просто SinCos в части Implemintation, то это будет обозначать, что данная процедура будет доступна из любого модуля, в разделе Uses которого ты пропишешь данный модуль. Пример

unit Unit1

type
TForm1 = class(TForm);
private

public

end;

implemintation

procedure SinCos(...)
begin
...
end;
___________________________________ __________

unit Unit2

type
TForm2 = class(TForm)
procedure Button1Click(Sender: TObject);
private

public

end;

....
implemintation

uses Unit1;

procedure TForm2.Button1Click(Sender: TObject);
begin
SinCos(...)
end;

___________________________________ _

Вот так.

[Vishez]

Ага... Спасибо.