, (, ). . - (, ?, F, 7). - char.
, var S, Litera, CapsLitera: char; , 3 S, Litera, CapsLitera.
, ASCII, ( ). ( ASCII-) , 䳺 (#) , , #13. - ᒺ char (, ) 1 .
:
Chr(n) - n (ASCII-);
Ord(s) - s;
UpCase(s) - .
string () ( ). string char. , - , . string :
Var
'__1: string;
'__2: string[n];
'_ () string. , - , . , 255 - . - .
string :
Length - R ( );
: , .
Copy(R,bp,k) - R , bp - , , k - ;
: .
Pos(SubR,R) - SubR R;
: , . 0, .
oncat(R1,R2,R3,) - ' ;
: .
Delete(R,bp,k) - R , bp - , , k - ;
|
|
|
Insert(SubR,R,np) - SubR R, np - , SubR R.
: Delete Insert .
(=, <>, <, >) (ᒺ, +).
: , () ASCII. .
. , , .
, string, , (ᒺ char) . , , .
.
.
Program p6_1;
var s:string;
n,maxd,ds,i,d,j,p,k:integer;
c:char;
Begin
readln(s);{ }
s:=s+' ';{ }
{ }
n:=1;{ }
maxd:=0;
ds:=length(s);{ }
for i:=1 to ds do{ }
if s[i]=' ' then{}
Begin
d:=i-n;{ }
if d>maxd then{ }
Begin
maxd:=d;
j:=n;{ }
End;
n:=i+1;{ }
End;
p:=(maxd div 2)-1;
k:=j+maxd-1;{ }
for i:=0 to p do{ }
Begin
c:=s[i+j];
s[i+j]:=s[k-i];
s[k-i]:=c;
End;
delete(s,ds,1);{ }
writeln(s);{ }
End.
, , , .
Program p6_2;
var r,s:string;
b:array[1..20] of string;
n,i,j,k:integer;
Begin
readln(s);{ }
s:=s+' ';{ }
k:=0;{ }
while length(s)>0 do{ }
Begin
n:=pos(' ',s);{ , }
k:=k+1;{ }
b[k]:=copy(s,1,n-1);{ }
delete(s,1,n);{ }
End;
j:=1; { }
for i:=2 to k do
if length(b[i]) > length(b[j]) then j:=i;
r:='';{ }
for i:=length(b[j]) downto 1 do
r:=r+b[j,i];
b[j]:=r;
s:=b[1];{ }
for i:=2 to k do
s:=s+' '+b[i];
writeln(s);{ }
End.
1. . , .
|
|
|
2. 9- 18- , , - . , .
3. , 80 , , 80.
4. . .
5. , ( ). ³ .
6. . , ( ).
7. , - ASCII- ( ), . ³ .
8. , - . , .
9. , !. , !, + *.
10. , , , ( - , , , ). .
11. .
12. , , ASCII-. ³ .
13. , . : k , k.
14. , . , .
15. : , , .
16. ( M=1000, D=500, C=100, L=50, X=10, V=5, I=1, CM=900, CD=400, XC=90, XL=40, IX=9, IV=4).
17. , , .
18. , . ³ .
19. , .
20. . ( ). (, ( ) 1, ), 1. , , 䒺 - , . 0, .
21. , 20 . .
22. , , , . ³ .
23. , .
24. .
25. , + - . .
1. ? ?
|
|
|
2. ?
3. ?
4. 䳿 ?
5. ? ?
6. ?
7. ?
8. ?
9. ?
10. ?
11. ?
12. ', ᒺ ?
7 ̲
, () , ( 㳿 ) ( ). Turbo Pascal - . ( Turbo Pascal) ( ), ( ) ( ).
:
procedure _ ( );
- . , , , program, , , . , .
:
_ ( );
- , (), . . , , .
:
function _ ( ): _;
, . ³ _: = ;. , .
, .
:
y:=sin(argument);
if sin(argument) =0 then writeln( );
writeln(sin(argument));
, () , .
, (), .
: (, ), (. ).
ᒺ, - . ᒺ, , .
ϳ, , , ( ) ( ﳿ) - .
|
|
|
ϳ 䳿 , ( , , ). , . ( ), . , , , .
Turbo Pascal . unit program; interface, , ; implementation, ; begin end. ( ). tpc.exe ( tpu -).
' - , , .
, 
- A B, 
- . .
1) A B - .
2) 
A 2 n 
. 
.
3) :
 | |||||
 | |||||
 | |||||
4) : Amax, Amin, Bmax, Bmin, z - , i, k, n, m - .
5) :
Program p7;
type matr=array[1..100] of real;
var i,k,n,m: integer;
Amax,Amin,Bmax,Bmin,z:real;
A,B: matr;
procedure nmax(c:matr;n1:integer;var cmax:real);
var i:integer;
Begin
cmax:=c[1];
for i:=2 to n1 do
if c[i]>cmax then cmax:=c[i];
End;
procedure nmin(c:matr;n1:integer;var cmin:real);
var i:integer;
Begin
cmin:=c[1];
for i:=2 to n1 do
if c[i]<cmin then cmin:=c[i];
End;
Begin
writeln(' A < 100');
Readln(n);
writeln(' A );
for i:=1 to n do
read(A[i]);
Nmax(a,n,Amax);
Nmin(a,n,Amin);
writeln(' B < 100');
Readln(m);
writeln(' B );
for i:=1 to m do
read(B[i]);
Nmax(b,m,Bmax);
Nmin(b,m,Bmin);
z:=Amax*Bmin+Amin*Bmax;
writeln(:,z);
Readln
End.
6) :
< 100
1 3 2
B < 100
B
2 5 3 7
: 1.3000000000E+01
7) :
< 100
45 23 2 5 6 22
B < 100
B
12 9 -2 34 5
: -2.2000000000E+01
1. 10 . ǒ, . .
2. ³ A, B, C. x, y, z, x - A, y - B, z - C. .
3. , B, C - . , .
4. n - U(x) V(x) . V(c-V(1-c)/U(c+1)), .
5. X, Y, Z - . a, b c, a - X, b - Y, c - Z. .
|
|
|
6. (x1-x2)*(y1-y2), x1, x2 - 
; y1, y2 - 
. .
7. ³ A, B, C, D K, L, M, N, . .
8. qx2+cx+s=0, q, c, s - 
, 
, 
. .
9. 
, a - 䒺 
, b - 䒺 
. .
10. 
. .
11. , (x,y,z) ABC ( , , ).
12. 
, 
, 
, 
(x,y) (z,p), .
13. 
, 
, 
, .
14. . , .
15. , (x,y) ABCD.
16. , .
17. , - . .
18. . .
19. n (3 £ n £ 100). , .
20. n- . .
21. , , , , - .
22. ³ , - .
23. ³ n . , .
24. n . , , , .
25. . , .
1. ?
2. 㳿 ?
3. ?
4. ?
5. ?
6. ?
7. ?
8. ?
9. ?
10. ?
11. ?
12. ? ?
13. ?
14. 㳿 '- ?
