mirror of
https://gitee.com/mirrors_PX4/PX4-Autopilot.git
synced 2026-04-14 10:07:39 +08:00
add995c32e
git-svn-id: https://nuttx.svn.sourceforge.net/svnroot/nuttx/trunk@4200 7fd9a85b-ad96-42d3-883c-3090e2eb8679
21 lines
414 B
ObjectPascal
21 lines
414 B
ObjectPascal
program MyProgram;
|
|
|
|
uses
|
|
MyCosineUnit in '501-unit-cosine.pas';
|
|
MySineUnit in '501-unit-sine.pas';
|
|
MyDataUnit in '501-unit-data.pas';
|
|
|
|
var
|
|
x : real;
|
|
|
|
begin
|
|
write('Enter radians : ');
|
|
read(x);
|
|
mycosx := mycosine(x);
|
|
writeln('cos(', x, ')=', mycosx);
|
|
mysinx := mysine(x);
|
|
writeln('sin(', x, ')=', mysinx);
|
|
checkvars;
|
|
writeln('sin(', x, ')**2 + cos(', x, ')**2=', myone)
|
|
end.
|