Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

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.

Anoniem
Bert F