Vraag & Antwoord

Programmeren

Programatje in modula2.

Hallo, Volgend heb ik geprogrameerd mbv modula alleen doet mijn programma gewoon niets hoe komt dat? [code:1:988eb48f02]MODULE proeftera; <* NOOPTIMIZE + *> FROM IO IMPORT RdChar, WrChar, WrStr, RdStr, WrLn, RdCard, WrCard, RdInt, WrInt, RdReal, WrReal, RdBool, WrBool; PROCEDURE telop; VAR vector1: ARRAY[1..3] OF INTEGER; vector2: ARRAY[1..3] OF INTEGER; vector3: ARRAY[1..3] OF INTEGER; a,i,b: INTEGER; PROCEDURE telop; VAR i,a: INTEGER; BEGIN FOR i:=1 TO a DO a:=vector1[i]; b:=vector3[i]; vector3[i]:=a+b; END END telop; BEGIN; WrStr("geed me de dimensie"); WrStr("geef me de eerste vector"); WrStr("x: "); WrLn; WrStr("y: "); WrLn; WrStr("z: "); telop; WrStr("de nieuwe vector is"); FOR i:=1 TO 3 DO WrInt(vector3[i],0); END; END telop; END proeftera. [/code:1:988eb48f02] Groeten. dank bij voorbaat.

0 antwoorden

    Beantwoord deze vraag

    Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

    Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.