ᒺ-
ᒺ
, . . , 32- Windows NT (1993 ) 6 . , Windows 2000 29 . . , , , .
. :
ᒺ-.
. Pascal C . . , , . , . , .
, . ᒺ, ᒺ- .
ᒺ- () , ᒺ.
ᒺ :
- () ;
- , ;
- , .
ᒺ , ᒺ. . ᒺ.
( ᒺ) . ( ᒺ) , ᒺ, ᒺ.
ᒺ () . ³, ᒺ, .
, 90- . XX . 㳿 , :
ü
ü Simula 67, Smalltalk
ü
ü
|
|
ü .
ᒺ- :
- : Simula 67, Smalltalk, Actor, Eiffel, Objective C;
- : C++, Object Pascal, Java, C#.
Object Pascal. Object Pascal.
Pascal ͳ ³ 1960- Algol-60.
1985 . Pascal Apple bject Pascal ( ). 1989 . Borland ᒺ- Turbo Pascal 5.5.
1994 . bject Pascal Delphi Borland. Delphi 6 (2001 ) Borland Object Pascal, Delphi . Object Pascal Delphi.
bject Pascal ᒺ . . , ᒺ ( ) , ᒺ ( ).
, .
type
< >=class
< >
< >
end;
:
type
TCircle = class //
X, Y: Real; // ( )
R: Real; // ()
procedure Draw; // ( )
function Area: real; // ( )
end;
ϳ ᒺ .
var
< ᒺ>:< 1>;
//
< ᒺ>:< n>;
:
var aCircle1, aCircle2: TCircle; // '-
:
- ;
- , ();
- ();
- ();
- ().
(. encapsulation) , . ( ᒺ) . , , R TCircle 䒺 .
(. inheritance). , () . (, ), (, ). , , .
:
type
< > = class(< >)
:
Type
TCircle = class(TEllipse)
(. polymorphism) ᒺ , . ᒺ, , - .
. TFigure ( ) Draw (). TFigure , , (ᒺ TCircle) (ᒺ TRectangle). , Draw , .
|
|
2. Object Pascal
I. :
:
- (..Z, a..z)
- (0..9)
-
- : + - * /.,;: = < > () [ ] { } ^ @ $ # _
- ::= <> >= <=.. (* *) // (..)
- .
, ᒺ .
, , , , .
( ) , , , , , ; , , _ ( ); ( ).
.