WINAK

Posted: **Fri Oct 14, 2005 6:43 pm**

OFF-LINE

Posted: **Fri Oct 14, 2005 9:49 pm**

OlÃƒÆ’Ã‚Â© merci hÃƒÆ’Ã‚Â© kristof
Kzal da dees weekend direct eens nader bekijken se ...
God ik hoop da de frank (voor de wouter eurocent) rap valt zne

Posted: **Fri Oct 14, 2005 10:21 pm**

En oefening 15? Das ook nog de enigste die ik mis

Maar das weer zo'n saaie oefening.

Posted: **Sat Oct 15, 2005 12:09 am**

oei euh ja dies ontsnapt

hmm normaal haddek die tog gemaakt ze, kzal morge wellis zien, kben nu te moe.

Posted: **Sun Oct 16, 2005 2:20 pm**

da zijn me toch een stel kut oefeninge ze maat!

btw in uw oef 7 gebruikt ge uw variabele 'index3' niet dus die mag er uit.

Posted: **Sun Oct 16, 2005 3:30 pm**

Arawn wrote:da zijn me toch een stel kut oefeninge ze maat!

btw in uw oef 7 gebruikt ge uw variabele 'index3' niet dus die mag er uit.

FOR index3 := 1 TO n+1-index DO

Posted: **Sun Oct 16, 2005 6:11 pm**

Great, thnx!

Posted: **Sun Oct 16, 2005 7:53 pm**

Ik heb ze allemaal ondertussen, en er zitten inderdaad veel kutoefeningen bij.

Posted: **Sun Oct 16, 2005 8:05 pm**

Seg als probeer da te compilere dan geeft die n fout weer van missing ";"
ook al staat ze der :s

Posted: **Sun Oct 16, 2005 8:39 pm**

lol misschien ergens een woordje verkeerd getypt?

Posted: **Mon Oct 17, 2005 5:43 pm**

NickVE wrote:Seg als probeer da te compilere dan geeft die n fout weer van missing ";"
ook al staat ze der :s

ff storen?

Posted: **Wed Oct 19, 2005 7:12 pm**

Ik heb mijn broncode geupdate met oefening 15 erbij en ook heb ik de tool van die reeks gepost om jullie leven nog gemakkelijker te maken

.

Posted: **Mon Oct 24, 2005 4:06 pm**

Code: Select all

PROCEDURE oef16*; 
    	TYPE 
        	Tabel = ARRAY 100 OF INTEGER; 
        VAR 
     	   getal, index, index2 : INTEGER; 
            rij : Tabel; 
    
		BEGIN 
    	OutExt.Open(); 
    	OutExt.Clear(); 
    	In.Open(); 
    	In.Int(getal); 
    	index:= -1; 
    	REPEAT 
     	   INC(index); 
       	 rij[index] := getal MOD 2; 
        	getal := getal DIV 2;    
   	 UNTIL (getal = 0); 
    	FOR index2 := 7 TO 0 BY -1 DO       <-----------
       	 OutExt.Int(rij[index2], 0); 
   	 END; 
    	OutExt.Ln(); 
END oef16;

Ik heb het van 7 TO 0 gedaan zodat je altijd alle 0-etjes en 1-tjes ervoor ook altijd krijgt (dus altijd 8x een nul of ÃƒÆ’Ã‚Â©ÃƒÆ’Ã‚Â©n en niet enkel de nodige waarden...).

Sorry

Posted: **Mon Oct 24, 2005 5:47 pm**

gooooooooooooo sammy

nog maar 6 oefeninge van reeks 2 nu

Posted: **Mon Oct 24, 2005 5:48 pm**

Lekker veel werk nog

WINAK

[Prog] Broncode Reeks 1

Broncode Reeks 1