Forum INFOMATH
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment : -50%
-50% sur les sacs à dos pour ordinateur ...
Voir le deal
19.99 €
Le deal à ne pas rater :
Coffret dresseur d’élite ETB Pokémon EV06 Mascarade Crépusculaire
56.90 €
Voir le deal

Exercice corrigé: La plus grande somme de chiffres dans un tableau

2 participants

Aller en bas

Exercice corrigé: La plus grande somme de chiffres dans un tableau Empty Exercice corrigé: La plus grande somme de chiffres dans un tableau

Message par methodiX Mar 6 Avr - 11:52

ENONCE

Écrire un programme qui remplit un tableau T de n entiers, chacun contenant au moins 3 chiffres, puis, déterminer le nombre qui a la plus grande somme de chiffres.

Exercice corrigé: La plus grande somme de chiffres dans un tableau Ex_tab10
methodiX
methodiX
Admin
Admin

Masculin
Nombre de messages : 1260
Localisation : Le couloir de l'école polytechnique de Tunis
Réputation : 68
Points : 7014
Date d'inscription : 22/03/2007

Feuille de personnage
Capacité linguistique:
Exercice corrigé: La plus grande somme de chiffres dans un tableau Left_bar_bleue1000/1000Exercice corrigé: La plus grande somme de chiffres dans un tableau Empty_bar_bleue  (1000/1000)

Revenir en haut Aller en bas

Exercice corrigé: La plus grande somme de chiffres dans un tableau Empty Re: Exercice corrigé: La plus grande somme de chiffres dans un tableau

Message par methodiX Mar 6 Avr - 11:54

SOLUTION

Code:
program grandeSomme;
uses wincrt;
type
  TAB = array[1..100] of integer;


procedure saisie(var n:integer;var T: TAB);
var
 i:integer;
begin
  repeat
    write('Taille du tableau = ');
    readln(n);
  until (n in [2..20]);
  for i:=1 to n do
  begin
      repeat
          write('T[',i,'] = ');
          readln(T[i]);       
      until (T[i]>=100);
  end;
end;

function SommeChiffre(x:integer):integer;
var
 ch: string;
 somme,i,m,e:integer;
begin
  str(x,ch);
  somme := 0;
  for i:=1 to length(ch) do
  begin
    val(ch[i],m,e);
    somme := somme + m;
  end;

  sommeChiffre := somme;
end;


function posMax(T:TAB;n:integer):integer;
var
  pmax,i:integer;
begin
  pmax := 1;
  for i:=2 to n do
      if (sommeChiffre(T[pmax]) <  sommeChiffre(T[i])) then
        pmax := i;

  posMax := pmax;
end;


{programme principal}

var
  pmax,n:integer;
  T:TAB;
begin

    saisie(n,T);

    pmax := posMax(T,n);

    writeln('Le nombre ayant la plus grande somme de chiffres: ',T[pmax]);

    writeln('La somme de ses chiffres est: ',sommeChiffre(T[pmax]));

end.
methodiX
methodiX
Admin
Admin

Masculin
Nombre de messages : 1260
Localisation : Le couloir de l'école polytechnique de Tunis
Réputation : 68
Points : 7014
Date d'inscription : 22/03/2007

Feuille de personnage
Capacité linguistique:
Exercice corrigé: La plus grande somme de chiffres dans un tableau Left_bar_bleue1000/1000Exercice corrigé: La plus grande somme de chiffres dans un tableau Empty_bar_bleue  (1000/1000)

Revenir en haut Aller en bas

Exercice corrigé: La plus grande somme de chiffres dans un tableau Empty Re: Exercice corrigé: La plus grande somme de chiffres dans un tableau

Message par naoufelbz Sam 17 Avr - 12:28

Exercice corrigé: La plus grande somme de chiffres dans un tableau Icon_biggrin merci pour le partage,
je le trouve un exercice intéressant pour les élèves
merci encore pour la solution de l'exercice Exercice corrigé: La plus grande somme de chiffres dans un tableau Icon_cheers

naoufelbz
Entier Naturel
Entier Naturel

Masculin
Nombre de messages : 8
Localisation : Tunis
Réputation : 1
Points : 5103
Date d'inscription : 17/04/2010

Revenir en haut Aller en bas

Exercice corrigé: La plus grande somme de chiffres dans un tableau Empty Re: Exercice corrigé: La plus grande somme de chiffres dans un tableau

Message par methodiX Sam 17 Avr - 21:38

naoufelbz a écrit:Exercice corrigé: La plus grande somme de chiffres dans un tableau Icon_biggrin merci pour le partage,
je le trouve un exercice intéressant pour les élèves
merci encore pour la solution de l'exercice Exercice corrigé: La plus grande somme de chiffres dans un tableau Icon_cheers

Salut Naoufel,
Tu es de la section Informatique, ou autre? Quelle classe?

A++
methodiX
methodiX
Admin
Admin

Masculin
Nombre de messages : 1260
Localisation : Le couloir de l'école polytechnique de Tunis
Réputation : 68
Points : 7014
Date d'inscription : 22/03/2007

Feuille de personnage
Capacité linguistique:
Exercice corrigé: La plus grande somme de chiffres dans un tableau Left_bar_bleue1000/1000Exercice corrigé: La plus grande somme de chiffres dans un tableau Empty_bar_bleue  (1000/1000)

Revenir en haut Aller en bas

Exercice corrigé: La plus grande somme de chiffres dans un tableau Empty Re: Exercice corrigé: La plus grande somme de chiffres dans un tableau

Message par naoufelbz Lun 19 Avr - 16:59

oui, 4SI Exercice corrigé: La plus grande somme de chiffres dans un tableau Icon_lol

naoufelbz
Entier Naturel
Entier Naturel

Masculin
Nombre de messages : 8
Localisation : Tunis
Réputation : 1
Points : 5103
Date d'inscription : 17/04/2010

Revenir en haut Aller en bas

Exercice corrigé: La plus grande somme de chiffres dans un tableau Empty Re: Exercice corrigé: La plus grande somme de chiffres dans un tableau

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum