Trouver période de la décimale d'un nombre

Pour transformer en fraction:

Public Function frak(x As Double) As String
Const mini As Double = 1 / 1000000000#
Dim i As Integer, t As Double, numer As Long, tt As Double
frak = "?"
For i = 1 To 1000
    t = x * i
    numer = Int(Round(t))
    If numer >= 1 Then
        tt = t / numer
        If Abs(tt - 1) < mini Then
            frak = Str(numer)
            If i > 1 Then
                frak = frak + " / " + Str(i)
            End If
            Exit For
        End If
    End If
Next i
End Function

correction pour le deuxième exemple le résultat est 245

Bonjour 

https://www.commentcamarche.net/infos/25899-forum-ccm-mode-d-emploi-demander-de-l-aide-pour-un-exercice/

Réponse pour le modérateur.

Cela me fait plaisir que vous me preniez pour un étudiant mais j’ai 63 ans révolus.

J’ai fait une simulation en VBA sur Excel d’un module Transmittance (filtre passe bas d'ordre 1 et dérivée) qui nécessite environ 5000 calculs pour obtenir la courbe du signal de sortie qui donnent, pour la plupart des résultats à virgule. Pour une raison de simplification de l’affichage, je voudrais convertir certains de ces décimaux en nombres fractionnaires (les points remarquables de la courbe).

Si le nombre décimal contient une série périodique qui se répète à l’infini, il faut connaitre cette série pour pouvoir la supprimer et convertir le nombre en fraction. D’où ma question.

J’ai déjà essayé plusieurs solutions qui n’ont pas aboutis et que j’ai effacé. Je demande éventuellement de nouveaux axes de recherche. Mais bien sûr si quelqu’un a une solution toute faite, je suis aussi preneur.

Cordialement

Réponse pour le modérateur.

Je ne suis pas modérateur, mais contributeur.

Cela me fait plaisir que vous me preniez pour un étudiant mais j’ai 63 ans révolus

Soit. Cependant, il y a dans cet article des conseils qui peuvent être appliqués quel que soit le cas. Comme par exemple, celui repris par yg_be, de décrire ce que tu as essayé, ça évite de te reproposer la même chose et permet de cerner ton niveau pour adapter notre réponse.

Bonsoir 

Merci pour ta réponse

Je suis d'accord avec toi que l'on ne peut pas parler d'infini sur l'afficheur d'une calculatrice, mais je considère que le nombre 0,133333333 donne bien la fraction 2/15.

J'avais bien converti la partie décimale en texte mais je me suis vite emmêler les pinceaux. Par contre l'idée de commencer par la fin est à essayer. je vais voir.

Bonjour

Si j'ai bien compris le but est de mettre un rationnel sous forme de fraction A/B.

On peut faire ça avec une calculatrice scientifique un peu évoluée.

Avec Excel on peut changer le format de cellule en choisissant Fraction. Il vaut mieux travailler sur la partie décimale, pour éviter l'affichage bizarre sous forme d'un entier et d'une fraction.

Bonjour,

Oui mais sans calculatrice (je le fais avec ma "Petite fx" pas scientifique et pas évoluée du tout). Je cherche a le faire dans une fonction (algorithme) utilisable dans n'importe quel langage un tant soit peu évolué C#, Visual Basic ou même VBA.

Bonjour 

Pour en faire une fraction, pourquoi ne pas multiplier par 10^n / 10^n, n étant le le de décimales et ensuite réduire la fraction?

Par exemple 0.125 = 0.125 * 1000 / 1000 =125 / 1000 = 25 / 200 = 5 / 40 = 1 / 8

Là j'ai détaillé, mais si tu décomposes le numérateur et le dénominateur en produits de facteurs premiers, il te suffit de diviser en haut et en bas ceux qui sont identiques.

125 = 5 * 5 * 5

1000 = 5 * 5 * 5 * 2 * 2 * 2

On divise par  5 * 5 * 5, il reste 1 en haut et 2 * 2 * 2 en bas soit 8

Bonjour

Désolé de ne pas avoir pu répondre plu tôt.

yg_be, merci pour ta fonction.

Je n'ai pas eu le temps de regarder comment elle fonctionne, je l'ai juste copier/coller dans Excel pour la tester.

Malgré un petit problème ( pour 0,13333333 elle renvoie ? au lieu 2/15 ) elle a l'air de fonctionner pas mal et elle feras surement une bonne base de réflexion. 

je vais la regarder de près 

Bonsoir,

Merci beaucoup à yg_be qui m'a apporté une solution 'toute faite' qui fonctionne, et à toutes les personnes qui ont pris le temps de me répondre.

Bonne continuation.