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 年没有使用它了:)

Pascal 中带对角线的正方形

Square with diagonal in Pascal

pascal

turbo-pascal