Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0104/comput.alg
There are 2 other files named comput.alg in the archive. Click here to see a list.
BEGIN COMMENT COMPUT.ALG BORCHEK/NADDOR JAN 76;
REAL A,B,X1,X2,X3,X4,X5,X6,X7,X8;STRING P;
P:=" A+B A-B A*B A/B A^B MIN MAX HYP";
WRITE("[2CB]");SPACE(10);WRITE(P);
WRITE ("[2CB]");
L100: WRITE("A,B? [B]");
READ(A,B);
X1:=A+B;
X2:=A-B;
X3:=A*B;
X4:=A/B;
X5:=A^B;
IF A>B THEN GOTO L300;
X6:=A;
X7:=B;
GOTO L320;
L300: X6:=B;
X7:=A;
L320: X8:=SQRT(A^2+B^2);
SPACE(9);PRINT(X1,3,1);PRINT(X2,3,1);PRINT(X3,4,2);PRINT(X4,3,3);
PRINT(X5,7,0);PRINT(X6,3,1);PRINT(X7,3,1);PRINT(X8,3,1);
WRITE("[3CB]");
GOTO L100;
END