A voir également:
- Tirer le max d'1 tableau en assembleur
- Tableau word - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Tableau croisé dynamique - Guide
- Imprimer tableau excel sur une page - Guide
2 réponses
Salut,
Je te mets l'algorithme, à toi de l'adapter.
Compteur = taille du tableau
NB_max=-1;
On lit le tableau élément par élément.
On compare l'élément avec NB_max, si l'élément est plus grand alors NB_max= l'élément.
On décrémente Compteur.
Si Compteur != 0 alors on revient ligne 3 (lecture élément par élément).
Et ici NB_max représente le maximum du tableau.
J'espère que ceci t'aidera, tu as juste à trouver les mnémoniques à employer.
Cordialement
Je te mets l'algorithme, à toi de l'adapter.
Compteur = taille du tableau
NB_max=-1;
On lit le tableau élément par élément.
On compare l'élément avec NB_max, si l'élément est plus grand alors NB_max= l'élément.
On décrémente Compteur.
Si Compteur != 0 alors on revient ligne 3 (lecture élément par élément).
Et ici NB_max représente le maximum du tableau.
J'espère que ceci t'aidera, tu as juste à trouver les mnémoniques à employer.
Cordialement
voila c l'adaptation en pascal j'esper que ca vous aide 1 pe
program maximum;
uses wincrt ;
type
tab = array [1..30] of integer ;
var
t : tab;
n,i: integer;
max : integer;
begin
repeat
writeln ('donner le nombre des cases de tableau');
readln ( n ) ;
until n in [2..20];
for i := 1 to n do
begin
writeln ('donner la valeur ',i,' du tableau');
readln (t[i]);
end;
max := t[1];
for i := 2 to n do
if t[i]> max then
max := (t[i]);
writeln('la valeur maximum est: ',max);
end.
program maximum;
uses wincrt ;
type
tab = array [1..30] of integer ;
var
t : tab;
n,i: integer;
max : integer;
begin
repeat
writeln ('donner le nombre des cases de tableau');
readln ( n ) ;
until n in [2..20];
for i := 1 to n do
begin
writeln ('donner la valeur ',i,' du tableau');
readln (t[i]);
end;
max := t[1];
for i := 2 to n do
if t[i]> max then
max := (t[i]);
writeln('la valeur maximum est: ',max);
end.
