Topic A: S2

[Aushim]

Hieronder vinden jullie een van de oplossingen van S2: Arrow

Code: Selecteer alles

MODULE S2;

    FROM IO IMPORT WrStr, WrLn, RdCard, WrCard, RdInt, WrInt;     (* import general procedures *)

    VAR x, i, j:CARDINAL;            (* variable-declarations *)

BEGIN
    WrLn;

      WrStr("Hoe groot moet het langste pijltje zijn?");
      WrLn;
      x := RdCard();

    FOR i := 1 TO x DO
       FOR j := 1 TO i DO
        WrStr("*");
        END;
   WrLn;
    END;
    FOR i := x TO 1 BY -1 DO
       FOR j := 1 TO i DO
        WrStr("*");
        END;
   WrLn;
    END;
END S2.