.
( )
1. . , .
2. . . .
3. . . , ?
4. . ? ?
( )
1. . , , .
2. , 15 , . , .
3. , , .
4. . , , .
().
, .
PROCEDURE Copy;
BEGIN
READ(Ch);
WRITE(Ch);
END
PROGRAM UsingCopy(INPUT, OUTPUT);
{ 2 INPUT OUTPUT. , INPUT }
VAR
Ch: CHAR;
PROCEDURE Copy;
BEGIN
READ(Ch);
WRITE(Ch);
END;
BEGIN
Copy;
Copy;
WRITELN
END.
INPUT:ABCDE
OUTPUT:AB
SR6. <>::= < BEGIN>
| < >; < BEGIN >
| < >; < BEGIN >
|< >; < >; < BEGIN >
SR11. <>::= < READ>
| < WRITE>
| < >
| < >
| < BEGIN>
| < IF>
| < WHILE>
| < >
SR26. < >::= < >
| < >; < >
|
|
|
SR27. < >::= PROCEDURE <>; < BEGIN>
SR28. < >::= <>
CR3. , < >, READ, WRITE .. < > < >.
CR4. . < > < > , PROCEDURE < >, < >. , .
.
PROGRAM CountChars2(INPUT,OUTPUT);
VAR
Ch, Overflow, Ones, Tens, Hundreds: CHAR;
PROCEDURE BumpHundreds;
BEGIN
Tens:= '0'
IF Hundreds = '0' THEN Hundreds:= '1' ELSE
IF Hundreds = '1' THEN Hundreds:= '2' ELSE
IF Hundreds = '2' THEN Hundreds:= '3' ELSE
IF Hundreds = '3' THEN Hundreds:= '4' ELSE
IF Hundreds = '4' THEN Hundreds:= '5' ELSE
IF Hundreds = '5' THEN Hundreds:= '6' ELSE
IF Hundreds = '6' THEN Hundreds:= '7' ELSE
IF Hundreds = '7' THEN Hundreds:= '8' ELSE
IF Hundreds = '8' THEN Hundreds:= '9' ELSE
IF Hundreds = '9'
THEN
Overflow:= 'Y'
END;
PROCEDURE BumpTens;
BEGIN
Ones:= '0'
IF Tens = '0' THEN Tens:= '1' ELSE
IF Tens = '1' THEN Tens:= '2' ELSE
IF Tens = '2' THEN Tens:= '3' ELSE
IF Tens = '3' THEN Tens:= '4' ELSE
IF Tens = '4' THEN Tens:= '5' ELSE
IF Tens = '5' THEN Tens:= '6' ELSE
IF Tens = '6' THEN Tens:= '7' ELSE
IF Tens = '7' THEN Tens:= '8' ELSE
IF Tens = '8' THEN Tens:= '9' ELSE
IF Tens = '9'
THEN
BumpHundrends
END;
PROCEDURE BumpOnes;
BEGIN
IF Ones = '0' THEN Ones:= '1' ELSE
IF Ones = '1' THEN Ones:= '2' ELSE
IF Ones = '2' THEN Ones:= '3' ELSE
IF Ones = '3' THEN Ones:= '4' ELSE
IF Ones = '4' THEN Ones:= '5' ELSE
IF Ones = '5' THEN Ones:= '6' ELSE
IF Ones = '6' THEN Ones:= '7' ELSE
IF Ones = '7' THEN Ones:= '8' ELSE
IF Ones = '8' THEN Ones:= '9' ELSE
IF Ones = '9'
THEN
BumpTens
END;
PROCEDURE BumpCounter;
BEGIN
BumpOnes
END;
BEGIN
Overflow:= 'N';
Ones:= '0';
Tens:= '0';
Hundreds:= '0';
READ(Ch);
WHILE Ch <> '#'
DO
BEGIN
BumpCounter;
READ(Ch)
END;
IF Overflow = 'N'
THEN
WRITE('Number of characters is ', Hundreds, Tens, Ones)
ELSE
WRITE('Number of characters exceeds 999')
END.
.
( )
1. . ( ) . .
2. , 50 .
3. 50 , . , .
4. 50 . .
( )
1. . .
|
|
|
2. . WRITE , , , .
3. , , .
