Addition du nombre d'apparitions d'un chiffre dans un tableau
Bonjour,
j'ai un petit problème de calcul.
je veut savoir combien de fois le nombre x apparait dans mon tableau, mais je fais une erreur a un endroit dans mon programme.
si quelqu'un peut m'aider et commenter si possible mais erreurs cela serait grandement apprécier car je débute en programmation et je veut savoir ce que je fait.
Présentement tableau apparait 10X10 et il me dit:
Il y a 0 nombre1
""
""
""
Il y a 0 nombre 8.
Code:
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
| program Tableau;
type
tab1=array [1..10, 1..10] OF integer ; //10 lignes= i, 10 colonnes= j
tab2=array [1..8] of integer; //classer nombre
var
b,c,d,e,f,g,h,j,k,n:integer;
a:tab1;
i:tab2;
begin
randomize;
for d:=1 to 10 do
begin
for e:=1 to 10 do
begin
k:=random(8)+1;
a[d,e]:=k; // k = valeur de l'élément du tableau
write(a[d,e],' ');
end;
writeln; // retour a la ligne pour faire la boucle des 10 lignes
end;
read;
begin
i[1]:=0; i[2]:=0; i[3]:=0; i[4]:=0;
i[5]:=0; i[6]:=0; i[7]:=0; i[8]:=0; // chaque nombre commence à 0
i[k]:=n;
n:=n+1;
end;
for j:= 1 to 8 do
begin
f:=f+1;
writeln('Il y a ',i[n],' nombre ',f);
end;
readln;
end. |
Merci:D
