(* l08 example *) (* CONST t0 = 19; v0 = -100; x0 = 99; g = 10; r0 = g/2 * t0*t0 + v0 * t0 + x0; VAR t: INTEGER; x: INTEGER; n: BOOLEAN; y: BOOLEAN; z: BOOLEAN; BEGIN t := t0 - 1; REPEAT x := g/2 * t*t + v0 * t + x0; WRITE t; WRITE x; t := t + 1; UNTIL t >= t0 + 2; t := t0 - 1; WHILE t < t0 + 2 DO x := g/2 * t*t + v0 * t + x0; WRITE t; WRITE x; IF x < r0 THEN WRITE -1 ELSIF x = r0 THEN WRITE 0 ELSE WRITE 1 END; t := t + 1; END; END . *) (* VAR t: BOOLEAN; f: BOOLEAN; i: INTEGER; BEGIN t := TRUE; f := FALSE; i := 0; REPEAT WRITE i; i := i + 1; UNTIL ( i >= 2 ) | f & t | ( t < TRUE ); WHILE ( i < 2 ) & ( f | t ) & ( t >= TRUE ) DO WRITE i; i := i + 1; END; IF i < 0 THEN WRITE -1 ELSIF i = 0 THEN WRITE 0 ELSE WRITE 1 END; *) VAR i: INTEGER; x: BOOLEAN; BEGIN IF TRUE THEN WRITE 0 END; REPEAT WRITE 1 UNTIL TRUE; i := 2; x := (* FALSE & *) ( i < 3 ) & FALSE; END .