A voir également:
- Procedure remplir tableau algorithme
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Organigramme a remplir word - Guide
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. ✓ - Forum Jeux vidéo
- Le point d'entrée de procédure bcrypt hash ✓ - Forum Logiciels
3 réponses
GeniusBrain
Messages postés
121
Date d'inscription
lundi 25 mai 2009
Statut
Membre
Dernière intervention
18 août 2016
47
1 févr. 2010 à 19:54
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