pascal - 帕斯卡对角线正方形

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(‘+‘) 

我认为这应该可行，请检查 Pascal 编译器，大约 10 年没有使用它了 :)