площадь с диагональю в Паскале

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. 

И теперь у меня есть создать приложение, которое будет писать квадрат с диагональю (от правой стороны) - выход:

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

Но я не KNO w как я могу его написать. Вы можете мне помочь?

Спасибо :)

Answer 1

Строка кода, который определяет положение плюсик в том, что:

IF r = s THEN WRITE(‘+‘) 

и это единственная линия, вам нужно изменить:

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

Я думаю, что это должно сработать, проверить с помощью компилятора Pascal, не использовали его около 10 лет :)