0

Мне нужно превратить float в дробь, например 3.24 в 324 / 100. Для этого мне нужно узнать сколько знаков после запятой в числе, чтобы потом умножить на числитель и знаменатель и получить дробь из целых чисел.

2
  • 1
    Бессмысленно узнавать, сколько знаков "после запятой" у float. 3.24 на самом деле может храниться как 3.2399999987 или 3.24000000014
    – MBo
    21 апр 2020 в 13:10
  • Я бы уочнил @MBo, тем что у чисел в IEEE 754 в принципе нет ничего похожего на дробную часть.
    – bearpro
    26 авг 2020 в 21:53

1 ответ 1

1

Я решил свою проблему. Нашёл код в интернете и немного отредактировал. Функция принимает float и возвращает числитель и знаменатель:

let toMixedNumber(x : float) =
    let wholePart = float (int x)
    let decimalPt = x % 1.0
    let rec cF(Z : float, i : int, Dm : float, Do : float) =
        match Z % 1.0 > 1e-6, i < 1 with
        | _    , true  -> int ((System.Math.Round(decimalPt * Do)) + (wholePart * Do)), int Do
        | true , false -> cF(1.0/(Z % 1.0), i - 1 , Do, Do * System.Math.Round(1.0/(Z % 1.0)-0.5) + Dm )
        | false, _  -> int ((System.Math.Round(decimalPt * Do)) + (wholePart * Do)), int Do
    decimalPt
    |> fun x -> cF(x, 14, 0.0, 1.0)

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.