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