Sprawdzenie programu Mathematica

[17monika171]

Hej mam mały problem, mam napisac w Mathematice program który zmienia liczby zmiennoprzecinkowe na dwójkowe i u mnie nie chce wejsc w petle . Juz probowalam na wiele sposob to zmienic ale nic ,raz dziala ale dalej nie. Czy moglby ktos na to spojrzec ??

Kod: Zaznacz cały

zamiana := Function[n, lista = {};
    m = n*2;
    For[i = 1, m >= 1, i++, 
      If[IntegerQ[m] == False && m < 1, AppendTo[lista, 0], 
        AppendTo[lista, 1]; m = m - 1]]; Print[lista]; Print[m]]