From 8648d5fe435a55283882d56d1c64e10d494f7164 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Fri, 11 Nov 1994 20:52:52 +0000 Subject: [PATCH] Initial revision --- test/squares.cupl | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 test/squares.cupl diff --git a/test/squares.cupl b/test/squares.cupl new file mode 100644 index 0000000..a40938a --- /dev/null +++ b/test/squares.cupl @@ -0,0 +1,21 @@ +COMMENT THIS PROGRAM PRODUCES A 9-PLACE TABLE OF SQUARE ROOTS OF +COMMENT NUMBERS FROM 0 TO .98 AT INTERVALS OF .02 + WRITE ,,'SQUARE ROOT OF X FROM .00 TO .98 BY .02.' + WRITE + WRITE ' X',' .00',' .02', + ' .04',' .06',' .08' + LET X = 0 + PERFORM LINE 10 TIMES +LINE BLOCK +COMMENT THIS BLOCK PRODUCES ONE LINE OF THE TABLE, CONSISTING OF A +COMMENT VALUE OF X OF THE FORM 0.N, WHERE N IS A DIGIT FROM 0 TO 9, +COMMENT FOLLOWED BY THE SQUARE ROOT OF .N0,.N2,.N4,.N8. + LET A = SQRT(X) + LET B = SQRT(X+.02) + LET C = SQRT(X+.04) + LET D = SQRT(X+.06) + LET E = SQRT(X+.08) + WRITE /X,/A,/B,C,/D,/E + LET X = X + .1 +LINE END + STOP -- 2.43.0