Министерство образования Республики Таджикистан
Таджикский Технический Университет им. ак. М.С. Осими
кафедра АСОИиУ
Лабораторная работа №4
«Перевод целых неотрицательных чисел в различных системах счисления»
Выполнил:
Принял:
-Душанбе 2009-
Программа Enhanced
Converter
Publicx0, x, i, j, zAsDoubleПроцедура инициализации приложения
Public y As String
Private Sub clr_Click()
inp.Text = "" Процедура очистки текстовых полей
out.Text = ""
EndSub
Внешний вид окна приложения с введёнными данными
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim val As String
val = Chr(KeyAscii)
Select Case cmb.ListIndex
Case 0
Select Case val
Case "0"
inp.Text = inp.Text & "0"
Case "1"
inp.Text = inp.Text & "1"
End Select
Case 1
If val >= "0" And val <= "9" Then
If val >= "8" And val <= "9" And inp.Text = "" Then
Exit Sub
Else
End If
inp.Text = inp.Text & CStr(val)
Else
End If
Case 2
If (val >= "0" And val <= "9") Or (val >= "a" And val <= "f") Or (val >= "A" And val <= "F") Then
inp.Text = inp.Text & CStr(val)
Else
End If
Case 3, 4, 5
If val >= "0" And val <= "9" Then
inp.Text = inp.Text & CStr(val)
Else
End If
End Select
End Sub
Private Sub inp_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo err:
If (KeyCode = vbKeyBack) Then
inp.Text = Left(inp.Text, Len(inp.Text) - 1)
ElseIf (KeyCode = vbKeyDelete) Then
inp.Text = ""
Else
End If
Exit Sub
err:
Beep
End Sub
Private Sub Form_Load()
inp.Text = ""
End Sub
Private Sub inp_Change()
Dim d(100) As Double
Dim ds(100) As String
Select Case cmb.ListIndex
Case 0
inp.MaxLength = 40
If inp.Text = "" Then
out.Text = ""
Exit Sub
Else
i = (Len(inp.Text))
x = 0
j = 0
Do
x = x + (val(Mid(inp.Text, i, 1)) * (2 ^ j))
i = i - 1
j = j + 1
Loop Until i = 0
out.Text = x
End If
Case 1
inp.MaxLength = 40
If inp.Text = "" Then
out.Text = ""
Exit Sub
Else
i = (Len(inp.Text))
x = 0
j = 0
Do
x = x + (val(Mid(inp.Text, i, 1)) * (8 ^ j))
i = i - 1
j = j + 1
Loop Until i = 0
out.Text = x
End If
Case 2
inp.MaxLength = 40
z = 0
If inp.Text = "" Then
out.Text = ""
Exit Sub
Else
i = (Len(inp.Text))
x = 0
j = 0
Do
Select Case Mid(inp.Text, i, 1)
Case "A", "a"
z = 10
Case "B", "b"
z = 11
Case "C", "c"
z = 12
Case "D", "d"
z = 13
Case "E", "e"
z = 14
Case "F", "f"
z = 15
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
z = val(Mid(inp.Text, i, 1))
End Select
x = x + z * (16 ^ j)
i = i - 1
j = j + 1
Loop Until i = 0
out.Text = x
End If
Case 3
inp.MaxLength = 15
On Error GoTo err:
If inp.Text = "" Then
out.Text = ""
Exit Sub
ElseIf val(inp.Text) = 0 Or val(inp.Text) = 1 Then
out.Text = inp.Text
Exit Sub
Else
i = 1
x0 = val(inp.Text)
Do
d(i) = val(x0 - (val(x0 / 2) * 2))
x = Round((x0 / 2) - 0.3, 0)
i = i + 1
x0 = x
Loop Until x = 1
d(i) = x
out.Text = ""
Do
out.Text = out.Text & val(d(i))
i = i - 1
Loop Until i = 0
End If
Case 4
inp.MaxLength = 15
On Error GoTo err:
If inp.Text = "" Then
out.Text = ""
Exit Sub
Else
i = 1
x0 = val(inp.Text)
If x0 >= 0 And x0 <= 7 Then
out.Text = inp.Text
Exit Sub
Else
Do
d(i) = val(x0 - (val(x0 / 8) * 8))
x = val(x0 / 8)
If x >= 0 And x <= 7 Then
i = i + 1
d(i) = x
Exit Do
Else
i = i + 1
x0 = x
End If
Loop Until x = 1
out.Text = ""
Do
out.Text = val(out.Text) & val(d(i))
i = i - 1
Loop Until i = 0
End If
End If
Case 5
inp.MaxLength = 15
z = 0
If inp.Text = "" Then
out.Text = ""
Exit Sub
Else
i = 1
x0 = val(inp.Text)
If val(inp.Text) >= 0 And val(inp.Text) <= 15 Then
Select Case val(inp.Text)
Case 10
y = "A"
Case 11
y = "B"
Case 12
y = "C"
Case 13
y = "D"
Case 14
y = "E"
Case 15
y = "F"
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
y = inp.Text
End Select
out.Text = y
Exit Sub
Else
Do
z = val(x0 - (val(x0 / 16) * 16))
Select Case z
Case 10
y = "A"
Case 11
y = "B"
Case 12
y = "C"
Case 13
y = "D"
Case 14
y = "E"
Case 15
y = "F"
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
y = CStr(z)
End Select
ds(i) = y
x = val(x0 / 16)
If x <= 0 Then Exit Do
i = i + 1
x0 = x
Loop Until x = 1
out.Text = ""
Do
out.Text = out.Text & ds(i)
i = i - 1
Loop Until i = 0
End If
End If
End Select
ExitSub
err:
MsgBox "Введены неверные значения или значения не являются корректными", , "=VaMp1r3=™"
Call clr_Click
End Sub
Private Sub cmb_Click()
Call clr_Click
End Sub
Private Sub ext_Click()
End
End Sub
Private Sub cop_Click()
MsgBox "=VaMp1r3=™. Все права защищены. По всем вопросам а также с претензиями обращаться в гр. 6546 Б2 к Столову Юрию.", , "=VaMp1r3=™"
End Sub
Другие работы по теме:
Системы счисления 4
Цель работы Понять принципы позиционной системы счисления. Научиться переводить числа из одной системы счисления в другую. Уметь производить арифметические действия над числами, представленными в различных системах счисления.
Трюк с биномиальными коэффициентами
С биномиальными коэффициентами проще иметь дело, когда их аргументами являются целые неотрицательные числа, однако возможны и полезны и более общие рассуждения.
Китайская система счисления
1. Структура системы счисления Китая. Одна из древнейших систем счисления была создана в Китае, а также в Японии. Эта система возникла как результат оперирования с палочками, выкладываемыми для счета на стол или доску. Числа от единицы до пяти обозначались, соответственно, одной, двумя и т.д. палочками, выкладываемыми вертикально, а одна, две, три или четыре вертикальные палочки, над которыми помещалась одна поперечная палочка, означали числа шесть, семь, восемь и девять. (Смотреть таблицу обозначений чисел.)
Краткое доказательство гипотезы Биля
Гипотеза Биля как неопределенное уравнение, не имеющее решения в целых положительных числах. Использование метода замены переменных. Запись уравнения в соответствии с известной зависимостью для разности квадратов двух чисел. Наличие дробных чисел.
Краткое доказательство гипотезы Билля
Формулировка гипотезы Билля и методика ее краткого доказательства. Анализ составляющих гипотезу алгебраических выражений. Использование метода замены переменных при доказательстве гипотезы Билля, не имеющей решения при целых положительных числах.
Системы счисления 2
Text Graphics СИСТЕМЫ СЧИСЛЕНИЯ Graphics Для перевода правильной дроби из СС с основанием 10 в СС с основанием n необходимо: эту дробь умножить на n, затем дробную часть, полученного произведения вновь умножить на n и так до тех пор пока в дробной части не окажутся все нули, либо не будет достигнута заданная степень точности.
Системы счисления
Система счисления – это способ представления чисел и соответствующие ему правила действия над числами. Разнообразные системы счисления, которые существовали ранее и существуют теперь, можно разделить на позиционные и непозиционные. Знаки, которые используются при записи чисел, называются цифрами.
Краткое доказательство гипотезы Билля
Гипотеза Билля формулируется следующим образом: неопределенное уравнение: не имеет решения в целых положительных числах А, В, С, при условии, что больше 2.
Система счисления
Сущность различных систем счисления. Идея позиционной системы счисления Архимеда, разновидности моделей. Особенности перевода чисел из одной системы счисления в другую. Кодирование информации в компьютерных технологиях в двоичной системе счисления.
Позиционные системы счисления
РАБОТА ПО ИНФОРМАТИКЕ ТЕМА «Позиционные системы счисления» Ученицы 11 класса «А» Калашниково Анны МОСКВА 2004 год План Арифметические основы построения ЭВМ
Лабораторная работа №11
Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов. Задание№ 17 . Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде ASCII. Определить максимальный элемент этого порядка.
Лаба по информатике
Министерство общего и профессионального образования РФ Владимирский Государственный Университет Кафедра УИТЭС Лабораторная работа 1 СИСТЕМЫ СЧИСЛЕНИЯ
Контрольная по информатике
КОНТРОЛЬНАЯ РАБОТА ВЫЧИСЛИТЕЛЬНОЙ ТЕХНИКЕ ПРОГРАМИРОВАНИЮ Студентки I-го курса МГТУ ГА Шифр – э991613 2000 г. ироковой С.Х. Задание Перевести десятичное число в систему счисления с основанием “b”.
Основы информатики
Общее представление о системах счисления. Перевод чисел в двоичную, восьмеричную и шестнадцатеричную системы счисления. Разбивка чисел на тройки и четверки цифр. Разряды символов числа. Перевод из шестнадцатеричной системы счисления в десятичную.
Операции сложения и вычитания
Алгоритм выполнения операции сложения, вычитания. Сложение чисел в столбик. Проверка получившихся результатов, переведение их в другую систему счисления. Перевод числа 128 из 8-й в 10-ую систему счисления и числа 11011101 из 2-й в 10-ую систему счисления.
Коды и системы записи чисел
Запись прямого и обратного кода для числа 10010 и -10010. Получение дополнительного кода числа для 16-разрядной ячейки. Перевод в двоичную систему счисления десятичных чисел: 10, 45, 7, 33. Запись в обратном и дополнительном кодах числа -67, -43, -89.
Разработка электронных таблиц
Организация средствами Microsoft Excel автоматического выполнения операций над представлениями чисел в позиционных системах счисления. Разработка электронных таблиц. Перевод чисел в десятичную систему счисления. Перевод из десятичной системы.
Единицы измерения информации. Системы исчисления
Сущность и характеристика цифровой и аналоговой информации. Бит как основа исчисления информации в цифровой технике. Компьютерная система счисления как способ записи (изображения) чисел. Сущность и понятие позиционных и непозиционных систем исчисления.
Сложение и вычитание целых неотрицательных чисел в двоичном коде
Числа с фиксированной точкой характеризуются длиной слова в битах, положением двоичной точки, бывают беззнаковыми или знаковыми. Позиция двоичной точки определяет число разрядов в целой и дробной частях машинного слова. Представление отрицательного числа.
Умножение и деление целых неотрицательных чисел в двоичном коде
Числа с фиксированной точкой характеризуются длиной слова в битах, положением двоичной точки, бывают беззнаковыми или знаковыми. Позиция двоичной точки определяет число разрядов в целой и дробной частях машинного слова. Представление отрицательного числа.
Разработка электронных таблиц
Федеральное агентство по образованию ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ "ОМСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ" (ОмГТУ)
Выполнение арифметических операций над числами с фиксированной запятой
Цель: ознакомиться с командами арифметических операций, вводом данных с клавиатуры и выводом данных на экран. Задание: написать программу ввода с клавиатуры двух чисел в 9-ричной системе счисления размером с слово, выполнения над ними деления и вывода результата в исходной системе счисления. Программа должна предусматривать контроль вводимой информации, контроль диапазона чисел и результата операции (переполнение, невозможность деления).
Контрольная по информатике
КОНТРОЛЬНАЯ РАБОТА ПО ВЫЧИСЛИТЕЛЬНОЙ ТЕХНИКЕ ПРОГРАМИРОВАНИЮ Студентки I-го курса МГТУ ГА Шифр – э991613 2000 г. ироковой С.Х. Задание Перевести десятичное число в систему счисления с основанием “b”.
Системы счисления 6
Введение. Системой счисления называется совокупность приемов наименования и записи чисел. В любой системе счисления для представления чисел выбираются некоторые символы (их называют цифрами), а остальные числа получаются в результате каких-либо операций над цифрами данной системы счисления.
Позиционные системы счисления
Перевод чисел из одной позиционной системы счисления в другую Арифметические операции с числами в позиционных системах счисления Системой счисления называется совокупность приемов наименования и записи чисел. В любой системе счисления для представления чисел выбираются некоторые символы (их называют цифрами), а остальные числа получаются в результате каких-либо операций над цифрами данной системы счисления.
Система счисления 2
Содержание Система счисления — это совокупность приемов и правил, по которым числа записываются и читаются. 2 Как порождаются целые числа в позиционных системах счисления? 2
Цузе Конрад
Автор модели механической вычислительной машины, в которой использовались двоичная система счисления , форма представления чисел с плавающей запятой , трехадресная система программирования и перфокарты .