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:

$Hetgetal0ispriem:false.$

$Hetgetal1ispriem:false.$

$Hetgetal2ispriem:true.$

$Hetgetal3ispriem:true.$

$Hetgetal4ispriem: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).