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

Нужно составить программу, переводящую десятичную дробь из 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"]

0

мдаа) Обращайтесь в личку

0

Функция принимает целое или дробное число и опционально точность вычисления. На выходе строка, представляющая введенное число в двоичной СС.

Может как-то можно и упростить, но башка ужо не варит

2

а можете упрощенный вариант написать ?пожалуйста

0

А чем вас не устраивает этот вариант?

1

да впринципе устраивает все
а можете помочть составить программы хотя бы нескольких из этих задач или всех, я недавно только начала его учить , ложновато пока .буду очень признательна .
1)Организовать процедуру ввода цифрового массива из 5 значений и вычисление среднего значения.2)Разработать приложение, заполняющее список студентов из 5 человек и выполняющее поиск на заданную букву.3)Разработать приложение, позволяющее найти максимальное значение в массиве из 5 цифр5)Написать программу, позволяющую выполнять умножение и деление чисел.6)Создать процедуру определения количества слов на заданную начальную букву в массиве из 5 слов
8)Создать процедуру вычисления (√x+y-z^2)/y .9)Создать процедуру вычисления (√x+у^3)/х
11)Разработать приложение, позволяющее вводить массив данных, осуществлять поиск отрицательных чисел и выполнять вывод информации о количестве отрицательных чисел.12)Создать процедуру вычисления (√x+у)/5 .14)Написать программу с использованием функции MsgBox, позволяющую выполнять сложение, деление чисел и извлечение квадратного корня.16)Создать базу данных с фамилиями студентов группы, выполнить их сортировку по алфавиту и определить количество студентов.17)Создать процедуру перевода десятичного числа в восьмеричный код.
21)Написать программу позволяющую выполнять выбор и вычисление площади фигуры: круга, прямоугольника и треугольника с выводом их отображений на форму.23)Создать процедуру вычисления функции √(y/z)- z^2. 25)Разработать процедуру ввода числовых данных, вычисления суммы и среднего арифметического значения положительных чисел, введенных в базу данных.

Добавлено через 22 минуты
помогите пожалуйста ,срочно нужно =(

0

KedЫ, СКРОМНЯГА!!
А как на счёт того, чтобы самой сделать хоть мало мальское телодвижение? Типа шевельнуть извилиной? А потом задать вопрос, что непонятно? Тебе бы с радостью помогли. А с таким списком - во фриланс!!

0

а я сделала часть из этого , могу кинуть чтобы проверили ,не думай , что я вообще ничего не делаю !! я стараюсь
если мошешь проверить , то кину часть того что решила , просто больше не у кого помощи просить , никто не может помочь

Добавлено через 4 минуты
5)Составить VB-программу умножения и деления двух чисел
Private Sub command1_Click()
If Option1.Value = True Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
ElseIf Option2.Value = True Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub

Private Sub command2_click()
End
End Sub

Добавлено через 11 минут
3)Private Sub Command1_Click()
Dim X As Integer, A As Single, Y As Single
A = InputBox("Введите, пожалуйста, число", "Ввод числа")
Y = A
For X = 1 To 5
If A > Y Then Y = A
A = InputBox("Введите, пожалуйста, число", "Ввод числа")
Next X
Text1.Text = Y
End Sub

Private Sub Command2_Click()
End
End Sub

Добавлено через 2 минуты
_вот! но это не все , я еще решаю ________________________________________ ________________________________________ ____
можете пожалуйста объяснить как решить вот это :Создать процедуру вычисления (√x+y-z^2)/y .

0

√

Это что?
Вот интересно: у меня отображается как буква Г, а скопипастил - радикал!

Добавлено через 16 минут
Option Explicit

Private Sub Комманда1_Click()
Dim X, Y, Z, R

X = InputBox("Введите, пожалуйста, число X", "Ввод числа", 625)
Y = InputBox("Введите, пожалуйста, число Y", "Ввод числа", 2)
Z = InputBox("Введите, пожалуйста, число Z", "Ввод числа", 3)
R = (Sqr(X) + Y - Z ^ 2) / Y
MsgBox R, 64, "Вот"
End Sub

0

это квадратный корень ))))

0

Я понял и написал как он вычисляется. Можно ещё использовать: "^0.5"

0

а если так то это неверно ?

Добавлено через 58 секунд
спасибо Вам =*

0

(val(text1.text) - это не квадратный корень
z*2 - а это не квадрат числа

1

блин, точно , спасибо спасибо спасибо ))))
я некоторые решила сама ,получилось!, можно еще насчет вот этого спросить , никак не получается:Создать процедуру определения количества слов на заданную начальную букву в массиве из 5 слов.

0

Массив слов как задан?
Если уже задан, то по всему масиву:
For i = 1 to 5
If Len(m(i),1) = "буква" Then K = K + 1
next i

1

Разработать приложение, позволяющее вводить массив данных, осуществлять поиск отрицательных чисел и выполнять вывод информации о количестве отрицательных чисел.
Добавлено через 6 минут
не уверена что это правильно , можете проверить ?!

0

тут не хватает строчки :
ну хоть немного напрягись

0

я ж пытаюсь хоть что-то решать , не считая того что я изучаю VB совсем недавно . Уж не сравиниться в Вами, кто им владеет в совершенстве ......не буду больше вам мешать если так . спасибо.

0