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.

[droggo]

Voe,

Retour du leitmotiv : papier + crayon, et résous le problème manuellement, en notant bien comment tu fais.

Tu verras que ton programme ne marche pas, et tu devrais voir également pourquoi il ne marche pas.

[miliassouma6600]

si il marche mais de la façon notée au dessus (déja c'est pas ma solution ) mais j'ai vu qu'il vaut mieux introduire un tableau dont les indices sont des lettres [a..z] :ça sera une solution trè facile( aussi celle la n'est pas la mienne :d'après bac théorik sc exp de l'année précédente nr)

[krachik]

si il marche mais de la façon notée au dessus (déja c'est pas ma solution )

Deja que ce code ne peut pas compiler a vu d'oeil mais en plus il est loin de sortir ce que tu presente comme sortie ,
Ou alors tu as dû mal recopier le code

mais j'ai vu qu'il vaut mieux introduire un tableau dont les indices sont des lettres [a..z] :ça sera une solution très facile( aussi celle la n'est pas la mienne :d'après bac théorik sc exp de l'année précédente nr)

Alors quelle solution est la tienne? tu peux soit tester les solutions dont tu parles et voir si ça marche ou etablir toi même un algorithme, dans tous les cas ça reste du classique, et même un recherche sur le forum devrait te donner des idées aussi

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