Exercices avec chaînes de caractères sans utiliser les fonctions standard du langage

[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 ici ? 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,

Envoyé par 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.

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 :

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,

Envoyé par EtherOS

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]

Envoyé par droggo

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...

Envoyé par 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.

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 :

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