想问一下、这短递归程序该怎样解释,谢谢!
PROGRAM example(input,output);
PROCEDURE receive;
VAR
ch:char;
BEGIN
read(ch);
write(ch);
IF ch<>'.'
HTEN receive;
write(ch)
END;
BEGIN
receive
END.
PROGRAM example(input,output);
PROCEDURE receive;
VAR
ch:char;
BEGIN
read(ch);
write(ch);
IF ch<>'.'
HTEN receive;
write(ch)
END;
BEGIN
receive
END.
abc..cba