, , , := , . . , . :
x, y:= y, x
:
t:= x; x:= y; y:= t
. . . -, *, /, % ( ), +, - , <, =, >, <=, >=, !=.
skip ( ), - :
$ =.
, - , DPL .
abort. .
, , . , , . -> , , , . . , , 1, , 0, . , (abort). (skip). . . abort case end ( ), skip - loop end.
space, tab skip , . , , . .
|
|
|
DPL
, .
( )
begin
var x, y: int; /* */
read x, y; /* */
/* */
loop x!= y ->
case
x > y -> x:= x - y
or
y > x -> y:= y - x
end
end;
write x /* */
end
() ()
begin
var x, y, u, v: int; /* */
read x, y; /* */
u, v:= y, x;
/* */
loop
x > y -> x, v:= x - y, v + u
or
y > x -> y, u:= y - x, u + v
end;
write " = ", x; /* */
write skip, " = ", (u + v) / 2 /* */
end
