5 lines
109 B
Ada
5 lines
109 B
Ada
|
package Sin_Cos is
|
||
|
|
subtype T is Float;
|
||
|
|
procedure Sin_Cos (Angle : T; SinA, CosA : out T);
|
||
|
|
end Sin_Cos;
|