Topic A: S1

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

Topic A: S1

Berichtdoor Aushim » 04 dec 2007, 21:20

Hieronder vinden jullie een van de oplossingen van S1:Bla

Code: Selecteer alles

MODULE S1;

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

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

BEGIN
    WrLn;

      WrStr("Hoeveel keer wil je het woord 'bla' zien verschijnen?");
      WrLn;
      x := RdCard();

    FOR i := 1 TO x DO
      WrStr("bla");
      WrLn;
    END;

END S1.

Terug naar “Oefeningen gemaakt in de klas”

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 1 gast

cron