Question Matrice, Random , Delphie Pascal

Fermé
stemariej Messages postés 8 Date d'inscription mercredi 24 décembre 2008 Statut Membre Dernière intervention 6 mai 2010 - 24 déc. 2008 à 07:59
KX Messages postés 16752 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 août 2024 - 1 janv. 2009 à 17:40
Bonjour,

Je dois résoudre un problème en Pascal , Je dois créer un tableau 10 X 10 qui s'affiche à l'écran avec des nombres de 1 à 8 qui sortent de façon aléatoire (fonction Random). De plus, je dois créer un deuxième tableau qui va montrer combien de fois chacun des nombres sort dans le premier tableau ... après plusieurs heures, je n'y arrive toujours pas ... J'arrive à calculer mais je n'arrive pas à faire afficher mon premier tableau

Voici mon programme :

program Matrice

type tableau=array[1..10,1..10] of integer;
suivi=array[1..8] of integer;

procedure remplir(var t:tableau; var s:suivi);
var i,j,n:integer;
begin
s[1]:=0; s[2]:=0; s[3]:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin
n:=random(8)+1; // random(9) renvoie un nombre entre 0 et 8 d'où le +1
t[i,j]:=n;
inc(s[n]);
end;
end;

var s:suivi; t:tableau; n:integer;
begin
randomize; // réinitialise le générateur de nombre aléatoire
remplir(t,s);
for n:=1 to 8 do
writeln('occurence des ',n,' dans le tableau = ',s[n]);
readln;
end.

Merci de m'aider
A voir également:

1 réponse

KX Messages postés 16752 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 août 2024 3 019
1 janv. 2009 à 17:40
Tu as juste oublié un ; après program Matrice...
2