:
1
|
|
PROGRAM SarahRevere(INPUT, OUPUT)
{ , , , land sea}
VAR
W1, W2, W3, W4, Looking: CHAR;
BEGIN {SarahRevere}
{ W1, W2, W3, W4, Looking}
WHILE {land sea }
DO
BEGIN
{ , }
{ land}
{ 'sea'}
END
{ }
END. {SarahRevere}
1.1
BEGIN { W1, W2, W3, W4, Looking}
W1: = ;
W2: = ;
W3: = ;
W4: = ;
Looking: = Y;
END
1.2
BEGIN { , }
W1: = W2;
W2: = W3;
W3: = W4;
READ(W4);
IF W4 = #
THEN { }
Looking: = N
END
1.3
BEGIN { land}
IF W1 = l
THEN
IF W2 = a
THEN
IF W3 = n
THEN
IF W4 = d
THEN {land }
Looking: = L
END
1.4
BEGIN { sea'}
IF W2 = s
THEN
IF W3 = e
THEN
IF W4 = a
THEN {sea }
Looking: = S
END
1.4
BEGIN { }
IF Looking = L
THEN
WRITELN(The British are coming by land.)
ELSE
IF Looking = S
THEN
WRITELN(The British are coming by sea.)
ELSE
WRITELN(Sarah didnt say)
END
Sarah Revere
1
PROGRAM SarahRevere(INPUT, OUPUT)
{ , , , land sea}
VAR
W1, W2, W3, W4, Looking: CHAR;
BEGIN {SarahRevere}
BEGIN { W1, W2, W3, W4, Looking}
W1: = ;
W2: = ;
W3: = ;
W4: = ;
Looking: = Y;
END;
WHILE Looking = Y
DO
BEGIN
BEGIN { , }
W1: = W2;
W2: = W3;
W3: = W4;
READ(W4);
IF W4 = #
THEN { }
Looking: = N
END;
WRITE(W1, W2, W3, W4, , ); { }
{ land}
{ 'sea'}
END
{ }
END. {SarahRevere}
:
INPUT: #
OUTPUT: #,
INPUT: D#
OUTPUT: D, D#,
INPUT: De#
OUTPUT: D, De, De#,
INPUT: Dea#
OUTPUT: D, De, Dea, Dea#
INPUT: Dear Pau#
OUTPUT: D, De, Dea, Dear, ear, ar P, r Pa, Pau, Pau#,
1B
PROGRAM SarahRevere(INPUT, OUPUT)
{ , , , land sea}
VAR
W1, W2, W3, W4, Looking: CHAR;
BEGIN {SarahRevere}
BEGIN { W1, W2, W3, W4, Looking}
W1: = ;
W2: = ;
W3: = ;
W4: = ;
Looking: = Y;
END;
WHILE Looking = Y
DO
BEGIN
BEGIN { , }
W1: = W2;
W2: = W3;
W3: = W4;
READ(W4);
IF W4 = #
THEN { }
Looking: = N
END;
BEGIN { land}
IF W1 = l
THEN
IF W2 = a
THEN
IF W3 = n
THEN
IF W4 = d
THEN {land }
Looking: = L
END;
BEGIN { sea}
IF W2 = s
THEN
IF W3 = e
THEN
IF W4 = a
THEN {sea }
Looking: = S
END
END;
WRITELN(Looking is , Looking); { }
{ }
END. {SarahRevere}
:
INPUT: Dear Paul: I have been #
OUTPUT: Looking is N
INPUT: Dear Paul: I have been to Chelsea #
OUTPUT: Looking is S
INPUT: Dear Paul: My land lies along the sea #
OUTPUT: Looking is L
1C
PROGRAM SarahRevere(INPUT, OUPUT)
{ , , , land sea}
VAR
W1, W2, W3, W4, Looking: CHAR;
BEGIN {SarahRevere}
BEGIN { W1, W2, W3, W4, Looking}
W1: = ;
W2: = ;
W3: = ;
W4: = ;
Looking: = Y;
END;
WHILE Looking = Y
DO
BEGIN
BEGIN { , }
W1: = W2;
W2: = W3;
W3: = W4;
READ(W4);
IF W4 = #
THEN { }
Looking: = N
END;
BEGIN { land}
IF W1 = l
THEN
IF W2 = a
THEN
IF W3 = n
THEN
IF W4 = d
THEN {land }
Looking: = L
END;
BEGIN { sea}
IF W2 = s
THEN
IF W3 = e
THEN
IF W4 = a
THEN {sea }
Looking: = S
END
END;
BEGIN { }
IF Looking = L
THEN
WRITELN(The British are coming by land.)
ELSE
IF Looking = S
THEN
WRITELN(The British are coming by sea.)
ELSE
WRITELN(Sarah didnt say)
END
END. {SarahRevere}