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 16760 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 - 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 16760 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 3 020
1 janv. 2009 à 17:40
Tu as juste oublié un ; après program Matrice...
2

Discussions similaires