-

 - e-mail

 

 -

   xpackpackax

 -

 LiveInternet.ru:
: 09.01.2009
:
:
: 1835

:

(1)

, 16 2009 . 19:29 +
(, , , , , ). , , . , . 1970- - Pascal-P, (P-) P-. UCSD Pascal - (, ), Java (-, -, -).
() . . . , , , , , .
, : , , -, , . . (, 1980-, -2, , , ). ISO- 1982 , , , .
, . , 70- ( , ), . 1980- . . - .
, , , , , , : -2 . , , , , .
1986 Apple , Object Pascal. 1989 Borland Turbo Pascal ( Turbo Pascal 5.5 Object Pascal Apple ). Turbo Pascal, Borland Pascal, , Delphi[1]. : Pascal, Object Pascal Delphi, Delphi Pascal, Delphi , ( : Delphi 7 , , , Object Pascal Reference, Delphi Language Manual, Delphi). 1 2008 Borland/CodeGear .


**
, ! . !
...

:  
(4)

, 16 2009 . 19:20 +
...

. ,
- .
:
IF <> THEN <1> ELSE <2>,
IF, THEN, ELSE - (, , ); <> -
; <1>, <2> -
.
.
<>. TRUE (),
<1>, <2> ;
FALSE (), , <1> , <2>.
:
var
, , max: Integer;
begin
.......
if x > max then
:= max else
y := x;
Y X,
, Y
.
ELSE <2> .
TRUE <1>,
:
var
, , max: Integer;
begin
.......
if x > max then
max := x;
Y := x;
Y X,
X.
<1> <2>
, ,
ELSE <2>,
.
: ELSE
THEN .


**
.

**
, , "", .
...

:  

 : [1]