Pascal 帕斯卡中带对角线的正方形

我已经编写了一个应用程序，它将写入带对角线的正方形（从左侧）-输出：

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

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

首次申请代码：

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.

现在我必须创建一个应用程序，它将用对角线（从右侧）写入正方形-输出：

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

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

但我不知道该怎么写。你能帮我吗

---

谢谢：）

定义+符号位置的代码行是：

IF r =  s THEN WRITE(‘+‘) 

这是您唯一需要更改的行：

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

---

我想这应该行得通，用Pascal编译器检查一下，大约10年没有使用过：）

定义+符号位置的代码行是：

IF r =  s THEN WRITE(‘+‘) 

这是您唯一需要更改的行：

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

---

我想这应该行得通，用Pascal编译器检查一下，大约10年没有使用过：）

定义+符号位置的代码行是：

IF r =  s THEN WRITE(‘+‘) 

这是您唯一需要更改的行：

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

---

我想这应该行得通，用Pascal编译器检查一下，大约10年没有使用过：）

定义+符号位置的代码行是：

IF r =  s THEN WRITE(‘+‘) 

这是您唯一需要更改的行：

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

---

我想这应该行得通，用Pascal编译器检查一下，已经10年没用了：）

你能发布你的第一个应用程序的代码吗？@demonplus我已经发布了，你确定你自己写了第一个代码吗？还是你的老师给了你，问你是否可以修改你能发布你的第一个应用程序的代码吗？@demonplus我已经发布了。你确定你自己写了第一个代码吗？还是你的老师给了你，问你是否可以修改你能发布你的第一个应用程序的代码吗？@demonplus我已经发布了。你确定你自己写了第一个代码吗？还是你的老师给了你，问你是否可以修改你能发布你的第一个应用程序的代码吗？@demonplus我已经发布了。你确定你自己写了第一个代码吗？还是你的老师给了你，问你是否可以修改