, . , , , , , . , - , .
. . upcase, ( 9.7).
I 9.7.
var s: string/procedure upstring(var s:string);) } var i: integer; begin
for i:=l to length(s) do
s[i]:=upcase(s[i]); { } end; begin { }
write(' :');readln{);
upstring(s); writeln(s); readln; end.
. . upcase . , .
: . , ( ), . . ( 9.8).
9.8.
var s:string;
function upstringrus(s:string):string; const small:^1=''; big:s tring='1'; var i,n:integer; begin
for i:=l to lengthfs) do begin
n:=pos{s[i],small);{ ) if n>0 then s[i]:=big[n];{ }
end;
upstringrus:=s; end; begin
write(' ');readln(s);
writeln(upstringrus(s)); readln; end.
, . getupstr . , . , , ( 9.9).
^ 9.9.
uses crt;
var s:string;
procedure getupstr(var st: string);
var :char;
begin
st:='';{ ^ } repeat
c:=readkey;{ crt } case of
{ 32, } '1.. '1: c:=chr(ord(c)-32);
'.. '1: c:=chr(ord(c)-80); { - 80 } '1.. -z': c:=upcase(c);
|
|
end; |
if c<>#13 then { <Enter> } begin
st:=st+c; write();{ } end;
until c=#13;{ <Enter> } writeln; end; "begin
writeln(' <Enter>'); getupstr(s); writeln(' s:1); writeln(s); readln
, , Turbo Pascal .
, . , , . , (, , . .).
. , .
Turbo Pascal . , 256. char, byte, boolean. ( 256 ).
, . .
.
: [1,2,3,4], ['','','1 [''.. ''}
, []. .
set of ( ...). :
Type
= set of ; var
,...: ;
:
var ,...: set of ;
:
const =[];
:
const :'= [];
:
const number - [1,4,7,9]; type simply = set of 'a'.-'h1;
var pr: simply;
letter: set of char; { }
'' 'h1; letter . .
. 1 ( !). , , , 32 . , 1 , 0 .
, :
|
|
, ;
, .
:
(=, <>, >=, <=);
(+);
(*);
();
G (in).
.
"" (=). , . (. 10.1).
10.1. ""
"\ " " (<>). , (. 10.2).
10.2. " "
" " (>=). . >~ true, . false (. 10.3).
3 " " (<=). , <= true, . false (. 10.4).
" V
10.4. " "
in. - . (. 10.5).
10.5. in
in , . ,
if (a=l) or (=2) or (a=3) or (a=4) or (a=5) then...
if a in [1.. 5] then...
in : not in m. , : not(x in m)
(+). , (. 10.6).
10.6.
(*). , ,* (. 10.7).
10.7.
(). , , (. .8).
10.8.
10.1 , . : D1 - 2, 4, 6, 8; D2 , 1, 2, 3, 5; D3 1, 3, 5, 7, 9. , , .
; 10.1,
type digits=set of 0.. 9;
var dl,d2,d3,d: digits;
begin
dl:=[2,4,6,8]; ( }
d2:=[0.. 3,5];
d3:-[l,3,5,7,9J;
d:=dl+d2; { dl d2)
d:=d+d3; { d d3 }
d:=d~d2; { d d2)
d:=d*dl; { d dl }
end.
!
Turbo Pascal / , , dl, 62, d3, d (. 1).
, . , :
|
|
type charset=set of char; procedure writeset(a:charset); var :char; begin
for c:=chr(0) to chr(255) do
if in a then write(c,' '); writeln; end;
. , . . .
, . , , . 10.2.
\ ); 10.2.
const
glasn=[ '', '', '', '1, ''/ '', ', '1, '',
' ' F ' ' ' ' )' ' V ' ' W' ' ' ' HV ' ' 1
\, , VI f w, J I * t - r /1J/
var s:string; p,i:integer; begin
write(' : '); readln(s);
p:=0;
for i:=l to length(s) do
if s[i] in glasn then p:=p+l;
writelnf'B ',, ' '); readln; end.
j
glasn, . in. , . , . . , , , .