WHILE . , READ Copy.
WHILE Ch <> #
DO
BEGIN
WRITE(Ch)
END
, WHILE .
1.5.3. MaxOfAll CopyOdds
MaxOfAll INPUT #. IF OUTPUT , - . Max . , , . WHILE , Max .
PROGRAM MaxOfAll (INPUT, OUTPUT);
{ , #
INPUT, OUTPUT}
VAR
Ch, Max: CHAR;
BEGIN
READ(Ch);
IF Ch = #
THEN
WRITELN(NO DATA);
ELSE
BEGIN
WRITE(INPUT DATA IS );
Max:= Ch;
WHILE Ch <> #
DO
BEGIN
WRITE(Ch);
IF Ch > Max
THEN
Max:= Ch;
READ(Ch)
END;
WRITELN;
WRITELN(MAX OF ALL IS , Max);
END
END.
INPUT: AZURE#
OUTPUT: INPUT DATA IZ AZURE
: MAX OF ALL IS Z
INPUT: A#
OUTPUT: INPUT DATA IZ A
: MAX OF ALL IS A
INPUT: #AZURE
OUTPUT: NO DATA
CopyOdds INPUT OUTPUT . Next , / .
, .
PROGRAM CopyOdds (INPUT, OUTPUT);
{ , #
INPUT OUTPUT}
VAR
Ch, Next: CHAR;
{Next (Odd-O)
(Even-E)}
BEGIN
Next:= O
READ(Ch);
WHILE Ch <> #
DO
BEGIN
IF Next = O
THEN { }
WRITE(Ch);
READ(Ch);
{ Next}
IF Next = O
THEN
Next:= E {Even}
ELSE
Next:= O
END;
WRITELN
END.
INPUT: AZURE#
OUTPUT: AUE
INPUT: A#BC
OUTPUT: A
INPUT: 123456789#
OUTPUT: 13579
INPUT: SEE CAR EAT#
OUTPUT: SECRET
IF WHILE
IF Next = O
THEN
Next:= E {Even}
ELSE
Next:= O
Next O E. O E, E O. , IF Next O/E (flip-flop).