blob: 49c3cdaaca9d69ad386219477e49d768b1bb5488 (
plain) (
blame)
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.
|