Уроки 110 - 113
§4.12. Алгоритмы перевода чисел и их кодирование на языках объектно-ориентированного программирования
Содержание урока
4.12.1. Алгоритм перевода целых чисел
Алгоритм перевода целых десятичных чисел в двоичную систему счисления
Создание обработчика события, реализующего перевод целых десятичных чисел в двоичную систему счисления, на языке программирования Visual Basic .NET
Алгоритм перевода целых десятичных чисел в восьмеричную систему счисления
Алгоритм перевода целых десятичных чисел в шестнадцатеричную систему счисления
Запуск проекта на языках Visual Basic .NET, Visual С#, Visual J# и Turbo Delphi
4.12.2. Алгоритм перевода дробных чисел
4.12.1. Алгоритм перевода целых чисел
Создание обработчика события, реализующего перевод целых десятичных чисел в двоичную систему счисления, на языке программирования Visual Basic .NET
3. Объявить переменные:
Dim N As Integer 'десятичное число
Dim R As Integer 'остаток от деления исходного 'целого десятичного числа или целого частного на 'основание новой системы
Dim Bin As String 'двоичное число в строковой 'форме
4. Создать обработчик события:
Private Sub Buttonl_Click(ByVal sender As System. Object, ByVal e As System.EventArgs) Handles Buttonl.Click
'1.Ввести десятичное целое число и другие 'начальные значения N = Val(TextBoxl.Text)
Labe 11. Text = ""
Bin = ""
'2.В цикле с предусловием, пока исходное целое 'десятичное число или целое частное больше О, 'выполнить вычисления.
Do While N > О
'2.1.Вычислить остаток от деления исходного 'целого десятичного числа или целого частного на 'основание новой системы (на 2).
R = N Mod 2
'2.2.Выполнить целочисленное деление целого 'десятичного числа или целого частного на 'основание новой системы (на 2).
N = N \ 2
'2.3. Записать полученный остаток от деления 'слева от двоичного числа (остатки, записанные в 'обратном порядке, образуют двоичное число). 'Bin = CStr(R) + Bin
Loop
'3.Вывести двоичное целое число Label1.Text = Bin
End Sub
Следующая страница 
Создание обработчика события, реализующего перевод целых десятичных чисел в двоичную систему счисления, на языке программирования Turbo Delphi
Cкачать материалы урока
