Bonjour,
Je devais réaliser l'algorithme "division euclidienne dans Z". Lorsque je lance l'algorithme ci-dessous, Algobox affiche un message d'erreur. Savez-vous pourquoi ? Au passage, est-ce que mon algorithme est correct ?
VARIABLES
2 divisé EST_DU_TYPE NOMBRE
3 diviseur EST_DU_TYPE NOMBRE
4 quotient EST_DU_TYPE NOMBRE
5 reste EST_DU_TYPE NOMBRE
6 multiple EST_DU_TYPE NOMBRE
7 DEBUT_ALGORITHME
8 AFFICHER "Division euclidienne de"
9 LIRE divisé
10 AFFICHER "par"
11 LIRE diviseur
12 multiple PREND_LA_VALEUR abs(diviseur)
13 quotient PREND_LA_VALEUR (diviséxdiviseur)/(abs(diviséxdiviseur))
14 TANT_QUE (multiple<=(abs(divisé)-abs(diviseur))) FAIRE
15 DEBUT_TANT_QUE
16 multiple PREND_LA_VALEUR multiple+abs(diviseur)
17 quotient PREND_LA_VALEUR quotient+(diviséxdiviseur)/(abs(diviséxdiviseur))
18 FIN_TANT_QUE
19 reste PREND_LA_VALEUR divisé-((divisé/(abs(divisé)))xmultiple)
20 AFFICHER "Division euclidienne de "
21 AFFICHER divisé
22 AFFICHER " par "
23 AFFICHER diviseur
24 AFFICHER " : "
25 AFFICHER divisé
26 AFFICHER "="
27 AFFICHER diviseur
28 AFFICHER "x"
29 AFFICHER quotient
30 AFFICHERCALCUL divisé/(abs(divisé))
31 AFFICHERCALCUL abs(reste)
32 FIN_ALGORITHME
-----