Discussion :

[degseb]

bonjour,

je suis tout nouveau sur le forum j'espère d'ailleurs ne pas m'être trompé de topic...

je dois faire un programme pour mes cours qui demande à l'utilisteur un chaine de caractère et qui va ensuite compter celle-ci et donner les occurence des caractère présent dans la chaine...

exemple:

abcadg

2:a
1:b
1c
etc....

mais mon programme doit aussi prendre les majuscule comment faire

voila mon ébauche .... merci d'aider un homme déssepré µ

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
program Sceance7ChaineCaractere;
 
{scéance 7.F - Chaine caractère}
 
{réalisation Sebastien Degreve - http://online.freezee.org}
 
uses crt;
 
{-------------DECLARATION-----------------}
 
var mot:string[50];
    i:byte;
    compteura:integer
 
{---------------PROGRAMME-------------------}
 
begin
  writeln;
  writeln('entrez un chaine de caractères (max50)');
  read(mot);
  for i := 1 to Length(mot) do
    Write(mot[i], '-');
  readln();
  readln();
  readln;
end.

pour le moment il met juste des tiret entre les caractère (pour pouvoir le tester uniquement )

je vais quand même pas faire un compteur pour toute les charc. de l'alphabet??

[M.Dlb]

je vais quand même pas faire un compteur pour toute les charc. de l'alphabet??

Et si ! Comment veux-tu faire autrement ? Allez il y a 26 lettres dans l'alphabet, un tableau de 26 cases suffira

[degseb]

oui mais comment tu fais pour compter dans un tableau ??

moi je pensais a des compteur type integer

genre

Code :

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

1
2
3
4
5
6
7
var compteura:integer;
 
case lettre of
 
'a': begin 
compteura+1
end;

il y pas une autre méthode ? le tableau on fait comment ? car je débute en pascal merci de me concacrer du temp !!

[droggo]

Fie,

Il faut faire un tableau d'entiers, indexé par les caractères eux-mêmes:

Code :

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

type tableau = array ['a'..'z'] of integer;

sans oublier de passer tous les caractères en minuscules, ni de supprimer les signes diacritiques (accents, cédille...), à moins qu'on te demande de compter ceux-là à part.

[degseb]

Merci bcp ... juste encore une petite question si un caractère reviens plusieur fois ... comme faire dans le tableau pour qu'il sache qu'il y ai eut plusieur comptage oui je sais je suis un zéro

[Loceka]

Simple, tu initialises ton tableau à zero et tu fais t[ta_lettre] = t[ta_lettre] + 1;.

[degseb]

ok merci ca fonctionne maintenant !!