--11
(36)
1. . . Delphi. . .
2. , , Object Pascal. (: , , , , -; ; -).
3. (, : , , ). Object Pascal (, , , ).
4. (). Object Pascal (: , , ). .
5. . . . . .
6. .
7. (: , ( )).
8. (, , ).
9. (: , , ).
10. . .
11. .
12. .
13. - . . . .
14. . TObject. , , .
15. . .
16. Object Pascal ( : , .).
17. Object Pascal (, ).
18. Object Pascal (, , ).
(36)
1. . . TP.
2. 1. .
3. 2. .
4. 3. .
5. 4. <Run>. .
6. 5. .
7. 6. .
8. 7.. .
9. 8. .
10. 9. .
11. 10. .
12. 11. .
13. 12. .
14. 13. .
15. 14. Object Pascal.
16. 15. Object Pascal
17.
18.
, , , .
|
|
|
, , , , , , . .
, . .
, - , , , 10-12 . . .
, :
1.
2.
3.
4.
5.
6.
7.
8. - Delphi
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
:
, , , , , , ;
() ;
, ;
;
;
;
, .
:
: Time New Roman;
: , 14 ; , 16 ; , 14 ;
: ;
: 4 20 , 10 ;
|
|
|
: 15-18 .
1-2
, .
, .
1
1
1. Object Pascal.
2. :
x:=3; y:=4; z:=5; if x+y<7 then if x-z<-3 then x:=30 else y:=40 else z:=50; x:=60; y:=70;
writeln(x:4, y:4, z:4);
3. x y :
x:=15; y:=10; repeat x:=x-2; y:=y+3 until (x<8) or (y>22);
4. ANxM [-6; 8]. , [-3;4] . (.: ).
2
1
1. ().
2. 
, . 
, 
. . . 
, . (.: ).
3. :
type TName=string[20]; TNameHead=string[15];
TComm = class
FName: TName; //
FNameHead: TNameHead; //
Constructor Create(N:TName; NH:TNameHead);
end;
3.1. NameHead , FNameHead GetNameHead SetNameHead. GetNameHead SetNameHead.
3.2. Create Comm:TComm, ( - , - ).
4. :
type TArr=array of array of integer;
TMatrix=class
FCountCol,FCountRow:byte;
FArr:TArr;
constructor Create(n,m:byte);
end;
4.1. TVector (, c n ) - TMatrix, , Create n:byte.
4.2. Create(n:byte) TVector.
ӻ. 100- , 60 , 40 ( ).
:
| 6 | |
| 15 | |
| ( 2- ) | 20 |
| : | 15 4 |
| / | 40 |
| 100 |
