Discussion :

[Naindev]

Bonsoir,

Je suis en train de m'attarder sur une série d'exercices qui travaillent avec des chaînes de caractères, et le plus souvent avec les caractères de cette chaîne.

pour le moment, j'aimerais que vous m'aidiez, si possible, afin de lire les caractères, un à un, d'une chaîne de caractères, sans utiliser les fonctions présentes dans la FAQ ? Par la suite, si je me vois à d'autres difficultés, c'est pour éviter de créer d'autres topics que ce thread est nommé ainsi.

Merci d'avance.

[droggo]

Xeo,

Pourquoi ne veux-tu pas utiliser les fonctions standards de Pascal ?

Si elles existent, c'est bien pour qu'on les utilise.

[Naindev]

Car nous sommes censés travailler qu'à partir ce qui nous a été transmis en cours, et ces fonctions ne remplissent pas ce critère.

[Alcatîz]

Bonjour,

Pour lire successivement tous les caractères d'une chaîne de type string, il faut d'abord récupérer sa longueur, qui est stockée dans le 1er octet (d'indice 0). Ensuite, tu crées une boucle dont le compteur va de 1 à la longueur ; à chaque itération, chaine[compteur] est le caractère à lire.

[droggo]

Mio,

Bonjour,

Pour lire successivement tous les caractères d'une chaîne de type string, il faut d'abord récupérer sa longueur, qui est stockée dans le 1er octet (d'indice 0). Ensuite, tu crées une boucle dont le compteur va de 1 à la longueur ; à chaque itération, chaine[compteur] est le caractère à lire.

Attention, ce n'est vrai que pour les String de TP, et les ShortString pour les compilateurs plus récents (Delphi, FreePascal).

Mais je trouve cet exercice bizarre, sauf si le prof a donné des indications pour trouver la longueur, sinon, un débutant n'a aucun moyen de la trouver, sauf à passer pas mal de temps à débuger, ce qui n'est pas évident quand on débute (déjà, il faut savoir de quoi il s'agit, et comment faire).

[EtherOS]

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
Uses Crt;
 
Const BUFFER = 100;
 
Function  Mychar (Var Arraystring : string[BUFFER]; Initpos, size: Longint):string[BUFFER] ;
Var  count : Longint;
      T : array[1..BUFFER] of String[1];
 
Begin
              Mychar := '';      
 
              For count:= Initpos To Initpos+size -1 Do
 
              Begin
                    T[count-Initpos + 1] := Arraystring[count];
 
                End;
 
                Mychar := T;
End;  
 
Var arraychar: string[BUFFER];
 
Begin
             Textbackground(1); 
             clrscr;
             Textcolor(10);
             writeln('Entrer une chaine de caracteres :');
             Textcolor(11);
             readln(arraychar);
             Textcolor(10);
             writeln('le deuxieme caractere est :',Mychar(arraychar,2,1));
             readln;
End.

[droggo]

Joe,

Uses Crt;

Const BUFFER = 100;

Function Mychar (Var Arraystring : string[BUFFER]; Initpos, size: Longint):string[BUFFER] ;
Var count : Longint;
T : array[1..BUFFER] of String[1];

Begin
Mychar := '';

For count:= Initpos To Initpos+size -1 Do

Begin
T[count-Initpos + 1] := Arraystring[count];

End;

Mychar := T;
End;

Var arraychar: string[BUFFER];

Begin
Textbackground(1);
clrscr;
Textcolor(10);
writeln('Entrer une chaine de caracteres :');
Textcolor(11);
readln(arraychar);
Textcolor(10);
writeln('le deuxieme caractere est :',Mychar(arraychar,2,1));
readln;
End.

Prends l'habitude de formater ton code, c'est fait pour faciliter la lecture (et donc la maintenance ...)

Ceci étant dit :

1 - Le but du forum n'est pas de fournir du code "clé en mains", mais d'aider à progresser

2 - ton code est plus compliqué que nécessaire.

3 - Pour afficher ton code avec la mise en surbrillance (couleur, ...), il faut l'encadrer avec les balises [*code] [*/code] [sans les *, qui ne sont là que pour les invalider, et non avec les balises [QUOTE], ce qui t'a obligé à faire manuellement cette mise en couleurs.

[Naindev]

Mais je trouve cet exercice bizarre, sauf si le prof a donné des indications pour trouver la longueur, [...]

Aucun. En parlant du prof, c'est vrai que ces exercices sont bizarres. Je dis ça car je ne trouve aucune utilité d'un exercice qui demande à afficher une phrase 10000 fois sans utiliser de boucle...

Bonjour,

Pour lire successivement tous les caractères d'une chaîne de type string, il faut d'abord récupérer sa longueur, qui est stockée dans le 1er octet (d'indice 0). Ensuite, tu crées une boucle dont le compteur va de 1 à la longueur ; à chaque itération, chaine[compteur] est le caractère à lire.

J'en profite pour te demander comment procéder pour soutirer les informations stockées dans tel ou tel octet d'un objet.

Merci à vous.

[Alcatîz]

L'exemple 14 de ce cours montre comment référencer un caractère particulier dans une chaîne.

[EpiTouille]

voici un exemple de la fonction qui trouve la taille de la chaine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
function my_strlen(s : string) : byte;
begin
   my_strlen := ord(s[0]);
end;

[e-ric]

Aucun. En parlant du prof, c'est vrai que ces exercices sont bizarres. Je dis ça car je ne trouve aucune utilité d'un exercice qui demande à afficher une phrase 10000 fois sans utiliser de boucle...

Salut (un peu tardivement)

Est-ce que la solution n'était pas du type récursif ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure Affiche(const s: String; const NbFois: Integer);
 
  procedure RecurseAffiche(nb : integer);
  begin
    if nb < NbFois then
      WriteLn(s)
    else
      RecurseAffiche(nb+1);
   end;
begin
  RecurseAffiche(1);
End;

A part prendre des risques avec la pile, effectivement cette approche n'a pas beaucoup d'intérêt. J'ai atténué la récursivité avec une procédure imbriquée.


@+

[droggo]

Noi,

Probablement pas de récursion demandée, s'adressant à des débutants.

D'ailleurs, et je le répète pour la Nième fois : quand on peut facilement le faire (et c'est presque toujours le cas), il faut éviter la récursivité, consommatrice de ressources (temps et mémoire).

Et je rappelle une de mes phobies à ce sujet : quand je vois l'implémentation d'une fonction de calcul de factorielle utilisant la récursivité, je sors de mes gonds.

[e-ric]

Ouais, j'avoue que c'est abusif. Mais dans l'exercice je vois pas trop comment on peut faire autrement (... sans utiliser de boucles ...). Je sais aussi que les profs de fac adorent la récursivité...

Celle-ci rend parfois service malgré tout. Pour la factorielle, c'est effectivement inutile. Mais dérécursifier une fonction n'est pas toujours aisé, il faut en général gérer soit même une pile.

@+

[batyann811]

Je dis ça car je ne trouve aucune utilité d'un exercice qui demande à afficher une phrase 10000 fois sans utiliser de boucle...

Voilà un programme qui affiche une phrase 10000 fois sans utiliser de boucle... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
program Affiche_10000;
begin
  WriteLn('une phrase 10000 fois sans utiliser de boucle...');
end.

[ALT]

Répéter 1000 fois sans boucle ?
Euh...
Avec un Goto ?



Ah oui, c'est tout de même une boucle, bien que ça n'en porte pas le nom.