jean_debord
Nombre de messages : 1249
Age : 69
Localisation : Limoges
Date d'inscription : 21/09/2008
 | | Sujet: Bonne année... en chiffres romains Jeu 6 Jan 2022 - 8:39 | |
| Remarquez l'utilisation de la fonction SPLIT, avec des virgules comme séparateur pour avoir la chaîne vide comme premier élément. - Code:
-
' Conversion en chiffres romains
' D'apres dodicat sur le forum FreeBASIC
' https://www.freebasic.net/forum/viewtopic.php?f=7&t=29021&start=15#p288740
const MILLE = ", M, MM, MMM"
const CENT = ", C, CC, CCC, CD, D, DC, DCC, DCCC, CM"
const DIX = ", X, XX, XXX, XL, L, LX, LXX, LXXX, XC"
const UNIT = ", I, II, III, IV, V, VI, VII, VIII, IX"
dim n%, m$(), c$(), d$(), u$()
split MILLE, ",", m()
split CENT, ",", c()
split DIX, ",", d()
split UNIT, ",", u()
print "Bonne annee "; IntToRoman(2022)
end
function IntToRoman$ (num%)
dim milliers$, centaines$, dizaines$, unites$
milliers = m(num \ 1000 + 1)
centaines = c((num mod 1000) \ 100 + 1)
dizaines = d((num mod 100) \ 10 + 1)
unites = u(num mod 10 + 1)
return milliers + centaines + dizaines + unites
end_function
| |
|
Calendrier