Scribd
Importer
29 vues1 page

Arbic

Le document présente une procédure pour convertir un nombre décimal en texte arabe financier, en utilisant des fonctions pour traiter les parties entière et décimale. Il inclut également une méthode pour gérer les grands nombres jusqu'à 9999999999 en les décomposant en milliards, millions, milliers et centaines. Enfin, il fournit une conversion spécifique pour le Dinar Algérien, en tenant compte des formats appropriés pour les valeurs nulles et non nulles.

Transféré par

lyesnate
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd
29 vues1 page

Arbic

Le document présente une procédure pour convertir un nombre décimal en texte arabe financier, en utilisant des fonctions pour traiter les parties entière et décimale. Il inclut également une méthode pour gérer les grands nombres jusqu'à 9999999999 en les décomposant en milliards, millions, milliers et centaines. Enfin, il fournit une conversion spécifique pour le Dinar Algérien, en tenant compte des formats appropriés pour les valeurs nulles et non nulles.

Transféré par

lyesnate
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd

// Fonction principale : Convertir un nombre décimal en texte arabe

PROCÉDURE NombreVersTexteArabeFinancier(monNombre est réel)


partieEntiere est un entier = Trunc(monNombre) partieDecimale est
un entier = Arrondi((monNombre - partieEntiere) * 100) texteEntier
est une chaîne = NombreVersTexteArabeGrand(partieEntiere)
texteDecimal est une chaîne =
NumériqueVersChaîne(partieDecimale) + "/100" RÉSULTAT
texteEntier + " ‫ "ريال و‬+ texteDecimal + " ‫"فقط ال غير‬
Entrer

// Convertit les grands nombres jusqu’à 9999999999 PROCÉDURE


NombreVersTexteArabeGrand(n est un entier) unités est un tableau
de chaînes = ["", " ,"‫ "سبعة‬,"‫ "ستة‬,"‫ "خمسة‬,"‫ "أربعة‬,"‫ "ثالثة‬,"‫ "اثنان‬,"‫واحد‬
‫ "تسعة‬,"‫ ]""ثمانية‬dizaines est un tableau de chaînes = ["", " ,"‫عشرة‬
‫ "تسعون‬,"‫ "ثمانون‬,"‫ "سبعون‬,"‫ "ستون‬,"‫ "خمسون‬,"‫ "أربعون‬,"‫ "ثالثون‬,"‫]""عشرون‬
ados est un tableau de chaînes = [" ‫ "ثالثة‬,"‫ "اثنا عشر‬,"‫ "أحد عشر‬,"‫عشرة‬
‫ "تسعة‬,"‫ "ثمانية عشر‬,"‫ "سبعة عشر‬,"‫ "ستة عشر‬,"‫ "خمسة عشر‬,"‫ "أربعة عشر‬,"‫عشر‬
‫ ]"عشر‬centaines est un tableau de chaînes = ["", " ,"‫ "مائتان‬,"‫مائة‬
‫ "تسعمائة‬,"‫ "ثمانمائة‬,"‫ "سبعمائة‬,"‫ "ستمائة‬,"‫ "خمسمائة‬,"‫ "أربعمائة‬,"‫]""ثالثمائة‬
milliards est un entier = n / 1000000000 n %= 1000000000 millions
est un entier = n / 1000000 n %= 1000000 milliers est un entier = n
/ 1000 n %= 1000 cent est un entier = n résultat est une chaîne =
"" SI milliards > 0 ALORS résultat +=
NombreVersTexteArabeMoinsDe1000(milliards) + " ‫ "مليار‬SI millions
> 0 OU milliers > 0 OU cent > 0 ALORS résultat += " ‫ " و‬FIN SI
millions > 0 ALORS résultat +=
NombreVersTexteArabeMoinsDe1000(millions) + " ‫ "مليون‬SI milliers
> 0 OU cent > 0 ALORS résultat += " ‫ " و‬FIN SI milliers > 0 ALORS
résultat += NombreVersTexteArabeMoinsDe1000(milliers) + " ‫"ألف‬
SI cent > 0 ALORS résultat += " ‫ " و‬FIN SI cent > 0 ALORS résultat
+= NombreVersTexteArabeMoinsDe1000(cent) FIN SI résultat = ""
ALORS résultat = "‫ "صفر‬RÉSULTAT résultat
Entrer

// Convertir un nombre en texte arabe avec Dinar Algérien PROCÉDURE


NombreVersTexteArabe_DZD(monNombre est réel) partieEntiere est un
entier = Trunc(monNombre) partieDecimale est un entier =
Arrondi((monNombre - partieEntiere) * 100) texteEntier est une chaîne
= NombreVersTexteArabeGrand(partieEntiere) texteDecimal est une
chaîne = NumériqueVersChaîne(partieDecimale) + "/100" // :‫اسم العملة‬
‫ دينار‬SI partieEntiere = 0 ET partieDecimale > 0 ALORS RÉSULTAT
texteDecimal + " ‫ "دينار فقط ال غير‬SINON RÉSULTAT texteEntier + " ‫دينار‬
‫ "و‬+ texteDecimal + " ‫ "فقط ال غير‬FIN

Vous aimerez peut-être aussi