CF Pascal
CF Pascal , 2. , , , . .
CF Pascal ( ) . , . , .
.
CF Pascal , . , ,
, , , , , .
: , , , ,
.
, 2 , 6 BEGIN . , .
, :
PROCEDURE SwitchOneTwo;
BEGIN
Hold:= OneV;
OneV:= TwoV;
TwoV:= Hold;
END.
OneV TwoV, Hold.
<SwitchOneTwo, Hold:= OneV; OneV:= TwoV; TwoV:= Hold>
SwitchOneTwo
SwitchOneTwo = <s, s(SwitchOneTwo) (s)>
= <s, Hold:= OneV; OneV:= TwoV; TwoV:= Hold (s)>
= (Hold, OneV, TwoV:= OneV, TwoV, OneV)
. SwitchOneTwo. , , .
, . SwitchOneTwo , . , , . , .
|
|
|
, , , .
, :
PROCEDURE SwitchThese2(VAR V1, V2, temp: CHAR)
, . , , .
PROCEDURE SwitchThese2(VAR V1, V2, temp: CHAR);
BEGIN
Temp:= V1;
V1:= V2;
V2:= Temp;
END
, , , , .
, Hold, OneV TwoV,
SwitchThese2(OneV, TwoV, Hold)
OneV TwoV SwitchOneTwo.
SwitchThese2(OneV, AnyV, Hold)
OneV AnyV Switchthese2. .
SwitchThese2(OneV, AnyV, Hold)
= Hold:= OneV; OneV:= AnyV; AnyV:= Hold
= (Hold, OneV, AnyV:= OneV, AnyV, OneV)
. :
PROCEDURE Copy (VAR F1, F2: TEXT; VAR Ch: CHAR);
, BEGIN F1 F2 .
PROCEDURE Copy (VAR F1, F2: TEXT; VAR Ch: CHAR);
BEGIN {Copy}
WHILE NOT EOF (F1)
DO
BEGIN
WHILE NOT EOLN (F1)
DO
BEGIN
READ(F1, Ch);
WRITE(F2, Ch)
END
READLN(F1);
WRITELN(F2)
END
END {Copy}
, F1 F2 , Ch. :
Copy(INPUT, OUTPUT, temp)
input output.
