mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-03-01 09:31:05 +00:00
30 lines
759 B
Plaintext
30 lines
759 B
Plaintext
2 COMMENT TEST PROGRAM 1 FOR BALGOL LIBRARY FUNCTIONS
|
|
2 2018-01-18 P.KIMPEL;
|
|
2
|
|
2 INTEGER DEGREES;
|
|
2 REAL RADS, TORADS;
|
|
2 REAL VSQRT, VSIN, VCOS, VTAN, VASIN, VACOS, VATAN;
|
|
2
|
|
2 OUTPUT RESULTS(DEGREES, RADS, VSQRT, VSIN, VCOS, VTAN,
|
|
2 VASIN, VACOS, VATAN);
|
|
2 FORMAT F(I2,2F14.8,6F15.8,W2),
|
|
2 HEAD(* D RADS*,B10,*SQRT*,B11,*SIN*,B12,*COS*,B12,*TAN*,
|
|
2 B12,*ASIN*,B11,*ACOS*,B11,*ATAN*,W2);
|
|
2
|
|
2 TORADS = 3.1415926/180;
|
|
2 WRITE(;; HEAD);
|
|
2
|
|
2 FOR DEGREES = (1, 1, 89);
|
|
2 BEGIN
|
|
2 RADS = DEGREES.TORADS;
|
|
2 VSQRT = SQRT(RADS);
|
|
2 VSIN = SIN(RADS);
|
|
2 VCOS = COS(RADS);
|
|
2 VTAN = TAN(RADS);
|
|
2 VASIN = ARCSIN(VSIN);
|
|
2 VACOS = ARCCOS(VCOS);
|
|
2 VATAN = ARCTAN(VTAN);
|
|
2 WRITE(;; RESULTS, F);
|
|
2 END;
|
|
2 FINISH;
|