PaulRevere . , , .
2 :
1. , .
2. -
, , . , ( ), . , . , BEGIN, IF WHILE. 5-15 + 2-4 , .
, , , . , . , , . . . , , m . , . , , , < >, , , . , , .
, , -. . , , -. , .
, - , , 15-50 . . WRITE .
|
|
Sarah Rever
Dear Paul: I have been to the Chelsea headland
BEGIN { }
W1:= W2;
W2:= W3;
W3:= W4;
READ(W4)
END
{ land}
IF W1 = l
THEN
IF W2 = a
THEN
IF W3 = n
THEN
IF W4 = d
THEN {land }
WHILE {land sea }
DO
BEGIN
{ }
{ land}
{ 'sea'}
END
Looking | |
Y | |
L | |
S | |
N | , land, sea |
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}