写好的程序总是在屏幕显示上越界并且不会换行

摇摆兔

1. PROGRAM MOVING_TOWER;
   
2. VAR N,K:INTEGER;VAR S:BOOLEAN;
   
3. PROCEDURE TOWER(N:INTEGER;VAR K:INTEGER;VAR S:BOOLEAN);
   
4. VAR L,M:INTEGER;VAR J:INTEGER;VAR T:BOOLEAN;
   
5. BEGIN
   
6.         IF N=0 THEN EXIT;
   
7.         CASE K OF
   
8.                 1:S:=TRUE;
   
9.                 3:S:=FALSE;
   
10.         END;
    
11.         J:=K;T:=S;
    
12.         FOR M:=1 TO 2 DO
    
13.         BEGIN
    
14.                 TOWER(N-1,J,T);
    
15.                 IF S THEN L:=K+1 ELSE L:=K-1;
    
16.                 WRITE(N,':',K,'->',L,' ');
    
17.                 K:=L;
    
18.         END;
    
19.         TOWER(N-1,J,T);
    
20. END;
    
21. BEGIN
    
22.         READLN(N);K:=1;
    
23.         TOWER(N,K,S);
    
24. END.
    

复制代码

不会换行怎么办？

chenyuchih

方法1. 把第16行改成 WRITELN(N,':',K,'->',L,' ');

方法2. 用分行符號 #13#10，把第16行改成 WRITE(N,':',K,'->',L,' '+#13#10);

摇摆兔

chenyuchih 发表于 2018-1-23 17:17
方法1. 把第16行改成 WRITELN(N,':',K,'->',L,' ');

方法2. 用分行符號 #13#10，把第16行改成 WRITE(N,' ...

我的意思是要求光标到了屏幕边上自动换行