Divisions

exercice 1

Ecrire un programme qui effectue la division de deux entiers par des soustractions successives.

exercice 2

Faire une variante de ce programme en utilisant la boucle repeat...until

Remarque :
comme on peut le constater, le programme ci-dessus produit des résultats erronés lorsqu'on entre une valeur du dividende inférieure à celle du diviseur. Ceci est dû au fait que les instructions des boucles repeat...until sont exécutées au moins une fois, ce qui n'est pas le cas des boucles while. Pour obtenir le même résultat, nous sommes alors obligés d'utiliser une instruction if pour tester le cas où le diviseur est supérieur au dividende.

en peut executer ce code avec tp7 ou dev pascal ou free pascal


program division;
uses crt;
var
dividende, diviseur, quotient: integer;
begin
clrscr;
quotient := 0;

writeln('Entrez le dividende');
readln(dividende);
writeln('Entrez le diviseur');
readln(diviseur);
while (dividende > diviseur) do
begin
dividende := dividende - diviseur;
quotient := quotient + 1;
end;
writeln('Le quotient est : ', quotient);
writeln('Le reste est : ', dividende);

readln;
end.