[TPW] procedure pour remplir un tableau

xmaster2216 -  
 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

GeniusBrain Messages postés 121 Date d'inscription   Statut Membre Dernière intervention   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
melle
 
comment avez vs fait une lecture ds la procedure "c pas interdi"!!!!
0