Val (st, I, Cod) st , I , st, Cod . , Cod ; (, i ), Cod , I .
st | ||
'1450' '14. 2e+02' '14. 2fgh' | Val (st, I, Cod) Val (st, I, Cod) Val (st, I, Cod)? | 1450, Cod=0 1420, Cod=0 Cod=5 |
5. Length (St) St. . , St ='rte', Length (St) 3.
6. Copy (St, Poz, N) - St N , Poz. Poz N . Poz>length (St), ; Poz>255, .
St
'abcdefg' Copy (St, 2, 3) 'bcd'
'abcdefg' Copy (St, 4, 10) 'defg'
7. Pos (St1, St2) St2 St1. St2, St1. St2 St1 , 0. , St ='abcdef', Pos ('de', st) 4, Pos ('r', St) 0.
8. Concat (St1, St2,..., Stn) St1, St2,..., Stn , . C 255. , Concat ('aa', 'xx', 'y') 'aaxxy'.
9. Upcase (Ch) . Char. , Upcase ('a') 'a'.
1. .
2. .
3. , , , , .
- Pascal :
1. 25 . 'oksm'.
2. w , . .
3. 30 . 'r'.
4. - . .
5. . , .
6. , . , m.
7. . D ʔ, .
|
|
8. , . .
9. , .
10. . .
11. .
12. , .
13. . .
14. .
15. .
16. , , , .
17. a .
18. .
19. . .
20. . , .
21. , .
ֲ
1. .
2. .
3. .
4. , , , -, ( ), ( ).
5. , .
6. ϳ .
,
1) , . , .
. st, (255 ). . w, st, p .
˳ :
Program rjadok;
uses crt;
var
st: string;
w: string;
p: integer;
begin
writeln ('i , : ');
readln (st);
writeln (' : ');
writeln (st);
p: =pos (' ', st); { 1- }
writeln;
writeln (' : ');
while p>0 do
begin w: =copy (st, 1, p-1); { }
delete (st, 1, p); { }
writeln (w); { }
p: =pos (' ', st) { }
end; writeln (st) { }
end.
:
: Pascal.
:
Pascal
-
2) 100 . 'abc'.
˳ :
program Stroka;
const n=100;
type STR=array[1..n] of char;
var b: STR; m, i: integer;
begin
writeln (' ');
for i:=1 to n do
read (b[i]);
for i:=1 to n-2 do
if ((b[i]='a') and (b[i+1]='b') and (b[i+2]='c')) then Inc(m);
|
|
writeln (' ʳ 'abc' m=', m);
readln; end.
3) , , . .
4) . . .
1. Pascal?
2. ?
3. ? ? , ?
4. ?
5. , ?
6. ? i ?
7. , .
8. ?
9. <> case?
____________ . .