Algorithme : déterminer si A est divisible par B

[invitecba70031]

- Détermination si A est divisible par B. Avec A et B des entiers positifs

Algorithme         disvision;
   Var    A,B,mod: entiers;

  Debut 
     
       ecrire("donnez A et B"); 
     
       Repeter
                lire(A); lire(B);
     jusqu'a(N<0);
    
     SI  AmodB=0
          Alors ecrire("est divisible");
    SINON ecrire(" non dividible");
    finsi;
  Fin.

MON ALGORITHME EST T-IL JUSTE SVP ?
-----

[Ikhar84]

Repeter
(...)
jusqu'a(N<0);

Pourquoi "répeter", et d'où sort N ?

[invitecba70031]

Algorithme disvision;
Var A,B: entiers;

Debut

ecrire("donnez A et B");


lire(A); lire(B);


SI AmodB=0
Alors ecrire("est divisible");
SINON ecrire(" non dividible");
finsi;
Fin.

ET COMME CA ?

[CM63]

Ben ça marche ou ça marche pas? Avec un programme aussi simple tu n'es pas capable de voir par toi-même si il est bon?

[A voir en vidéo sur Futura]

[umfred]

je pense qu'il faut mettre des espaces: A mod B sinon ça ne fait qu'un mot pas une opération ^^

[abracadabra75]

Bonjour.
Algorithme mal foutu...
Tout y est confondu, saisie des nombres, affichage, calcul....
Commence par clarifier et séparer les fonctions et tu y verras plus clair...