2.2 Блок-схема
2.3 Текст программы
Module Module1
Dim e, n, a(1000), k As Integer
Sub Main()
Dim m As Double
Console.WriteLine("Введите Любое десятичное число")
m = CDbl(Console.ReadLine())
Console.WriteLine("Сколько знаков после запятой вы хотите увидеть")
n = Convert.ToInt32(Console.ReadLine())
k = 1
e = m
m -= e
Do While (e <> 0)
a(k) = e Mod 2
k += 1
If (a(k - 1) = 1) Then e -= 1
e = e / 2
Loop
For i = k - 1 To 1 Step -1
Console.Write(a(i))
Next i
If n <> 0 Then
Console.Write(".")
Do While (n <> 0)
If (m * 2 >= 1) Then
Console.Write("1")
m = m * 2 - 1
Else
Console.Write("0")
m = m * 2
End If
n -= 1
Loop
End If
Console.ReadKey()
End Sub
End Module
2.4 Результаты машинного тестирования.
Результаты машинного тестирования программы:
Входные данные |
Результат работы программы |
13,3 3 |
1101.010 |
12345 0 |
11000000111001 |
321.123 5 |
1111011.01010 |
222,34 6 |
11011110.010101 |
Табл 1.
При вводе числа 13,3 в десетичной системе счисления программа успешно перевела его в двоичную систему счисления.
2.5 Ручной просчет программы.
13,3 – число в десятичном коде.
От 13 циклом берем остаток от деления на 2 и делим число на 2 , записываем в массив. Потом выводим этот массив с конца и получим 1101 потом берем дробную часть умножеам ее на 2, если после этого оно стало больше 1, то дописываем к чилу в 2-й системе счисления 1 и отнимает из 10-й 1, иначе дописываем к числу в 2-й системе 0. утого получилось 1101.010
Заключение.
В ходе работы мной были изучены язык программирования Basic, различные системы счислений, а так же математические алгоритмы перевода чисел из одной системы счислений в другую.
Подробно были рассмотрены двоичная и восьмеричная системы счислений. Была написана программа перевода чисел записанных в двоичном коде в восмеричный. Программа была протестирована, был проведен ручной перерасчет для проверки правильности выполнения программой поставленной задачи.
Список используемой литературы.
Марков В.Н.Среда автоматизации приложений Visual Basic for Application (VBA). Учебное пособие.- Краснодар: Институт экономики, права и естественных специальностей, 2004.- 96 с.
Эйткен, Питер. Разработка приложений на VBA в среде Office.: Пер. с англ. – М.:Издательский дом «Вильямс», 2003. – 496 с., ил.
http://www.microsoft.com/visualstudio/ru-ru/products/2010-editions/visual-basic-express
http://paveldev.blogspot.com/2010