🚀 go-pugleaf

Joris Janssens <joris.janssens@xhtml.be> wrote:
>> Ok, kheb al iets gevonden
>>
>> PROGRAM priemgetallen;
>> VAR
>>   getal : INTEGER;
>> BEGIN
>>   FOR getal := 1 TO 100 DO
>>   BEGIN
>>   if (getal mod 2=1) and (getal mod 3 >= 1) and (getal mod 4 >= 1) and
>> (getal mod 5 >= 1) and (getal mod 6 >=1)
>>       and (getal mod 7 >= 1) and (getal mod 8 >=1) and (getal mod 9 >= 1)
>>   then
>>
>>        writeln(getal)
>>   END
>> END.
>>
>> Maar is dit niet wat omslachtig ? Ik vind het precies zoveel code voor een
>> simpel ding. Is m'n logica juist ?

> Ik zou eerder zeggen: "Is dat alles??? Een for-loop en een if-then?!" Ik
> denk niet dat je iets simpeler kan vinden.

Toch is dit enorm slechte programmeerstijl! De argeloze gebruiker gaat
op een dag de priemgetallen tussen 1 en 200 willen, en is gezien!

VEEL beter (t is (gelukkig)! lang geleden dat ik pascal moeten spreken
heb, dus t is euhm, niet helemaal correct denk ik):

worteln := sqrt(n);
priem := true;
i:=0;

repeat
	i:=i+1;
	if (not n mod i = 0) then
		priem := false;
until (not priem) or (i>= worteln)


Frank