80-Bus News

  

November–December 1983, Volume 2, Issue 6











Page 18 of 67











PROGRAM MAGNIFIER; VAR K +: INTEGER; BEGIN WRITELN(’S’); FOR K := 1 70 10000 DO ; WRITELN(’S’) END.

PROGRAM FORLOOP; VAR J, K : INTEGER; BEGIN WRITELN(’S’); FOR K := 1 TO 10000 DO FOR J r= 1 TO 10 DO ; WRITELN(’E’) END.

PROGRAM WHILELOOP; VAR J, K + INTEGER; BEGIN WRITELN(’S’); FOR K := 1 TO 10000 Do BEGIN Jo:= 4; WHILE J <= 10 DO J := J+ END; WRITELN(’E’) END.

PROGRAM REPEATLOOP; VAR 3, K + INTEGER; BEGIN WRITELN(’S’); FOR K := 1 TO 10000 DO BEGIN J := 43 REPEAT Joi J+ UNTIL J > 10 END; WRITELN(’E’) END.

PROGRAM LITERALASSIGN; VAR J, K, Lo: INTEGER; BEGIN WRITELN(’S’); FOR K := 4 TO 10000 D0 FOR J := 1 70 10 DOL := 0; WRITELN(’E’) END.

PROGRAM MEMORYACCESS; VAR J, K, L : INTEGER; BEGIN WRITELN(’S’); FOR K := 1 TO 10000 DO FOR J := 1 T0 10 DOL := J; WRITELN(’E’) END.

PROGRAM REALARTITHMETIC ; VAR K x BEGIN WRITELN(’S’); FOR K := 1 TO 10000 DO X r= K/2*3+4-5; WRITELN(’E’) END.

INTEGER; REAL;

: :

PROGRAM REALALGEBRA; VAR K x BEGIN WRITELN(’S’); FOR K := 1 TO 10000 DO X r= K/K#K+K-K; WRITELN(’E’) END.

INTEGER; REAL;

PROGRAM VECTOR; VAR K, J : INTEGER; MATRIX : ARRAY [0..10] OF INTEGER, BEGIN WRITELN(’S’); MATRIX[O] := 4; FOR K := 1 80 10000 DO FOR J := 1 TO 10 DO MaTRIX[J] <= matRIx[J-1]; WRITELN(’E’) END.

PROGRAM EQUALIF; VAR J, X, L : INTEGER; BEGIN WRITELN(’S"); FOR K := 1 TO 10000 DO FOR J := 1 T0 10 DO Irs< THEN L L tr

1 6 s= 4 = O03 )

PROGRAM UNEQUALIF; VAR

J, XK, L : INTEGER; BEGIN

PROGRAM NOPARAMETERS;

VAR 3, K : INTEGER;

PROCEDURE NONES;

BEGIN J: 4

END;

PROCEDURE NONE4;

BEGIN NONES

END;

PROCEDURE NONE3;

BEGIN NONE4

BND;

PROCEDURE NONE2;

BEGIN NONE

END;

PROCEDURE NONE;

BEGIN NONE2

END;

BEGIN WRITELN(’S’); FOR K := 1 TO 10000 DO NONEI; WRITELN(’E")

END.

PROGRAM VALUE; VAR J, K : INTEGER; PROCEDURE VALUES(I : INTEGER); BEGIN Io:= 1 END; PROCEDURE VALUB4(I : INTEGER); BEGIN VALUES (I) END; PROCEDURE VALUE3(I : INTEGER); BEGIN VALUE4 (I) END;

PROCEDURE VALUE2(I : INTEGER); BEGIN VALUE3(I) END; PROCEDURE VALUE((I : INTEGER); BEGIN VALUB2(T) END; BEGIN WRITELN(’S’); Jo: 03 FOR K := 4 TO 10000 DO VALUEA (J); WRITELN(’E’ ) END.

PROGRAM REFERENCE; VAR

J, K : INTEGER; PROCEDURE REFER5(VAR I : INTEGER); BEGIN

Iw 14 END; PROCEDURE REFER4(VAR I : INTEGER); BEGIN

REFERS (1) END; PROCEDURE REFER3(VAR I : INTEGER); BEGIN

REFER (1) END; PROCEDURE REFERO(VAR I : INTEGER); BEGIN

REFERS (I) END; PROCEDURE REFER((VAR I : INTEGER); BEGIN

REFER2(T) END; BEGIN

WRITELN(’S’);

J := 03

FOR K := 1 PO 10000 DO

REFER1 (J);

WRITELN(’E’)

END.

PROGRAM MATHS; VAR Ko: INTEGER; X, Y : REAL; BEGIN WRITELN(’S’); FOR K :=* 1 TO 1000 DO BEGIN X := SIN(K); Y += EBXP(X) END; WRITELN(’B") END. ‘

18


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 18 of 67