Dans un deuxième exemple nous nous proposons de calculer le quotient et les reste de la division de M par N (M et N entiers, N non nul).
La division euclidienne de M par N donne:
M = Q*N + R avec 0 £ R < N (Q: Quotient; R: Reste)
respectivement
M DIV N = Q + R DIV N, car le quotient entier R DIV N = 0,
et
R = M - Q*N.
On obtient sans peine le programme Turbo-Pascal suivant:
PROGRAM Modulo;
USES Crt;
VAR M, N,
Quotient, Reste: Integer;
BEGIN
ClrScr;
Write( 'M = ' ); Readln( M );
Write( 'N = ' ); Readln( N );
Quotient := M DIV N;
Reste := M - Quotient*N;
Writeln( 'Quotient = ', Quotient );
Writeln( 'Reste = ', Reste )
END. {-- Modulo}
En Turbo-Pascal l'effet-net du programme Modulo est représenté par la valeur de la fonction standard MOD appliquée sur les opérandes M et N.
TERMES TECHNIQUES
• MOD
© Aflo Informatique , 2003-2004