Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Bonjoir(c) garnote
c'est vachement complexe ce Euclide !!! ah zut, non, je confond avec
Oedipe... je les mélange toujours ces 2 la ;-))))))))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
Le 25/02/2006 16:55 vous avez écrit ceci :Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Bonjoir(c) garnote
c'est vachement complexe ce Euclide !!! ah zut, non, je confond avec
Oedipe... je les mélange toujours ces 2 la ;-))))))))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
Le 25/02/2006 16:55 vous avez écrit ceci :
Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Bonjoir(c) garnote
c'est vachement complexe ce Euclide !!! ah zut, non, je confond avec
Oedipe... je les mélange toujours ces 2 la ;-))))))))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
Le 25/02/2006 16:55 vous avez écrit ceci :Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Oeclide, Eudipe, Sacrote, Plotan, Oristate et moi-même
aimerions comprendre le Bonjoir(c) de Monsieur Bertgou ;-)))
Serge
"JièL Goubert" a écrit dans le
message de news:Bonjoir(c) garnote
c'est vachement complexe ce Euclide !!! ah zut, non, je confond avec
Oedipe... je les mélange toujours ces 2 la ;-))))))))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
Le 25/02/2006 16:55 vous avez écrit ceci :Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Oeclide, Eudipe, Sacrote, Plotan, Oristate et moi-même
aimerions comprendre le Bonjoir(c) de Monsieur Bertgou ;-)))
Serge
"JièL Goubert" <NOSPAM_JieL.Goubert@laposte-net.NOSPAM> a écrit dans le
message de news: uNgMqajOGHA.2300@TK2MSFTNGP15.phx.gbl...
Bonjoir(c) garnote
c'est vachement complexe ce Euclide !!! ah zut, non, je confond avec
Oedipe... je les mélange toujours ces 2 la ;-))))))))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
Le 25/02/2006 16:55 vous avez écrit ceci :
Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Oeclide, Eudipe, Sacrote, Plotan, Oristate et moi-même
aimerions comprendre le Bonjoir(c) de Monsieur Bertgou ;-)))
Serge
"JièL Goubert" a écrit dans le
message de news:Bonjoir(c) garnote
c'est vachement complexe ce Euclide !!! ah zut, non, je confond avec
Oedipe... je les mélange toujours ces 2 la ;-))))))))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
Le 25/02/2006 16:55 vous avez écrit ceci :Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Encore une histoire de q ? -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" a écrit dans le message de news:Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Encore une histoire de q ? -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" <rien@absent.com> a écrit dans le message de news:
uHZ51PiOGHA.2472@TK2MSFTNGP11.phx.gbl...
Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Encore une histoire de q ? -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" a écrit dans le message de news:Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
=0 et < que la valeur absolue de n.
et moi si j'ai l' r q c'est parce que je comprends jamais rien aux maths
du prof québécois...je suis aux bords du plonk comme d'autres le sont de
l'apoplexie...
jps
"Jacquouille" a écrit dans le message de
news:Encore une histoire de q ? -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" a écrit dans le message de news:Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
=0 et < que la valeur absolue de n.
et moi si j'ai l' r q c'est parce que je comprends jamais rien aux maths
du prof québécois...je suis aux bords du plonk comme d'autres le sont de
l'apoplexie...
jps
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: e6bATAkOGHA.3164@TK2MSFTNGP11.phx.gbl...
Encore une histoire de q ? -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" <rien@absent.com> a écrit dans le message de news:
uHZ51PiOGHA.2472@TK2MSFTNGP11.phx.gbl...
Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
=0 et < que la valeur absolue de n.
et moi si j'ai l' r q c'est parce que je comprends jamais rien aux maths
du prof québécois...je suis aux bords du plonk comme d'autres le sont de
l'apoplexie...
jps
"Jacquouille" a écrit dans le message de
news:Encore une histoire de q ? -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" a écrit dans le message de news:Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Non, non, pas plonk !
27 divisé par 4 = 6 et il reste 3.
Donc 27 = 4*6 + 3.
En général:
a divisé par n = q et il reste r.
Donc a = n*q + r.
Dans la division euclidienne, le reste r doit être=0 et < que la valeur absolue de n.
Serge ;-)))
"jps" a écrit dans le message de news:et moi si j'ai l' r q c'est parce que je comprends jamais rien aux maths
du prof québécois...je suis aux bords du plonk comme d'autres le sont de
l'apoplexie...
jps
"Jacquouille" a écrit dans le message de
news:Encore une histoire de q ? -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" a écrit dans le message de news:Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Non, non, pas plonk !
27 divisé par 4 = 6 et il reste 3.
Donc 27 = 4*6 + 3.
En général:
a divisé par n = q et il reste r.
Donc a = n*q + r.
Dans la division euclidienne, le reste r doit être
=0 et < que la valeur absolue de n.
Serge ;-)))
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
O2WpDVkOGHA.3924@TK2MSFTNGP14.phx.gbl...
et moi si j'ai l' r q c'est parce que je comprends jamais rien aux maths
du prof québécois...je suis aux bords du plonk comme d'autres le sont de
l'apoplexie...
jps
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: e6bATAkOGHA.3164@TK2MSFTNGP11.phx.gbl...
Encore une histoire de q ? -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" <rien@absent.com> a écrit dans le message de news:
uHZ51PiOGHA.2472@TK2MSFTNGP11.phx.gbl...
Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge
Non, non, pas plonk !
27 divisé par 4 = 6 et il reste 3.
Donc 27 = 4*6 + 3.
En général:
a divisé par n = q et il reste r.
Donc a = n*q + r.
Dans la division euclidienne, le reste r doit être=0 et < que la valeur absolue de n.
Serge ;-)))
"jps" a écrit dans le message de news:et moi si j'ai l' r q c'est parce que je comprends jamais rien aux maths
du prof québécois...je suis aux bords du plonk comme d'autres le sont de
l'apoplexie...
jps
"Jacquouille" a écrit dans le message de
news:Encore une histoire de q ? -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" a écrit dans le message de news:Bonjour à tous,
Division euclidienne :
Nombres entiers: ., -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 .
Si a et n sont deux entiers (n<>0), alors il existe deux entiers
q et r tels que :
a = n*q + r, où r >=0 et < Abs(n)
Pour trouver r, on pense à utilser MOD(a;n) d'Excel ou
a Mod n de VBA. Cependant ça ne fonctionne pas toujours
et de plus, MOD(a;n) est parfois différent de a Mod n.
Pour trouver q, on pense à utiliser ENT(a/n) d'Excel ou
Int(a/n) ou Fix(a/n) de VBA.
Mais là aussi, ce n'est pas toujours correct.
Voici donc deux fonctions personnalisées qui permettent
de respecter ce bon vieux Euclide et les conventions
mathématiques :
Function modmath(a, n)
'Pour trouver r
r = a Mod n
If r < 0 Then modmath = r + Abs(n) Else modmath = r
End Function
Function entdiv(a, n)
'Pour trouver q
entdiv = (a - modmath(a, n)) / n
End Function
Une fois que q et r sont calculés, on
peut vérifier que n*q + r est bien égal à a.
Que pensez-vous de tout ça ?
Me suis-je compliqué la vie inutilement ?
Et sans passer par VBA, quelles seraient les
formules à utiliser pour obtenir ce q et ce r ?
Serge