Discussion :

[miliassouma6600]

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.

[EpiTouille]

Tu peux te servir de copy :

par exemple :

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
program chaine;
uses crt;
var b,c :integer;
a:string;
d:array[1..30] of string;
 
begin
writeln('Rentrez un mot');
readln(a);
b := length(a);
 
for b := 1 to length(a) do begin
d[b] := copy(a,b,1); {Tu copy dans la chaine 'a' le 'b' caractere et tu le met dans un tableau}
 
writeln(d[b]);
 
end;
readln;
end.

[droggo]

Dai,

Tu peux te servir de copy :

par exemple :

program chaine;
uses crt;
var b,c :integer;
a:string;
d:array[1..30] of string;

begin
writeln('Rentrez un mot');
readln(a);
b := length(a);

for b := 1 to length(a) do begin
d[b] := copy(a,b,1); {Tu copy dans la chaine 'a' le 'b' caractere et tu le met dans un tableau}

writeln(d[b]);

end;
readln;
end.

Et ça te conduit où ?