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

Version imprimable

30/12/2012, 20h55
Naindev

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

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.
30/12/2012, 21h16
droggo

Xeo,

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

Si elles existent, c'est bien pour qu'on les utilise.
30/12/2012, 21h23
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.
31/12/2012, 11h59
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.

;)
31/12/2012, 13h14
droggo

Mio,

Citation:

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

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.

31/12/2012, 16h21
droggo

Joe,

Citation:

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.
02/01/2013, 22h26
Naindev

Citation:

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

Citation:

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.
03/01/2013, 18h56
Alcatîz

L'exemple 14 de ce cours montre comment référencer un caractère particulier dans une chaîne. ;)
18/01/2013, 22h09
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;

Citation:

Envoyé par Naindev

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:

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.

@+

12/06/2013, 14h42
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.
12/06/2013, 16h21
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.

@+
13/06/2013, 09h58
batyann811
Citation:

Envoyé par Naindev

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:

1 2 3 4 5 program Affiche_10000; begin WriteLn('une phrase 10000 fois sans utiliser de boucle...'); end.
26/06/2013, 18h03
ALT

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

:dehors:

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