Oefening pijltje tekenen (arrow Topic A S2)

Jaarvak op 7 studiepunten
Forumregels
Misschien werd je vraag al vorig jaar gesteld? Gebruik dus eerst de zoekoptie!

Er zijn formularia/samenvattingen aanwezig op de volgende link: viewtopic.php?f=19&t=93
dudewtf
heeft den knop voor het posten van berichten gevonden!
heeft den knop voor het posten van berichten gevonden!
Berichten: 6
Lid geworden op: 18 mei 2009, 21:48

Oefening pijltje tekenen (arrow Topic A S2)

Berichtdoor dudewtf » 22 jun 2009, 14:27

Jow,

Waarom werkt deze code niet?

Code: Selecteer alles

MODULE arrow;

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

    VAR x,i,j:CARDINAL;

BEGIN
    WrStr("Please give me a number");
    WrLn;
    x := RdCard();

   i:=1;
   j:=0;
   WHILE (i<(x+1)) DO
      REPEAT
        WrStr("*");
        j:=j+1
      UNTIL (j=i);
        i:=i+1;
        j:=0;
        WrLn;
   END;

   i:=x-1


   WHILE (i>0) DO
      REPEAT
        WrStr("*");
        j:=j+1;
      UNTIL (j=i);
        i:=i-1;
        j:=0;
        WrLn;
   END;

   WrLn;

END arrow.
dirk
Regelmatig forumgebruiker
Regelmatig forumgebruiker
Berichten: 76
Lid geworden op: 05 jan 2009, 13:20

Re: Oefening pijltje tekenen (arrow Topic A S2)

Berichtdoor dirk » 22 jun 2009, 14:37

Een ; vergeten bij i:=i+1 ... en nog ene bij j:=j+1 denkik
Laatst gewijzigd door dirk op 22 jun 2009, 14:40, 1 keer totaal gewijzigd.
dudewtf
heeft den knop voor het posten van berichten gevonden!
heeft den knop voor het posten van berichten gevonden!
Berichten: 6
Lid geworden op: 18 mei 2009, 21:48

Re: Oefening pijltje tekenen (arrow Topic A S2)

Berichtdoor dudewtf » 22 jun 2009, 14:39

Ahzo, mercikes...
Gebruikersavatar
AdamCooman
The IRW God
The IRW God
Berichten: 2376
Lid geworden op: 28 nov 2007, 18:19
Locatie: Aalst
Contacteer:

Re: Oefening pijltje tekenen (arrow Topic A S2)

Berichtdoor AdamCooman » 22 jun 2009, 14:48

by the way, als ge da compileert dan zegt hij da ook wel hoor
AdamCooman The IRW God
Als een link niet meer werkt, bezoek mijn site om het bestand te vinden
Afbeelding

Mooiste avatar: AdamCooman
Beste moderator: AdamCooman
Beerend
IRW-FAN!
IRW-FAN!
Berichten: 313
Lid geworden op: 30 sep 2008, 18:15
Locatie: Mechelen
Contacteer:

Re: Oefening pijltje tekenen (arrow Topic A S2)

Berichtdoor Beerend » 22 jun 2009, 15:33

Dit is volgens mij de kortste oplossing. Om 1 of andere reden heb ik hier integers ipv cardinals gebruikt.

Code: Selecteer alles

MODULE arrow;
<* WOFF + *>        (* No Warnings *)
<* NOOPTIMIZE + *>  (* For the Debugger *)

FROM IO IMPORT WrStr, WrLn,RdInt;     (* import general procedures *)
VAR x,i1,i2:INTEGER;
BEGIN
   WrLn;
   WrStr("Breedte? ");
   x := RdInt();
   WHILE i1 <= 2*x DO
      WrLn;
      FOR i2 := 1 TO x - ABS(i1-x) DO
      WrStr("*");
      END;
      i1 := i1 + 1;
   END;
END arrow.

Terug naar “Informatica”

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 2 gasten

cron