Discussion :

[zymohydrolyse]

Bonjour à vous tous. Je dois écrire une procédure qui retourne l’histogramme en pourcentages d'un tableau de répartitions t'en n catégories.
J'ai écris ça :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
const nmax=1000;
type tableaunombres=array[1..nmax] of real;
 
 
procedure entreetableau(var t: tableaunombres; var n:integer);
var i: integer;
begin
write('Entrez le nombre de données : ');
readln(n);
for i:=1 to n do
  begin
    write(' La ',i,' ème donnée est: ');
    readln(t[i]);
  end;
end;
 
 
procedure normalisepourcentage(var t: tableaunombres; n:integer;var pourcent:tableaunombres);
var i:integer;c:real;
begin
c:=0;
for i:=1 to n do
    c:=c+t[i];
for i:=1 to n do
  pourcent[i]:=100*(t[i])/c;
end;
 
 
procedure histogramme(s:string;var t,pourcent:tableaunombres; n:integer);
var i,r,k:integer;w:char;
begin
for i:=1 to n do
t[i]:=pourcent[i];
for i:=1 to n do
  begin
    r:=trunc(t[i]);
    ord(s[0]):=r;
    for k:=1 to r do
    s[k]:=*;{erreur}
  end;
end;
 
 
var t,pourcent:tableaunombres; n,i:integer; c:real; s:string;
begin
entreetableau(t,n);
normalisepourcentage(t,n,pourcent);
histogramme(s,t,pourcent,n);
for i:=1 to n do
writeln(i,' ',s,' ',t[i]:10:1);
readln;
end.

et il me met illegal expression (là ou j'ai écrit en gras rouge) quand je compile.
Or je croyais qu'on pouvait mettre n'importe quel caractère dans une chaine.
Donc j'attends vos lumières.
merci

[droggo]

Hoe,

et il me met illegal expression (là ou j'ai écrit en gras rouge) quand je compile.
Or je croyais qu'on pouvait mettre n'importe quel caractère dans une chaine.
Donc j'attends vos lumières.
merci

Oui, mais en Pascal, une chaîne ou un caractère s'écrivent entre deux simples quotes:

Code :

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

s[k]:='*';

[zymohydrolyse]

Merci ça y est je n'ai plus de problème de compilation mais quand je lance la procédure il m'affiche le numéro de cellule du tableau le pourcentage mais pas la chaine s.
Des suggestions?

[droggo]

Bie,

En gérant ta chaine comme tu le fais (la ligne qui posait problème), le programme ne voit pas que tu ajoutes des caractères à cette chaine (il ne met pas la longueur à jour), et c'est donc comme si tu pissais dans un violon pour en sortir des sons de flûte.

[zymohydrolyse]

Et donc t'as des suggestions ?
En fait je pensais que ça allait parce que je donne une longueur r à la chaine et ensuite je remplace les éléments jusqu'à r par * (enfin en tout cas c'est ce que je crois avoir programmé). Partant de là je ne vois pas où ça pèche donc si tu peux m'aider merci d'avance.

[krachik]

Bonjour

Ily a quand même un autre truc qui va pas dans ton code:

Code :

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

ord(s[0]):=r;

Et concernant ce que disait droggo, tu gères mal la chaine qui doit contenir les étoiles

Code :

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

1
2
3
4
 
histogramme(s,t,pourcent,n);
for i:=1 to n do
       writeln(i,' ',s,' ',t[i]:10:1);

Sachant que ta chaine s n'est traité que localement et tu ne fais pas d'affichage dans la procédure, tu devrais plutôt penser à un tableau de chaines de caractères.

Cordialement

[zymohydrolyse]

Bonjour
J'ai modifié la fin du programme mais il m'affiche toujours pas la chaine.
De plus, maintenant il faut que j'appuie sur entrée après chaque ligne dans le programme pour qu'il m'affiche la suivante : je ne comprends pas pourquoi.
Enfin, on m'obligé à travailler avec une chaine.
Merci pour votre aide.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
const nmax=1000;
type tableaunombres=array[1..nmax] of real;
 
 
procedure entreetableau(var t: tableaunombres; var n:integer);
var i: integer;
begin
write('Entrez le nombre de données : ');
readln(n);
for i:=1 to n do
  begin
    write(' La ',i,' ème donnée est: ');
    readln(t[i]);
  end;
end;
 
 
procedure normalisepourcentage(var t: tableaunombres; n:integer;var pourcent:tableaunombres);
var i:integer;c:real;
begin
c:=0;
for i:=1 to n do
    c:=c+t[i];
for i:=1 to n do
  pourcent[i]:=100*(t[i])/c;
end;
 
 
procedure histogramme(s:string;var pourcent:tableaunombres;i:integer);
var k:integer;
begin
ord(s[0]):=trunc(pourcent[i]);
for k:=1 to ord(s[0]) do
s[k]:='*';
end;
 
 
var t,pourcent:tableaunombres; n,i:integer; c:real; s:string;
begin
entreetableau(t,n);
normalisepourcentage(t,n,pourcent);
for i:=1 to n do
begin
histogramme(s,pourcent,i);
writeln(i,' ',s,' ',pourcent[i]:10:1);
readln;
end;
end.

[darrylsite]

for i:=1 to n do
begin
histogramme(s,pourcent,i);
writeln(i,' ',s,' ',pourcent[i]:10:1);
readln;
end;

Tu as mis readln dans la boucle 'for', c'est pour ça qu'il faut que tu appuie sur Entrez à chaque fois. Pour retourner à la normale, il te suffit de mettre readln apres la boucle for.

Code :

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

1
2
3
4
5
6
7
 
for i:=1 to n do
begin
histogramme(s,pourcent,i);
writeln(i,' ',s,' ',pourcent[i]:10:1);
end;
readln;