Remplissage tableau au hazard
Résolu
pascalo
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
pascalo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
pascalo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
voici l'énoncé:
On se propose de remplir aléatoirement un tableau T de n (5<n<50) entiers de l'intervalle [a, b] où a<b, deux entiers saisis par l'utilisateur.
et puis mon travail:
program random;
uses wincrt;
type
tab=Array[1..100]of integer;
var
T:tab;
a,b,i,n :integer;
begin
repeat
writeln('saisir le nbre des cases');
readln(n);
until n in [6..49];
writeln('saisir un entier');
readln(a);
repeat
writeln('saisir un entier');
readln(b);
until b>a;
for i:=1 to n do
begin
T[i] := a+ random(b-a+1);
writeln('T[',i,'] =',T[i]);
end;
end.
=> le programme me détecte une erreur au niveau de la ligne ou s'est écrit Random...j'ai pas compris ce qui ne va pas...help plz ,merci d'avance :))
voici l'énoncé:
On se propose de remplir aléatoirement un tableau T de n (5<n<50) entiers de l'intervalle [a, b] où a<b, deux entiers saisis par l'utilisateur.
et puis mon travail:
program random;
uses wincrt;
type
tab=Array[1..100]of integer;
var
T:tab;
a,b,i,n :integer;
begin
repeat
writeln('saisir le nbre des cases');
readln(n);
until n in [6..49];
writeln('saisir un entier');
readln(a);
repeat
writeln('saisir un entier');
readln(b);
until b>a;
for i:=1 to n do
begin
T[i] := a+ random(b-a+1);
writeln('T[',i,'] =',T[i]);
end;
end.
=> le programme me détecte une erreur au niveau de la ligne ou s'est écrit Random...j'ai pas compris ce qui ne va pas...help plz ,merci d'avance :))
A voir également:
- Remplissage tableau au hazard
- Tableau word - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Tableau croisé dynamique - Guide
- Imprimer tableau excel sur une page - Guide
