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对角线方形

1 个答案: