Connexion

Somme des chiffres d'un nombre

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 10/05/2007 10:58:04 et initié par Shakan972 [Liste]
Date de mise à jour : 09/11/2007 15:09:17
Vue : 15332
Catégorie(s) : Maths
Langages dispo pour ce code :
- Python
- Python
- C
- VB6
- C
- Delphi 5
- Delphi 5
- ObjectiveCaml
- ActionScript Flash
- PHP 3, PHP 4, PHP 5
- Perl
- VB6, VBA
- VB 2005
- Voir tous les langages pour ce code snippet

Proposer ce code dans un autre langage

Ajouter aux favoris

Langage : Delphi 5
Date ajout : 20/05/2007
Posté par japee [Liste]

function SumOfDigits(Number: Int64): Integer;
var Tmp: Extended;
begin
  Number := Abs(Number);
  Result := 0;
  while Number <> 0 do
  begin
    Tmp := Number / 10;
    Inc(Result, Round(Frac(Tmp) * 10));
    Number := Trunc(Tmp);
  end;
end;

Remarque :
Limite du paramètre d'entrée : étendue du Int64 (64 bits, signé).

Snippets en rapport avec : Calcul, Chiffre, Nombre, Somme

19/05/2008 - Calcul nombre de jours ouvrés entre deux dates

10/01/2008 - Savoir si une valeur est plus ou moins égale à une autre, à autant près

15/12/2007 - Test Nombre Premier

02/09/2007 - Split selon le nombre max de caractères voulu, en tenant compte des retours chariot et des chaînes non-sécables

18/07/2007 - Tri de nombres

09/04/2007 - Savoir si un nombre est le multiple d'un autre

27/02/2007 - Obtenir le cardinal (anglais) d'un nombre

19/10/2006 - Avoir le factoriel d'un nombre

17/10/2006 - Calcul d'un montant Hors Taxes et Toutes Taxes Comprises

12/04/2006 - N'autoriser que la Saisie de chiffres dans un champ texte

Codes sources en rapport avec : Calcul, Chiffre, Nombre, Somme

{JAVA / J2EE} ADDITION DE DEUX NOMBRES RÉELS "COMME A LA MATERNELLE"
Le programme prend deux réels positifs en arguments et les additionne, en faisant l'operation sur le...

{Visual Basic, VB6, VB.NET, VB 2005} CHIFFRE EN LETTRE FONCTION
Une petite fonction simlpe pour transformer un chiffre en lettre. Exemple: "15193" >> dix ...

{Delphi} CONVERSION LITTÉRALE D'UN NOMBRE ENTIER OU FLOTTANT
Affiche en toutes lettres un nombre avec ou sans virgule, avec son unité (monétaire, mesure, etc...)...

{Javascript / DHTML} FORMATER UN NOMBRE, FAÇON NUMBER FORMAT DE PHP
Formate un nombre pour l'affichage (retourne une chaîne représentant un nombre formaté) Permet de c...

{PHP} NOMBRE_PREMIER
Un petit programme qui liste des nombres premiers jusqu'a $limit limite...

{Visual Basic, VB6, VB.NET, VB 2005} UN PETIT PROGRAMME DE CALCUL DES NOMBRE PREMIERS
qu'on vous appuiez sur calculer il va mettre les nombre dans un fichier texte dans C: appeler premie...

{Visual Basic, VB6, VB.NET, VB 2005} CONVERTIR DES CHIFFRES EN LETTRES AVEC OU SANS DÉCIMALE ET/OU MONÉTAIRE
je sais qu'il en existe déjà plusieurs mais celui-ci n'utilise qu'une boucle de traitement (centai...

{Visual Basic, VB6, VB.NET, VB 2005} BIGMATH - OPERATIONS SUR DES TRES GRANDS NOMBRES
ajoute ce module dans ton projet et tu pourra utiliser les fonctions suivantes sur des nombres conte...

{Python} NOMBRE MYSTERE
Bon c'est un programme qui genere un nombre aleatoire. Ok c'est basique mais c'est tres commenter do...

{Visual Basic, VB6, VB.NET, VB 2005} ECRIRE DES NOMBRES EN TOUTES LETTRES (MULTI-LANGUAGE)
ce code permet de transformer un nombre (double) en son interpretation en toutes lettres (string). ...

Les Snippets

Rechercher :

Par langages :

Par Catégorie

Compteurs

Somme des chiffres d'un nombre

Snippets en rapport avec : Calcul, Chiffre, Nombre, Somme

Codes sources en rapport avec : Calcul, Chiffre, Nombre, Somme