misc/pascal/tests/src/501-uses.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

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.