Writeln;
write(set b = );
for litera:=A to Z do
If litera in b then write(litera);
Readln
End.
4) :
a - F, I, R, S, T; b - S, E, C, O, N, D.
ϳ a = {S, E, C, O, N, D}, b = {F, I, R, S, T}.
5) :
set a = SECOND
set b = FIRST
1. (1,255) , 3, : 3, 3.
2. - , . , , .
3. [1,255] , 11, : , , 11.
4. , 1..255, n m.
5. 1 255 , 5, 5: 0 5, 5.
6. 1 255. - , 2 (, 3 5).
7. 1 255 , 9, 9: 9, 9.
8. a1 d. , , [ 0, 255 ].
9. 1 255 , 4, 4: , 4, 4.
10. , , n.
11. , (, B=1,,255).
12. - . , , .
13. < 256. 
, 
.
14. , .
15. , 1 255. , , , , 28=1+2+4+7+14.
16. n 1..200. .
17. , N.
|
|
|
18. . , - .
19. , 1 255. M N, M ( M) N, N ( N) M.
20. , 1,,255.
21. n 1..255. .
22. < 100. .
23. n 1000..10000. , .
24. < 256. - , 2n-1, n .
25. , , , .
1. ?
2. ?
3. Turbo Pascal?
4. ?
5. ?
9 Ѳ
- (record). , . , . ʳ , ' , . :
type _ = record
__1: __1;
__2: __2;
End;
var _: _;
var _ = record
__1: __1;
__2: __2;
End;
. balans.debit balans.credit, balans - , debit credit - . . , , . , Turbo Pascal , . , , with. ³ .
Ȫ : with _ do ;
|
|
|
_, , .
: Turbo Pascal , case-of. . , , . - , , , .
n , , , (/). ' , ( , ).
1) ³ , , ' - , ', , . - ' .
2) , , . . .
3) :
 | |||
 | |||
 |
4) : pr, im - ; rik - ; st - . people (). T - . N - , p _ rik - , m_age - , w_age - , i - - .
5) :
Program p9;
type people=
Record
pr:string;
im:string;
rik:integer;
st:char
End;
var t:array[1..25] of people;
n,p_rik,m_age,w_age,i:integer;
Begin
writeln(' ( 1 25)');
Readln(n);
writeln(' ()');
Readln(p_rik);
for i:=1 to n do
Begin
writeln(' , ', (),
(/)');
readln(t[i].pr,t[i].im,t[i].rik,t[i].st);
End;
m_age:=0;
w_age:=0;
for i:=1 to n do
if (t[i].st='') and (p_rik-t[i].rik>m_age) then m_age:=p_rik-t[i].rik;
for i:=1 to n do
if (t[i].st='') and (p_rik-t[i].rik>w_age) then w_age:=p_rik-t[i].rik;
writeln(' :');
for i:=1 to n do
if (t[i].st='') and (p_rik-t[i].rik=m_age) then writeln(t[i].pr, ' ',t[i].im);
writeln(' :');
for i:=1 to n do
if (t[i].st='') and (p_rik-t[i].rik=w_age) then writeln(t[i].pr,' ',t[i].im);
writeln(' = ', abs(m_age-w_age));
Readln
End.
4) :
( 1 25)
()
, ', (), (/)
, ', (), (/)
, ', (), (/)
, ', (), (/)
, ', (), (/)
:
:
= 19
1. . ³ : ( ) - ( ). : , 0.3 ; , , .
|
|
|
2. ³ , . ³ . .
3. ³ : , ', , , , . , , 12 , , 16 35 , - 1 5. , .
4. ³ : , , ' . , ' .
5. . - , . .
6. ³ : ( ), (, , ) (', , ). '.
7. : , , , , , . .
8. : , (, , ). .
9. ³ : (, ..), , ( 2 5 ..). , 4 ., 5 .
10. : , ', , , , . .
11. ³ : , . , 1960 .
12. ³ , , . ³ . .
13. : , , , . .
14. : , . - , . .
15.
Decart=record x, y:real end;
Polar=record r, fi:real end;
,
.
16. ³ , , . .
17. : 䳿, . - , . , , , .
18. : , , - , , , . .
19. ³ : , . , . , .
20. ³ , , . ³ . .
|
|
|
21. : , , , . .
22. ϳ ' : , , , . .
23. : , , . , .
24. ³ : , ', , , '. , .
25. : , , , . .
1. Turbo Pascal?
2. ?
3. ?
4. ?
5. ?
10 Ͳֲ ˲
- , ' . , , . ( ) ( - ). Turbo Pascal : , , . . .
:
,
,
( ),
,
.
, , , . / ( ) , . . ϳ . - , , - (EOF - End Of File).
, - ( system):
Assign(f,Name_of_file) ' f (' Name_of_file);
Reset(f) ();
Rewrite(f) ( f ' , );
EOF(f) ;
Close(f) .
, , . / Read Write. ҳ , , Readln Writeln. Read(f,a) f a. Write(f,b) b f.
Seek. Seek(f,n) n - f (n - Longint, 0, 1 ).
- ( ). : var f: file of __;
( ASCII-, ) ' : var f: text;
|
|
|
, : Append(f), f ; EOLn(f), f.
: , , . Turbo Pascal Input, Output. Pascal, , program main (Input, Output); Turbo Pascal .
dos , MS DOS.
.
1) f, g - : f - , g - .
2) f , i . i - , g.
3) :
4) : f, g - ; s - ; i - .
5) :
Program p10;
var f,g:text;
s,file_name:string;
i:integer;
Begin
writeln(' ' ');
Readln(file_name);
assign(f,file_name');
Reset(f);
assign(g,'solution.txt');
Rewrite(g);
i:=0;
While not EOF(f) do
Begin
i:=i+1;
Readln(f,s);
