364 , , : , , , , , , . , , , .
:
364150
(304)
(123)
(23)
(113)
(4)
(4814)
(5227)
(2616)
(3423)
(4214)
(1518)
(68)
- (2836)
(8269)
(50)
(50)
(762)
(2)
(5275)
(30)
(1222)
(43)
(20403)
(465)
(19)
(108)
(173)
(96)
(899)
(54)
(34)
(476)
(106)
(62792)
(3562)
, (6444)
(2165)
(21320)
(766)
(64)
(3145)
(60)
(17)
(588)
(1000)
(106)
(48)
(3)
(1167)
(8485)
(537)
: (2044)
(11657)
(532)
(21)
(7985)
(3721)
, (10549)
(88)
(58)
(36)
(2257)
(12491)
(91)
(797)
(1338)
(24)
, (214)
(1141)
(3)
(8)
(21697)
(7850)
(3801)
(682)
, (2881)
(475)
(1)
, (7100)
(8694)
, (4121)
(443)
(952)
(2967)
(23)
(748)
(4876)
(95)
(107)
(7)
(2004)
(15)
(663)
(240)
(39)
(25)
(624)
(16)
(2652)
(136)
(90)
(406)
(95)
(24)
(3463)
(4482)
(7216)
(4592)
(5386)
(3)
(2244)
(23)
(29)
(35)
(4517)
(20645)
- (666)
(119)
(2573)
(889)
(288)
(148)
, (1140)

:

:
:
: 19:13:42 10 2011
: 4 : 2 : 0 : 0 :    

III

3.2

. . ? ,

:

. .

:

. .


ʭέ ʭέέѭ

, - , ? , , , , - . .

( ) . , .

, , . , , , . , , . ,

ʭέέͭ

, IDE Borland C++ 3.1 (TEMC). ,

1

.

.

.

SetPrevPos;

FixScreenPos;

PageScreenUp;

FixCursorPos;

.

.

.

SetPrevPos;

FixScreenPos;

PageScreenUp;

FixCursorPos;

.

.

.

SetPrevPos;

FixScreenPos;

PageScreenUp;

FixCursorPos;

.

. , , .

, .

. ,

MACRO <macro name>

-----------------

-----------------

-----------------

END;

MACRO - - , . , . END .

, . MacPageUp, :



MACRO MacPageUp

SetPrevPos;

FixScreenPos;

PageScreenUp;

FixCursorPos;

END;

.

.

.

MacPageUp

.

.

.

MacPageUp

.

.

.

.

.

.

SetPrevPos;

FixScreenPos;

PageScreenUp;

FixCursorPos;

.

.

.

SetPrevPos;

FixScreenPos;

PageScreenUp;

FixCursorPos;

.

.

.

() :

SetPrevPos;

FixScreenPos;

PageScreenUp;

FixCursorPos;

. , . . .


ŭέ ʭέέ

, , , . : , . () .

:

2:

.

.

.

SetPrevPos;

MoveToMark(1);

CenterFixScreenPos;

.

.

.

SetPrevPos;

MoveToMark(2);

CenterFixScreenPos;

.

.

.

, . 1, - 2. , , . , , . , &, . , , , TEMC , :

MACRO <macro name>(<paramlist>)

-----------------

-----------------

-----------------

END;

<paramlist> .

:

MACRO MacGoto(labelno)

SetPrevPos;

MoveToMark(labelno);

CenterFixScreenPos;

END;

.

.

.

MacGoto(1)

.

.

.

MacGoto(2)

.

.

.

.

.

.

SetPrevPos;

MoveToMark(1);

CenterFixScreenPos;

.

.

.

SetPrevPos;

MoveToMark(2);

CenterFixScreenPos;

.

.

.


, . .

:

3:

.

.

.

ScrollScreenDown;

ScrollScreenLeft(0);

FixCursorPos;

.

.

.

ScrollScreenUp;

ScrollScreenLeft(1);

FixCursorPos;

.

.

.

, . :

MACRO MacMove(cmd,left)

cmd;

ScrollScreenLeft(left);

FixCursorPos;

END;

.

.

.

MacMove(ScrollScreenDown,0)

.

.

.

MacMove(ScrollScreenUp,1)

.

.

ScrollScreenDown;

ScrollScreenLeft(0);

FixCursorPos;

.

.

.

ScrollScreenUp;

ScrollScreenLeft(1);

FixCursorPos;

.

.

.


, . - . , , . MacMove :

MacMove(cmd=ScrollScreenUp,left=1)

ѭ­ ʭέѭȭŭ

.

:

4:

.

.

.

ScrollScreenLeft(1);

LiteralChar('-');

.

.

.

ScrollScreenDown;

ScrollScreenLeft(2);

LiteralChar('*');

.

.

.

, - . :


.

.

.

MACRO Mac1(p1,left,chr)

IF p1==1 THEN

ScrollScreenDown;

ENDIF

ScrollScreenLeft(2);

LiteralChar('*');

END

.

.

.

Mac1(1,2,-)

.

.

.

Mac1(0,1,*)

.

.

.

.

.

.

ScrollScreenLeft(1);

LiteralChar('-');

.

.

.

ScrollScreenDown;

ScrollScreenLeft(2);

LiteralChar('*');

.

.

.

IF...THEN...ELSE . -, . , , , - . , . , , . .

ʭέۭέ ҭ ʭέϭŭŭŭ

, , , .

5:

.

.

.

MACRO Mac1

SetPrevPos;

CursorCharRight;

END

.

.

.

MACRO Mac2

Mac1

Mac1

END

.

.

.

Mac2 Mac1. Mac2 . , :


( 1) ( 2)

.

.

.

MACRO Mac1

SetPrevPos;

CursorCharRight;

END

MACRO Mac2

Mac1

Mac1

END

.

.

.

Mac2

.

.

.

MACRO Mac2

SetPrevPos;

CursorCharRight;

SetPrevPos;

CursorCharRight;

END

Mac2

.

.

.

SetPrevPos;

CursorCharRight;

SetPrevPos;

CursorCharRight;

.

.

.

, . , Mac2 . , , - , . .

ʭέϭŭŭŭ ʭέϭŭŭŭȭ

, . , .

, , , , . - . , - . DEFINE, . .

6:

.

.

.

RO DEFINE sub

.......

.......

MACRO sub(param)

......

......

sub(param)

......

......

END

......

......

END

:

DEFINE(cos)

cos, :

cos()

.


ȭ

, . . .

έ­

:

. , . MACRO MEND. , . , , . , .

. ,

. , . , , .

. . , .

, .

, . - , . , , . , . , . , .

, (macro[x,y] = xy), x&y, x y. . , . , , . , , blablabla[x]xxxxx, [x] blablabla(x)xxxxx.

, REXX, OS/2 IBM.

( ). - .


ӭѭҭέ ˭έ

. , . .

, , . - , . , , . , , , . . , INCR X, 10. , Ք 10.

2 . , . , , , , . , , , . , .

ͭ Эέ έҭ

1. -

2. 1 - .

3. - ,

4. - , ,

5. -

6. -

7. - , .

ͭ έέ έҭ

1. 1 -

2. 2 -

3. - ,

4. - , ,

5. -

6. -

7. - , .


.

.

Э έ - ʭέϭŭŭŭ: . MACRO, . - . . , . END, , , .

έ έ - ѭȭŭ ʭέέ: . , : . . , , 2. END, .


= 0

= 0

= 0

( == 0) {

!( MACRO) {

1

( END) = 1

}

{

++

++

{

++

} !( MEND)

}

}


= 0

( == 0) {

1

=

!() {

2

( END) {

= 1

}

}

{

=

{

++

.

2

} !( MEND)

}

}


, . , , . , . , .

. , , . , , , , . , , . , . . , , . , .

.


= 0

= 0

= 0

!( ) {

=

() {

= 1

=

{

++

.

} !( MEND)

!( MACRO) {

1

( END) = 1

}


{

++

++

{

++

} !( MEND)

}

}

[1], 4.3.2. , , . , , (, 64 ) . , . .


, , - , , . . , . , ; .

:

(, -, , ...)

.

(, EUQ) .

:

, , .

, .

, , . , , .


. , , .

, :

:

, .


:

[1] . -

[2] IBM OS/2 - REXX Programmers Reference

[3] Borland C++ - Included documentation and sources.

/
:
? : letsdoit777.blogspot.com
08:57:25 19 2016
9000 " "? : business1777.blogspot.com ! C !
12:09:53 29 2015

, :



, ?

, .
, .
, .
, .
, .



(150051)
(1830)
Copyright 2005-2016 BestReferat.ru bestreferat@mail.ru

@Mail.ru