A voir également:
- Remplir un tableau en algorithme
- Procedure remplir tableau algorithme - Meilleures réponses
- Remplissage d'un tableau en algorithme - Meilleures réponses
- Les tableaux de l'algorithmique - Forum - Programmation
- [TPW] procedure pour remplir un tableau - Forum - Programmation
- Algorithme qui permet de remplir une matrice aleatoirement - Forum - Pascal
- Remplissage d'un tableau et sa répartition dans d'autres tableau - Forum - Algorithmes / Méthodes
- Les tableaux de l'algorithme ✓ - Forum - Programmation
3 réponses
GeniusBrain
1 févr. 2010 à 19:54
- Messages postés
- 121
- Date d'inscription
- lundi 25 mai 2009
- Statut
- Membre
- Dernière intervention
- 18 août 2016
1 févr. 2010 à 19:54
voici un exemple :
_______________
program tableau;
type tab=array[1..10] of integer;
procedure remplir(n:integer; var t:tab)
var i:integer;
begin
for i:=1 to n do
begin
writeln('Donnez un entier dans la case ',i,' :');
readln(t[i]);
end;
end;
var t:tab; n,i:integer;
begin
writeln('Donnez la taille de tableau :');
readln(n);
remplir(n,t);
for i:=1 to n do
writeln('t[',i,'] = ',t[i]);
end.
_______________
Bonne chance.
_______________
program tableau;
type tab=array[1..10] of integer;
procedure remplir(n:integer; var t:tab)
var i:integer;
begin
for i:=1 to n do
begin
writeln('Donnez un entier dans la case ',i,' :');
readln(t[i]);
end;
end;
var t:tab; n,i:integer;
begin
writeln('Donnez la taille de tableau :');
readln(n);
remplir(n,t);
for i:=1 to n do
writeln('t[',i,'] = ',t[i]);
end.
_______________
Bonne chance.
2 mars 2014 à 21:06