廣場帕斯卡爾對角線

Question

我寫這將斜方編寫一個應用程序（從左邊） - 輸出：

+ * * * * 
* + * * * 
* * + * * 
* * * + * 
* * * * + 

代碼的第一個應用程序：

PROGRAM cycle4; 
USES CRT; 
VAR a,r,s:INTEGER; 
BEGIN 
    CLRSCR;  
    WRITE (‘Enter the number of lines :‘) ; 
    READLN(a); 
    FOR r:= 1 TO a DO 
    BEGIN 
    FOR s:=1 TO a DO 
     IF r = s THEN WRITE(‘+‘) 
     ELSE WRITE(‘*‘) ; 
     WRITELN; 
    END; 
    READLN; 
END. 

現在我有創建一個應用程序，它會寫對角線（從右側） - 輸出：

* * * * + 
* * * + * 
* * + * * 
* + * * * 
+ * * * * 

但我不知道我怎麼寫它。你可以幫我嗎？

謝謝:)

Answer 1

的代碼行定義+符號的位置是：

IF r = s THEN WRITE(‘+‘) 

，這是需要改變的唯一行：

IF r + s = a + 1 THEN WRITE(‘+‘) 

我認爲這應該工作，檢查與帕斯卡爾編譯器，有沒有使用它約10年:)