Перевод десятичной дроби из 10 системы счисления в 2 - VB

Формулировка задачи:

Нужно составить программу, переводящую десятичную дробь из 10 системы счисления в 2 с заданной точностью.

Для перевода правильной десятичной дpоби F в систему счисления с основанием q необходимо F умножить на q , записанное в той же десятичной системе, затем дробную часть полученного произведения снова умножить на q, и т. д., до тех пор, пока дpобная часть очередного пpоизведения не станет pавной нулю, либо не будет достигнута требуемая точность изображения числа F в q-ичной системе. Представлением дробной части числа F в новой системе счисления будет последовательность целых частей полученных произведений, записанных в порядке их получения и изображенных одной q-ичной цифрой. Если требуемая точность перевода числа F составляет k знаков после запятой, то предельная абсолютная погрешность при этом равняется q -(k+1) / 2.

Пример. Переведем число 0,36 из десятичной системы в двоичную 36*2 0, 72*2 0 44*2 1 88*2 0 76*2 1 52*2 1 Ответ:0,36=0,01011 с предельной абсолютной погрешностью (2^(-6))/2=2^-7

Для чисел, имеющих как целую, так и дробную части, перевод из десятичной системы счисления в другую осуществляется отдельно для целой и дробной частей по правилам, указанным выше.

[COLOR="DarkOrange"]

Решение задачи: «Перевод десятичной дроби из 10 системы счисления в 2»

textual
                            Листинг программы 
                        

                            Dim x, y, z AS Single 
IF VAL (Text1.Text) <>0
MsgBox "ошибка!"
Else
Pictere1. Cls
Pictere1. Print (val(text1.text)+y-z*2)/y
                        