Exercice corrigé: La plus grande somme de chiffres dans un tableau
2 participants
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1
Exercice corrigé: La plus grande somme de chiffres dans un tableau
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.
É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.
methodiX- Admin
-
Nombre de messages : 1260
Localisation : Le couloir de l'école polytechnique de Tunis
Réputation : 68
Points : 7044
Date d'inscription : 22/03/2007
Feuille de personnage
Capacité linguistique:
(1000/1000)
Re: Exercice corrigé: La plus grande somme de chiffres dans un tableau
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- Admin
-
Nombre de messages : 1260
Localisation : Le couloir de l'école polytechnique de Tunis
Réputation : 68
Points : 7044
Date d'inscription : 22/03/2007
Feuille de personnage
Capacité linguistique:
(1000/1000)
Re: Exercice corrigé: La plus grande somme de chiffres dans un tableau
merci pour le partage,
je le trouve un exercice intéressant pour les élèves
merci encore pour la solution de l'exercice
je le trouve un exercice intéressant pour les élèves
merci encore pour la solution de l'exercice
naoufelbz- Entier Naturel
-
Nombre de messages : 8
Localisation : Tunis
Réputation : 1
Points : 5133
Date d'inscription : 17/04/2010
Re: Exercice corrigé: La plus grande somme de chiffres dans un tableau
naoufelbz a écrit: merci pour le partage,
je le trouve un exercice intéressant pour les élèves
merci encore pour la solution de l'exercice
Salut Naoufel,
Tu es de la section Informatique, ou autre? Quelle classe?
A++
methodiX- Admin
-
Nombre de messages : 1260
Localisation : Le couloir de l'école polytechnique de Tunis
Réputation : 68
Points : 7044
Date d'inscription : 22/03/2007
Feuille de personnage
Capacité linguistique:
(1000/1000)
naoufelbz- Entier Naturel
-
Nombre de messages : 8
Localisation : Tunis
Réputation : 1
Points : 5133
Date d'inscription : 17/04/2010
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum