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

Turbo Pascal Discussion :

Opérations sur un tableau de chaînes de caractères


Sujet :

Turbo Pascal

  1. #1
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    Avril 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 24
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : Avril 2017
    Messages : 9
    Points : 4
    Points
    4
    Par défaut Opérations sur un tableau de chaînes de caractères
    Bonjour.
    J'ai essayé de faire les questions 1 et 2 en pascal mais je n'ai pas réussi. SVP j'ai beson de votre aide pour que mon programme fonctionne.

    Nom : pascal 001.jpg
Affichages : 1789
Taille : 149,7 Ko
    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
    program palindrome_complet;
    uses wincrt;
    type     tab=array[1..50]of string;
    var
    t:tab;n:integer;i:integer;
     
     
    procedure saisie( n:integer);
    begin
    repeat
    writeln('saisir taille du tableau');
    readln(n);
    until (n>=2) and (n<=50);
     
    end;
     
    procedure chargement(var t:tab;n:integer);
    begin
    for i:=1 to n do
    repeat
    writeln('saisir t[',i,']');
    readln(t[i]);
    until (length(t[i]<=5));
    end;
     
    procedure elimin(var t:tab;n:integer);
    begin
    var j:=integer;
    for i:=1 to n do
    t1:=t[i];j:=1;
    repeat
    if not upcase(t1[j]) in ['A'..'z'] then
      begin
      delete(t[i],j,1);
      j:=j+1;
      end
      else
      j:=j+1;
    until (j=length(t[i]);
    end;
     
    begin
    saisie(n);
    chargement(t);
    elimin(t);
    for i:=1 to n do
    writeln(t[i]);
    end.

  2. #2
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    Avril 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 24
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : Avril 2017
    Messages : 9
    Points : 4
    Points
    4
    Par défaut
    Bon j'ai trouvé quelques fautes mais c'est encore insuffisant :
    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
    program palindrome_complet;
    uses wincrt;
    type     tab=array[1..50]of string;
    var
    t:tab;n:integer;i:integer;
     
     
    procedure saisie( n:integer);
    begin
    repeat
    writeln('saisir taille du tableau');
    readln(n);
    until (n>=2) and (n<=50);
     
    end;
     
    procedure chargement(var t:tab;n:integer);
    begin
    for i:=1 to n do
    repeat
    writeln('saisir t[',i,']');
    readln(t[i]);
    until (length(t[i])=5);
    end;
     
    procedure elimin(var t:tab;n:integer);
     
    var
     
    j:integer;
    t1:tab;  
    begin
    for i:=1 to n do
    t1:=t[i];
    j:=1;
    repeat
    if not upcase(t1[j]) in ['A'..'z'] then
      begin
      delete(t[i],j,1);
      j:=j+1;
      end
      else
      j:=j+1;
    until (j=length(t[i]);
    end;
     
    begin
    saisie(n);
    chargement(t);
    elimin(t);
    for i:=1 to n do
    writeln(t[i]);
    end.

  3. #3
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 058
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 058
    Points : 15 339
    Points
    15 339
    Billets dans le blog
    9
    Par défaut
    Bonjour !

    Il faudrait remplacer

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    for i:=1 to n do
    t1:=t[i];
    par

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    for i:=1 to n do
    begin
      t1:=t[i];
      ...
    end;
    Mon site personnel consacré à MSEide+MSEgui : msegui.net

  4. #4
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    Avril 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 24
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : Avril 2017
    Messages : 9
    Points : 4
    Points
    4
    Par défaut
    encore ne marche pas

  5. #5
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 058
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 058
    Points : 15 339
    Points
    15 339
    Billets dans le blog
    9
    Par défaut
    Citation Envoyé par erico552 Voir le message
    encore ne marche pas
    Peut-on voir la modification que vous avez faite ?
    Mon site personnel consacré à MSEide+MSEgui : msegui.net

Discussions similaires

  1. ToAsciiEx, comment cela marche ?
    Par mikyfpc dans le forum C++Builder
    Réponses: 2
    Dernier message: 17/02/2004, 22h39
  2. [MFC] list box : comment ça marche
    Par runn2 dans le forum MFC
    Réponses: 4
    Dernier message: 28/01/2004, 13h36
  3. [SYNEDIT] -> Comment ça marche ?
    Par MaTHieU_ dans le forum C++Builder
    Réponses: 2
    Dernier message: 18/01/2004, 20h11
  4. [TP][Turbo Vision] comment ça marche ??
    Par Costello dans le forum Turbo Pascal
    Réponses: 7
    Dernier message: 05/08/2003, 01h24
  5. [update][req. imbriquee] Comment ca marche ??
    Par terziann dans le forum Langage SQL
    Réponses: 3
    Dernier message: 11/07/2003, 13h51

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