السلام عليكم ^^
هذا الحل
Procedure QR(Entrée A,B:Entiers; Sortie R,Q:Entiers) Début Si B ≤ 0 Alors Ecrire("Erreur: B doit être strictement positif") Sinon Si A < 0 Alors Ecrire("Erreur: A doit être positif") Sinon R ← A Q ← 0 Tant que R ≥ B Faire R ← R - B Q ← Q + 1 Fait FinSi FinSi Fin b. Dans cette solution, on utilisera la base décimale (10) pour afficher le résultat.
E, Res, Base, Q, R : entiers Procedure QR(A,B,R,Q: Entiers) Debut Répéter Ecrire ("Donner un entier positif:") Lire (E) Jusqu'à ( E ≥ 0 ) Ecrire("La conversion en binaire de ",E) Res ← 0 Base ← 1 Tant que E > 0 Faire QR(E, 2, R, Q) Res ← R * Base + Res Base ← Base * 10 E ← Q Fait Ecrire("est :", Res) Fin