帕斯卡中有对角线的正方形

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年:)