| ! | ||
|
, , . Char.
- , , . 0 255.
ASCII . 0 127 ASCII, 0 31 . IBM- . 128 255 , , . , , .
ASCII:
! | " | # | $ | ||||||
% | & | ' | ( | ) | |||||
* | + | , | . | ||||||
/ | |||||||||
: | ; | < | = | ||||||
> | ? | @ | A | B | |||||
C | D | E | F | G | |||||
H | I | J | K | L | |||||
M | N | O | P | Q | |||||
R | S | T | U | V | |||||
W | X | Y | Z | [ | |||||
\ | ] | ^ | _ | ` | |||||
a | b | c | d | e | |||||
f | g | H | i | j | |||||
k | l | M | n | o | |||||
p | q | R | s | t | |||||
u | v | W | x | y | |||||
z | { | | | } | ~ | |||||
| |||||||||
. : , ASCII .
Char : ch:='*'; a:='3'; letter:='G'. Chr(x) ( ). h Ord(ch).
1
:
YZ.
: , , 2- , 3- , . ʳ . , :
Program Example;
Var i,j:Char;
Begin
For i:='A' to 'Z' do
Begin
For j:='A' to i do Write (j);
Writeln
End
End.
2
, , . , Enter.
, .. , , :
Program Example;
Var ch:Char;
k:Integer;
Begin
Read (ch);
k:=0;
While ch<>'.' do
Begin
If (ch>='0') and (ch<='9') then k:=k+1;
Read(ch);
End;
Writeln ('ʳ : ',k);
End.
1. ?
2. ?
3. ASCII?
4. ?
1) 2 , , .
2) , .
3) ASCII 32 255.
4) , : ?
5) * , n : d1d2dn (d1, d2 .. , + , n>1). .
: 2014-11-04; : 2386 | | !