J'ai besoin d'un programme Pascal qui lit une chaîne et affiche le nombre de répétitions de chaque caractère de la chaîne.
Il lit
jaeajj
Il écrit
j=3
a=2
e=1
J'ai essayé mais le mien donne comme résultat
j=3
a=2
e=1
a=2
j=3
j=3
Mon essai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program jbvfr;
uses wincrt;
var ch: string;
i,j,r: integer;
begin
readln(ch);
for i:=1 to length(ch) do
begin
r:=0;
repeat
if ch[i]=ch[j] then r:=r+1;
writeln(ch[i],'=',r);until(;
end;
end.