- - - - CENAPAD-MGCO

A seguir: Recursividade: Fatorial Acima: Exemplos de Uso Anterior: Subrotinas

Divisão com Resto

[
  DIV:: *[
         x,y: integer;
           X ? (x,y) ->
             quot, rem: integer;
             quot := 0;
             rem := x;
             *[
                rem >= y -> rem := rem - y;
                            quot := quot + 1
              ];
             X!(quot, rem)
         ]
//
  X:: USER
]