: ; (++, Object Pascal) .
:
1. , , .
2. ( ) , .
3. Object Pascal .
1. Delphi Structures.
2. 4, PolustatStruct. PolustatStruct .
3. PolustatStruct , , ( 4.1.) .
4. onClick , .
5. .
6. , -, PolustatStruct : .
4.1
. | |||||||||||||||||
1. | (.. UNIT1 ) n real, ; ; , :
1 2 -1 +1 +1
UNIT1 : Ochistka (Q) ( ) PustOch (Q) , InOchered (Q, x) OutOchered (Q, x) , x Oshibka (k) - , : =1 =2 , UNIT1, . | ||||||||||||||||
2. | , .1 , UNIT1, : type FR = file of real; f FR : , [;b], - , ( b , < b). : Q1 [; b], Q2 . | ||||||||||||||||
3. | , . 1 , UNIT1, : f, , g, ( ), , . | ||||||||||||||||
4. | - UNIT2 ( ). n real, , , :
UNIT2 : Ochistka (S) ( ) PustSteck (S) , InSteck (S, x) x S OutSteck (S, x) S , x Oshibka (k) - , : = 1 = 2 , UNIT2, . | ||||||||||||||||
5. | . 4 , UNIT2, : t, . . | ||||||||||||||||
6. | :
const n = 50;
var z: array [1..n] of integer; i, j: integer;
{ }
20 , , ( InOut), , , . 2 : ( ) ( , ).
: , , : | ||||||||||||||||
7. | , . 10 , 100, ; , , . . | ||||||||||||||||
8. | Byte- > 0 Pchar. Pchar, . | ||||||||||||||||
9. | , . 4. , : type FC = file of char; , t FC . , . : , . , : +(45-F(x)*(B-C))) : 12 16 8 10 3 17 |
|
|
1. .
2. .
3. ? ?
4. LIFO (last in, first out)?
5. , ?
6. Object Pascal?
5
(4 )
-
:
.
:
1. () Object Pascal .
2. . :
) ;
) ;
) .
1. Delphi Stuctures.
2. 5, DinamicStuct. DinamicStuct .
3. DinamicStuct , (. 5.1), ( onClic) . Tmemo.
4. onClic , , .
5. .
6. , :
) , ;
) - ;
) ;
) .
7. .
5.1
. | ||||||
1. | :
, bukv . , , , , . : const A: array [1.. 9] of char =(A, P, Y, T, K, Y, P, T, C).
| |||||
2. | , . 1 , . . :
| |||||
3. | rec:
Type ptr =^ rec;
rec = record
key: integer;
s: ptr;
end;
var t: rec;
.
, . , ( ) ( ), , .
| |||||
4. | P() = anxn + an-1xn-1 + + a1x + a0 , : Object Pascal , , -: ) Equal(p,q), p q; ) Value(p,x), p x; ) Dif(p,q), p- q; ) Addit(p,q,r), p- q r. | |||||
5. | , Nil :
L - Type prt =^ rec rec = record; key: integer; s: ptr; end; E - rec.
: ) , L TstringGrid : t1 t2 tn-1 tn t2 t3 tn t1 t3 t4 t1 t2 -- - - - - - - - - - tn t1 tn-2 tn-1
) , L , L . ) , L , L . |
1 .
2 , .
3 .
4 .
5 .
6
(8 )