IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Pascal Discussion :

Différence entre deux chaînes


Sujet :

Pascal

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    113
    Détails du profil
    Informations personnelles :
    Âge : 36
    Localisation : Tunisie

    Informations forums :
    Inscription : Avril 2007
    Messages : 113
    Par défaut Différence entre deux chaînes
    Je viens de faire un programme qui calcule la différence entre deux chiffres saisis en type string mais il se bloque dans l'exécution.

    Voici mon travail :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
     
    program somme;
    uses wincrt;
    var
    aa,ch1,ch2,a:string;
    procedure lecture (var aa:string);
    var
    n,e:integer;
    begin
    repeat
    readln(aa);
    val(aa,n,e);
    until (e=0)
    end;
     
    procedure ajout(var ch1 :string;var ch2:string);
    begin
    if length(ch1) < length(ch2) then repeat ch1:= '0'+ch1 until length(ch1) = length(ch2) 
    else begin    repeat  ch2 := '0' + ch2  until  length(ch1) = length(ch2) end;
    end;
     
     
    function diff (ch1, ch2:string ):string;
    var
     
    c,chdif:string;
    n1,n2,i,e1,e2,n,aux:integer;
    begin
    chdif:='';
    aux:=0;
     
    for i := length(ch1) downto 1 do begin
     
     
    val(ch1[i],n1,e1);
    val(ch2[i],n2,e2);
     
    n2:=n2 + aux ;
     
    if (n1>n2) then begin n:=n1 - n2; 
     aux :=0 ;
      end
     
    else begin n:= (n1  + 10 ) - n2   ;
     aux :=1    ;
     
      end;
    str(n,c);
     
    chdif:=c+chdif;
    end;
    diff:=chdif;
    end;
     
    begin
    lecture(ch1);
    lecture(ch2);
    ajout(ch1,ch2);
    a:=diff(ch1,ch2);
    end.

  2. #2
    Rédacteur/Modérateur
    Avatar de M.Dlb
    Inscrit en
    Avril 2002
    Messages
    2 466
    Détails du profil
    Informations personnelles :
    Âge : 40

    Informations forums :
    Inscription : Avril 2002
    Messages : 2 466
    Par défaut
    Pourrais-tu faire un effort pour parler français ? Il me semble qu'on t'a déjà fait plusieurs fois la réflexion...

  3. #3
    Membre Expert
    Avatar de krachik
    Inscrit en
    Décembre 2004
    Messages
    1 964
    Détails du profil
    Informations forums :
    Inscription : Décembre 2004
    Messages : 1 964
    Par défaut
    Bonjour
    Citation Envoyé par gadalla
    Je viens de faire un programme qui calcule la différence entre deux chiffres saisis en type string mais il se bloque dans l'exécution.
    Donc tu as une erreur d'éxecution tu veux dire ? En mettant bien forme ton code ou en l'indentant tu y veras clair dans ce que tu as écris. ,sans oublier d'ajouter des commentaires dans le code si néccessaire
    @+

  4. #4
    ALT
    ALT est déconnecté
    Membre Expert
    Avatar de ALT
    Homme Profil pro
    Retraité
    Inscrit en
    Octobre 2002
    Messages
    1 373
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Indre et Loire (Centre)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Service public

    Informations forums :
    Inscription : Octobre 2002
    Messages : 1 373
    Par défaut
    Et une erreur d'exécution est normalement accompagnée d'un code d'erreur & d'un message qui permet de comprendre ce qu'il s'est passé.
    Alors regarde de ce côté & tu auras peut-être ta réponse (que nous ne pouvons pas deviner à moins d'analyser précisément chaque instruction de ton code...)

Discussions similaires

  1. Calculer la "différence" entre deux chaînes
    Par mister3957 dans le forum PostgreSQL
    Réponses: 4
    Dernier message: 22/08/2011, 22h51
  2. [access] différence entre deux champs
    Par loutente dans le forum Langage SQL
    Réponses: 1
    Dernier message: 17/08/2005, 15h57
  3. Différence entre deux dates
    Par pittzz dans le forum Oracle
    Réponses: 5
    Dernier message: 18/07/2005, 12h24
  4. Comment obtenir la différence entre deux dates ?
    Par jbat dans le forum Langage
    Réponses: 4
    Dernier message: 02/06/2005, 09h34
  5. Résultats erroné différence entre deux types TDateTime
    Par Alghero dans le forum C++Builder
    Réponses: 6
    Dernier message: 12/03/2004, 17h03

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo