- . , . , . . .
: , , , , .
-, , . , .
. , , . , . , , .
. , . .
, . , . .
. - , .
. . , , , . , , , . . CF-Pascal, , , . , .
Paul Rever
|
|
1. :
PROGRAM PaulRevere(INPUT,OUTPUT);
{ , INPUT: By land 1; 'By sea 2.}
VAR
Lanterns: CHAR;
BEGIN {PaulRevere}
{c Lanterns}
{ Paul Rever'}
END. {PaulRevere}
2. :
PROGRAM PaulRevere(INPUT,OUTPUT);
{ , INPUT: By land 1; 'By sea 2.}
VAR
Lanterns: CHAR;
BEGIN {PaulRevere}
{ Lanterns}
READ(Lanterns);
WRITELN('Lanterns is ', Lanterns); { }
{ Paul Rever'}
END. {PaulRevere}
:
INPUT:1
OUTPUT:Lanterns is 1
INPUT:X
OUTPUT:Lanterns is X
, WRITELN. , Lanterns READ, IF:
{ Paul Rever'}
IF Lanterns = 1
THEN
WRITELN(The British are coming by land.)
ELSE
WRITELN(The British are coming by sea.)
IF , Lanterns 1, 2. , :
{ Paul Rever'}
IF Lanterns = 1
THEN
WRITELN(The British are coming by land.)
ELSE
IF Lanterns = 2
THEN
WRITELN(The British are coming by sea.)
ELSE
WRITELN(The North Church shows only , Lanterns, .)
:
PROGRAM PaulRevere(INPUT,OUTPUT);
{ , INPUT: By land 1; 'By sea 2.}
VAR
Lanterns: CHAR;
BEGIN {PaulRevere}
{ Lanterns}
READ(Lanterns);
{ Paul Rever'}
IF Lanterns = 1
THEN
WRITELN(The British are coming by land.)
ELSE
IF Lanterns = 2
THEN
WRITELN(The British are coming by sea.)
ELSE
WRITELN(The North Church shows only , Lanterns, .)
END. {PaulRevere}
INPUT:1
OUTPUT:The British are coming by land.
INPUT:A
OUTPUT:The North Church shows only A.
INPUT:2
OUTPUT:The British are coming by sea.