Répondre à la discussion
Affichage des résultats 1 à 5 sur 5

programme sur pascal



  1. #1
    ahmed13tamboura

    programme sur pascal

    bonjour,
    j'ai écrit ce programme sur pascal ( il doit inverser un entier composé de 3 chiffres par exemple si n=123 alors i=321) mais sa fonctionne pas , j'obtient un autre résultat , aidez moi svp à trouver l'erreur

    program inversion;
    uses wincrt;
    var n,i:integer;
    begin
    readln(n);
    i:=(n div 100) + (n mod 10)*100 +(n mod 100)*10 -( n mod 10) ;
    write(i);
    end.

    -----


  2. Publicité
  3. #2
    PA5CAL

    Re : programme sur pascal

    Bonjour

    « (n div 100) » transforme les centaines en unités. C'est bon.
    « (n mod 10)*100 » transforme les unités en centaines. C'est bon.

    En revanche, la partie « +(n mod 100)*10 -( n mod 10) » est incorrecte. Le « *10 » est en trop.
    Dernière modification par PA5CAL ; 25/10/2012 à 16h22.

  4. #3
    ahmed13tamboura

    Re : programme sur pascal

    ah oui , merci , le programme devient :
    program inversion;
    uses wincrt;
    var n,i:integer;
    begin
    readln(n);
    i:=(n div 100) + (n mod 10)*100 +(n mod 100) -( n mod 10) ;
    write(i);
    end.

  5. #4
    PA5CAL

    Re : programme sur pascal

    Un conseil pour la prochaine fois : afin d'augmenter la lisibilité du code, passe en mode avancé (bouton en bas à droite de la fenêtre d'édition) et utilise le bouton « # » afin d'insérer des balises [CODE]...[/CODE] autour de ton code source. Pense également à indenter et à aérer ce dernier.

    Ça pourrait donner ceci :
    Code:
    program inversion;
    
    uses wincrt;
    
    var n,i : integer;
    
    begin
        readln(n);
        i := (n div 100) + (n mod 10)*100 + (n mod 100) - (n mod 10) ;
        write(i);
    end.
    Dernière modification par PA5CAL ; 25/10/2012 à 16h28.

  6. #5
    ahmed13tamboura

    Re : programme sur pascal

    merci beaucoup

  7. A voir en vidéo sur Futura

Sur le même thème :

Discussions similaires

  1. programme en pascal
    Par ahmed13tamboura dans le forum Programmation et langages, Algorithmique
    Réponses: 7
    Dernier message: 07/08/2012, 16h29
  2. programme pascal
    Par unknownperson dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 14/05/2010, 20h55
  3. aide programme pascal
    Par ge2007 dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 24/03/2010, 22h45
  4. écrire un programme pascal
    Par biologiste-cqa dans le forum Logiciel - Software - Open Source
    Réponses: 4
    Dernier message: 12/03/2008, 09h13
  5. demande pour un programme en turbo pascal
    Par philo978 dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 11/12/2006, 14h17