IF Ch <> '.' THEN
{Syntax Error: two statements below should be a
compound statement encapsulated within a BEGIN and END }
CharCount := CharCount + 1;
writeln(Ch)
ELSE
PeriodCount := Period Count + 1; { Syntax Error: misspelled identifier, 'Period Count' should be 'PeriodCount' }
IF Age < 20 THEN
BEGIN
YoungCount := YoungCount + 1;
YoungAge := YoungAge + Age;
END; { Syntax Error: ';' should NOT be after the END }
ELSE
BEGIN
OldCount := OldCount + 1;
OldAge := OldAge + Age;
END; { of ELSE option }
IF Age < 20 THEN
BEGIN
YoungCount := YoungCount + 1;
YoungAge := YoungAge + Age;
END
ELSE
{ Semantic Error: two statements below should be a
compound statement encapsulated within a BEGIN and
END followed by a ';' to indicate the end of the
IF ... THEN ... ELSE statement}
OldCount := OldCount + 1;
OldAge := OldAge + Age;
PROGRAM LineSlopeCheck (input, output);
VAR
l1X1, l1X2 : integer;
l1Y1, l1Y2 : integer;
l2X1, l2X2 : integer;
l2Y1, l2Y2 : integer;
m1, m2 : real;
BEGIN
writeln('Enter to points for line 1: ');
write(' Input point (X1, Y1)? ');
readln(l1X1, l1Y1);
write(' Input point (X2, Y2)? ');
readln(l1X2, l1Y2);
writeln;
writeln('Enter to points for line 2: ');
write(' Input point (X1, Y1)? ');
readln(l2X1, l2Y1);
write(' Input point (X2, Y2)? ');
readln(l2X2, l2Y2);
writeln;
IF l1X1 = l1X2 THEN
BEGIN
writeln('line 1 is vertical: (X1 = ', l1X1, ', X2 = ', l1X2, ')!');
writeln;
exit;
END
ELSE IF l2X1 = l2X2 THEN
BEGIN
writeln('line 2 is vertical: (X1 = ', l2X1, ', X2 = ', l2X2, ')!');
writeln;
exit;
END;
m1 := (l1Y2 - l1Y1)/(l1X2 - l1X1);
m2 := (l2Y2 - l2Y1)/(l2X2 - l2X1);
writeln;
IF m1 = m2 THEN
writeln('line 1 is parallel to line 2 because: (m1 = ', m1:4:2 , ', m2 = ', m2:4:2 , ')!' )
ELSE IF m1 = (-1/m2) THEN
writeln('line 1 is perpendicular to line 2 because: (m1 = ', m1:4:2 , ', -1/m2 = ', -1/m2:4:2 , ')!' )
ELSE
writeln('line 1 is niether parallel nor perpendicular to line 2 because: (m1 = ', m1:4:2 , ', m2 = ', m2:4:2 , ')!' );
writeln;
END. { end of PROGRAM LineSlopeCheck }
IF D = 0 THEN
writeln('Zero')
ELSE
writeln('Non-Zero');
IF G > 90 THEN
writeln('A')
ELSE IF (G <= 90) AND (G >= 80) THEN
writeln('B')
ELSE IF G < 80 THEN
writeln('C');
IF A < 0.0 THEN
BEGIN
write('A < 0.0, input A? ');
readln(A);
END;
IF B < 0.0 THEN
BEGIN
write('B < 0.0, input B? ');
readln(B);
END;
IF A = 2 THEN
A := sqr(A)
ELSE IF A = 3 THEN
BEGIN
write('Input new value for A? ');
readln(A)
END
ELSE IF (A = 4) OR (A = 5) THEN
BEGIN
A := A * 3;
writeln('The new value of A is: ', A)
END;
CASE A OF
2 : A := sqr(A);
3 : BEGIN
write('Input new value for A? ');
readln(A);
END;
4, 5 : BEGIN
A := A * 3;
writeln('The new value of A is: ', A);
END
END { of CASE A }
END.