Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 110 - 113
§4.12. Алгоритмы перевода чисел и их кодирование на языках объектно-ориентированного программирования




Содержание урока

4.12.1. Алгоритм перевода целых чисел

Алгоритм

Проект «Перевод целых чисел»

Алгоритм перевода целых десятичных чисел в двоичную систему счисления

Создание обработчика события, реализующего перевод целых десятичных чисел в двоичную систему счисления, на языке программирования Visual Basic .NET

Создание обработчика события, реализующего перевод целых десятичных чисел в двоичную систему счисления, на языке программирования Turbo Delphi

Алгоритм перевода целых десятичных чисел в восьмеричную систему счисления

Алгоритм перевода целых десятичных чисел в шестнадцатеричную систему счисления

Запуск проекта на языках 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качать материалы урока







Наверх