Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | PROGRAM SYNTAXERROR(OUTPUT); |
2 | CONST M = 10, N := 20 | |
3 | TYPE T = ARRAY 1..10 OF REAL; | |
4 | R := RECORD X: REAL | |
5 | B,C : BOOLEAN | |
6 | END | |
7 | VAR I: INTEGER; | |
8 | P,Q: BOOLEAN; X,Y: REAL;; | |
9 | I: INTEGER, CH: CHAR | |
10 | A: ARRAY (1..M) OF INTEGER; | |
11 | CONST Y = 3.14159; | |
12 | BEGIN I := X M := I | |
13 | IF B DO P = (P OR Q; | |
14 | WHILE J < 10 | |
15 | BEGIN K := .5+(X-Y; Y := X) | |
16 | END | |
17 | IF P THEN P = 1; ELSE I := 2; | |
18 | REPEAT X := P + I*(X>Y); | |
19 | FOR X := 1 TO Q | |
20 | BEGIN I := A[2 | |
21 | UNTIL I=J | |
22 | FOR J := 1 TO N WHILE X > 0 DO | |
23 | BEGIN A(I] := A[J+1); READ(I) | |
24 | END . |