. , . . , , . . :
1. , .
2. , , : p- v-.
(p proberen(); v verhogen( ))
. 0 1 ( ), , .
s1 ,
p(s1) v(s1) .
V- , . . .
. - v(s1) s1, s1 , v . s1 s1 .
1 2
S1:= S1+1 S1:= S1+1
1 2
v(S1) v(S1)
P- , . , . -, , , .
P- . - , , - , - v- 1. - .
, - , , 1, - , .
Begin integer ;
:= 1;
Parbegin
1: begin end;
2: begin end;
N: begin end;
|
|
Parend;
End;
i:
Begin
Li: P();
i;
V();
i;
Goto Li;
End;
-
, . . , . , . - , . . , , . FIFO.
.
Begin integer ;
:= 0;
Parbegin
: begin
1: ;