resoudre cette exercise svp?ok

الموضوع في 'أرشيف المنتدى التعليمي' بواسطة belgassem2007, بتاريخ ‏20 أفريل 2008.

  1. belgassem2007

    belgassem2007 عضو مميز

    إنضم إلينا في:
    ‏19 أكتوبر 2007
    المشاركات:
    918
    الإعجابات المتلقاة:
    56
      20-04-2008 15:56
    ecrire une marche a suivre qui saisie un entier former de 3 chiffre puis affiche la somme des entierde ces chiffre.aidez moi svp ok??et merci d'avence​
     
  2. gafsi95

    gafsi95 عضو جديد

    إنضم إلينا في:
    ‏23 مارس 2008
    المشاركات:
    20
    الإعجابات المتلقاة:
    4
      20-04-2008 16:58
    :besmellah1:
    je sais pas tu programmes avec quel langage mais je vais te donner la solution en algorithmique et tu dois le traduire après

    n,c,d,u,s : entiers

    début

    répéter
    écrire ("entrer un entier")
    lire(n)
    jusqu'à (n>=100) et(n=<999)

    c <- n/100
    d <- (n/10)-(c*10)
    u <- n-(100*c)-(10*d)
    s <- c+d+u

    écrire ("la somme est:" s)

    fin

    Sinon si ça marche pas et tu programme avec pascal tu peux le faire autrement

    c <- n div 100
    d <- (n div10) mod 10
    u <- n mod 10


     
    1 person likes this.
  3. firemido

    firemido عضو جديد

    إنضم إلينا في:
    ‏6 مارس 2008
    المشاركات:
    13
    الإعجابات المتلقاة:
    5
      20-04-2008 17:59
    une petite rectification lors de la division il faut utiliser la division entiére avec div et mod pour avoir des résultat entier et non pas lopérateur de division "/"
     
  4. gafsi95

    gafsi95 عضو جديد

    إنضم إلينا في:
    ‏23 مارس 2008
    المشاركات:
    20
    الإعجابات المتلقاة:
    4
      21-04-2008 00:37
    Pour Firemido
    ce que tu as dit peut être qu'il est vrai en pascal
    mais en java, C et C++ l'opérateur "/" joue le même rôle que "div" en pascal si ta variable à laquelle tu vas affecter la valeur est de type entier
    et merci pour la remarque​
     
  5. samatchi

    samatchi عضو جديد

    إنضم إلينا في:
    ‏3 نوفمبر 2007
    المشاركات:
    26
    الإعجابات المتلقاة:
    6
      21-04-2008 00:46
    Program exercice ;
    Var n,A,B,C,S :integer ;
    Begin
    Writeln (‘donner la valeur de n’) ;
    Readln(n) ;
    A :=n div 100 ;
    B :=(n mod 100) div 10 ;
    C :=(n mod 100) mod 10 ;
    S :=A + B +C ;
    Writeln (‘la somme est ‘,S) ;
    Readln ;
    End.
     

مشاركة هذه الصفحة

جاري تحميل الصفحة...