Tableau en pascal
Résolu
lowpien
Messages postés
41
Date d'inscription
Statut
Membre
Dernière intervention
-
hamditch100 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
hamditch100 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai besoin d'aide, pouvez vous m'envoyer des exemples de creation de tableau en pascal,
j'essaye de creer un tableau 5 par 5, comprenant seulement les chiffres de 1 a 3 qui sont donner alleatoirement par le system, en plus le program doit afficher combien de fois chaque chiffres apparait dans le tableau.
Merci pour les exemples et une petite explication pour que je comprenne mieux.
j'ai besoin d'aide, pouvez vous m'envoyer des exemples de creation de tableau en pascal,
j'essaye de creer un tableau 5 par 5, comprenant seulement les chiffres de 1 a 3 qui sont donner alleatoirement par le system, en plus le program doit afficher combien de fois chaque chiffres apparait dans le tableau.
Merci pour les exemples et une petite explication pour que je comprenne mieux.
A voir également:
- Pascal tableau
- Turbo pascal - Télécharger - Édition & Programmation
- Tableau word - Guide
- Tableau ascii - Guide
- My pascal - Télécharger - Édition & Programmation
- Trier un tableau excel - Guide
4 réponses
program lowpien; type tableau=array[1..5,1..5] of integer; suivi=array[1..3] 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 5 do for j:=1 to 5 do begin n:=random(3)+1; // random(3) renvoie un nombre entre 0 et 2 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 3 do writeln('occurence des ',n,' dans le tableau = ',s[n]); readln; end.
En effet on a : Et on pourrait améliorer avec
program aff_inverse ;
uses wincrt;
type
tab=array[1..100]of integer;
var
i,j,n,pas:integer ;
t:tab;
begin
writeln('saisir la taille du tableau');
readln(n);
for j:=1 to n do
begin
writeln('saisir l element n ',j );
readln(t[j]);
end;
for i:=n downto 1 do
begin
write(t[i],'/');
end;
end.
merci beaucoup de mettre vos opinions ^^