Topic A: S2

Aushim
Master in de forumwetenschappen
Master in de forumwetenschappen
Berichten: 2628
Lid geworden op: 23 nov 2007, 23:02
Locatie: Haren
Contacteer:

Topic A: S2

Berichtdoor Aushim » 04 dec 2007, 21:43

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.

Terug naar “Oefeningen gemaakt in de klas”

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 1 gast

cron