Inhoudsopgave
Advertenties
WHILE...DO...END
298
Deze code vraagt om een positieve waarde voor ZIJDEN,
als aanpassing op een eerder programma in dit
hoofdstuk.
Voorbeeld:
EXPORT ZIJDEN;
EXPORT GETSIDES()
BEGIN
REPEAT
INPUT(ZIJDEN,"Zijden van een
dobbelsteen","N = ","Voer aantal zijden
in",2);;
UNTIL ZIJDEN>0;
END;
Syntaxis: WHILE test DO opdrachten END;
Hiermee wordt test geëvalueerd. Als resultaat waar is
(niet 0), worden opdrachten uitgevoerd en herhaald.
Voorbeeld: een perfect getal is een getal dat gelijk is aan
de som van zijn delers. Zo is bijvoorbeeld 6 een perfect
getal omdat 6 = 1+2+3. Deze functie retourneert waar
als het argument een perfect getal is.
Voorbeeld:
EXPORT ISPERFECT(n)
BEGIN
LOCAL d, som;
2
d;
1
som;
WHILE som < = n AND d < n DO
IF irem(n,d)==0 THEN
som+d
END;
d+1 d;
END;
som;
Programmeren
Advertenties
Inhoudsopgave
