Discussion :

[sam343]

Bonsoir,

j'ai un devoir a rendre demain et voila deja plusieur heure que je cherche la solution a mon probleme et j'avoue que la je craque :

je dois creer un programme qui ,en autre, calcul la somme des chiffres d'un entier et ceci en utilisant une fonction (fuction)
ex: 123 = 1+2+3=6

j'ai deja commencé comme cela:

function somme(s:integer):integer;
begin somme:=

et la je bloque! si quelqun peut maider svp!!

[PANORAMIC]

C'est un bon début.
Pour terminer, il faut ajouter end;
Mais ça ne compilera pas car il faut mettre une expression à droite de somme := et la terminer par un point-virgule.
Si tu mets somme := s; ça compilera.

Tu ne penses tout de même pas qu'on va faire tes devoirs à ta place ?

[darrylsite]

Pour avoir les differents chiffres, il suffit de diviser successivement par 10 le nombre en question, puis d'additionner les reste des divisions effectuées.
Par exemple, 123=12*10+3
12=1*10+2
1=0*10+1
Ainsi tu as 1, 2 et 3 comme chiffres composant 123.

[Dr.Who]

cadeau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function Somme(const I: integer): integer;
var vI, vR : integer;
begin
  vI := I;
  vR := 0;
  repeat
    inc(vR, vI mod 10);
    vI := vI div 10;
  until vI = 0;
  Somme := vR;
end;