[TPW] procedure pour remplir un tableau [Fermé]

Signaler
-
 melle -
Bonjour,
comment je peux remplir un tableau T de type tab en creer une procedure
c'est tres urgent svp
j'att vos reponses
merci

3 réponses

Messages postés
123
Date d'inscription
lundi 25 mai 2009
Statut
Membre
Dernière intervention
18 août 2016
47
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.
8
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60639 internautes nous ont dit merci ce mois-ci

comment avez vs fait une lecture ds la procedure "c pas interdi"!!!!
merci beaucoup
cet exemple m'a facilité beaucoup de choses
j'ai tout compris
merci!!!!!!!!!!
Messages postés
123
Date d'inscription
lundi 25 mai 2009
Statut
Membre
Dernière intervention
18 août 2016
47
C'est bien!
De rien ;)