Maple/Programmeren

Lussen

Voorbeelden van geprogrammeerde lussen:

a:=500:
 for t from 1 to 100 by 2 do
  a:=a+t;
 od:
a;

$\!3000$

>for i in {1,2,3,9} do
  i**2;
 od;

$\!1$

$\!4$

$\!9$

$\!81$

> b:=0:
  t:=1:
  while b<5 do
   printf("Het getal %a is priem: %a. \n",b,isprime(b));
   b:=b+t;
  od:

$Het\,getal\,0\,is\,priem:\,false.$

$Het\,getal\,1\,is\,priem:\,false.$

$Het\,getal\,2\,is\,priem:\,true.$

$Het\,getal\,3\,is\,priem:\,true.$

$Het\,getal\,4\,is\,priem:\,false.$

Procedures

>GeefVolgendPriemgetal:=proc(f);
     g:=f+1;
 
     while (not(isprime(g))) do
       g:=g+1;
     od;
 
     return(g); 
 end proc;

Warning, `g` is implicitly declared local to procedure `GeefVolgendPriemgetal`

>GeefVolgendPriemgetal(23)

29

Deze functie berekent het volgende priemgetal, en doet hetzelfde als de standaard beschikbare functie nextprime(f).