14
2
: . Turbo Pascal
. Pascal , .
char. char .
:
: char;
- ; char- .
:
Otv: char;
Ch: char;
, char (read, readln). char , := char , .
, .
Program p;
Var
c1, c2, otvet: char;
Begin
c1:=*;
c2:=c1;
write ( ?);
readln (otvet);
writeln ( :, otvet);
End.
1 , 2- 1, otvet .
: otvet char,.. . , , , otvet Ē.
char char . , (. ), 0 , 9 A , B, Z , a. :
0<1<<9<<A<B<<Z<a<b<<z
, , :
<<<<ޒ<ߒ<<<<<<<.
char .
Program p1;
Var
otvet: char;
Begin
...
writeln ( ? (/));
readln (otvet);
if (otvet=Ē) or (otvet=) then begin
end;
End.
otvet . , , otvet , <> <Shift>, , <>
|
|
|
<Shift >
. . , , . , , Chr, , . , ch:=Chr(218); ch ( ch, , char).
, 1, ( 0 127) ASCII. 7 13 , , 7 , 13 , .
1.
ASCII (ascii.pas)
Program ascii;
Var
Ch:char; {}
Dec:integer; { }
i, j: integer;
begin
dec:=0;
for i=0 to 16 do { }
begin
dec:=I; { }
{ 128-255,}
{ }
{ dec:=i+128;}
for j:=1 to 8 do { }
begin
if (dec<7) or (dec>=14)
then
write (dec:4, -,, chr(dec):1, chr(179));
else { R, LF, TAB }
write (dec:4, - , chr(179));
dec:= dec+16
end;
writeln; { }
end;
end.
, 2, chr .
2. chr
Program ramka;
Var
1, tr, b1, br, g, v:char;
I:integer;
Begin
T1:=Chr (218); { }
TR: =chr (191); { }
B1:=Chr (192); { }
Br: =Chr (217); { }
G: =Chr (196); { }
V: =chr (179); { }
Write (t1);
For i: =1 to 32 do write (g);
Writeln (tr);
Writeln (v, CHR, v);
Writeln (v, . , v);
Write (b1);
For i: =1 to 32 do write (g);
Writeln (br);
End.
7 . , , . chr . , , .
Program beep;
Label
Bye;
Var
Write ();
Readln (password);
If password <>377
Then begin
Writeln (chr(7), !);
Goto bye;
End;
{ }
bye:
end.
. () .
, . , . buf size, for, , :
|
|
|
For i:=1 to SIZE do read(buf[i]);
SIZE ( ),
for .
EOLN (End Of Line- ), , , read, . . EOLN, , , ( read). , EONL FALSE. EOLN , . , 3, EOLN .
3.
Program getstarr;
Const
SIZE=30;
Var
Buf: array [1..SIZE] of char;
N: integer; { }
Begin
Write (->);
N: =0;
Repeat
If not EOLN then
Begin
N: =n+1;
Read (buf[n]);
End;
Until EOLN or (n=SIZE);
Writeln ( ,.);
End.
