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

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

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

4.12.2. Алгоритм перевода дробных чисел

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

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

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

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

Создание обработчика события, реализующего перевод дробных десятичных чисел в восьмеричную систему счисления, на языке программирования Visual C#

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

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

Запуск проекта на языках Visual Basic .NET, Visual С#, Visual J# и Turbo Delphi

Компьютерный практикум

4.12.2. Алгоритм перевода дробных чисел

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

3. Объявить переменные:

Dim N As Single
'десятичная дробь Dim М As Single
'произведение десятичной дроби
'или полученной дробной части на основание новой
' системы счисления

Dim Bin As String
'двоичная дробь в строковой
'форме

4. Создать обработчик события:

Private Sub Button1_Click(ByVal sender As System. Object, ByVal e As System.EventArgs) Handles Button1.Click
'1.Ввести десятичное дробное число и другие
'начальные данные.

N = Val(TextBox1.Text)

Labe11.Text = "0."

Bin = ""
'2.В цикле с предусловием, пока исходная дробь
'или дробная часть произведения не станет равной
'нулю или не будет достигнута требуемая точность
'представления числа, выполнить вычисления:

Do While N > 0
'2.1.Выполнить умножение десятичной дроби или
'полученной дробной части на основание новой
'системы счисления (на 2).

М = N * 2
'2.2.Вычислить дробную часть произведения.

N = М - Int (М)
'2.3.Записать полученную целую часть произведения
'справа от двоичного числа (целые части
'произведения, записанные в прямом порядке,
'образуют двоичное число).

Bin = Bin + CStr(Int(M))

Loop
'3.Вывести двоичное дробное число. Label1.Text = Label1.Text + Bin

End Sub

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

3. Объявить переменные:

var

N, М: single;

Bin: string;

4. Создать обработчик события:

procedure TForm1.Button1Click(Sender: TObject);

begin

N := StrToFloat(Edit1.Text);

Labell .Caption := '0.';

Bin := '';

while N > 0 Do

begin

M := N * 2;

N := Frac(M);

Bin := Bin + FloatToStr(Int(M));

end;

Labell.Caption := Labell.Caption + Bin;

end;

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

Cкачать материалы урока