Министерство образования Республики Таджикистан
Таджикский Технический Университет им. ак. М. С. Осими
кафедра АСОИиУ
Лабораторная работа №3
«Умножение и деление целых неотрицательных чисел в двоичном коде»
Выполнил:
Принял:
-Душанбе 2009-
Программа
UmnDelDouble.
Option Explicit
Public sel As Integer
Publici, x, j, x0 AsDouble Блок инициализации программы
Public c As Integer
Private Sub Command1_Click()
fir.Text = ""
sec.Text = ""
res.Text = ""
x = 0 Процедура очистки содержимого полей
j = 0
x0 = 0
i = 0
End Sub
Private Sub ext_Click()
End
End Sub
Private Sub fir_Change()
If val(fir.Text) = 0 Or val(fir.Text) = 1 Then
lb1.Caption = fir.Text
Exit Sub
Else
i = (Len(fir.Text))
x = 0
j = 0
Do Блок кодировки в «реальном времени»
x = x + (val(Mid(fir.Text, i, 1)) * (2 ^ j))
i = i - 1
j = j + 1
Loop Until i = 0
lb1.Caption = x
End If
End Sub
Исходный вид окна приложения.
Private Sub fir_GotFocus()
sel = 1
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo err:
If (KeyCode = vbKeyBack) Then
Select Case sel
Case 1
fir.Text = Left(fir.Text, Len(fir.Text) - 1)
Case 2
sec.Text = Left(sec.Text, Len(sec.Text) - 1)
End Select
Else
End If
Exit Sub
err:
Beep
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim val As String
val = Chr(KeyAscii)
If (val >= "0") And (val <= "9") Then
If sel = 1 Then
Select Case val
Case "0"
fir.Text = fir.Text & "0"
Case "1" Процедуры
fir.Text = fir.Text & "1" контроля
End Select за вводом
ElseIf sel = 2 Then
Select Case val
Case "0"
sec.Text = sec.Text & "0"
Case "1"
sec.Text = sec.Text & "1"
End Select
Else
End If
Else
End If
End Sub
Private Sub Form_Load()
umn.Value = True
c = 1
End Sub
Вид окна приложения с введёнными данными.
Private Sub res_Change()
If val(res.Text) = 0 Or val(res.Text) = 1 Then
lb3.Caption = res.Text
Exit Sub
Else
i = (Len(res.Text))
x = 0
j = 0
Do Блок кодировки в «реальном времени»
x = x + (val(Mid(res.Text, i, 1)) * (2 ^ j))
i = i - 1
j = j + 1
Loop Until i = 0
lb3.Caption = x
End If
End Sub
PrivateSubrun_Click() 'Основная процедура обработки
Dim d(90) As Double
If fir.Text = "" Or sec.Text = "" Then
MsgBox "Incorrect input. Please input numbers again", , "=VaMp1r3=™"
Exit Sub
ElseIf val(lb2.Caption) = 0 Or val(lb1.Caption) = 0 Then
MsgBox "Incorrect input. Please input numbers again", , "=VaMp1r3=™"
Call Command1_Click
Exit Sub
ElseIf val(lb2.Caption) = 0 And val(lb1.Caption) = 0 Then
MsgBox "Incorrect input. Please input numbers again", , "=VaMp1r3=™"
Call Command1_Click
Exit Sub
Else
Select Case umn.Value
Case True
x0 = ((CDbl(lb1.Caption)) * (CDbl(lb2.Caption)))
x = 0
c = 1
Do
d(c) = x0 Mod 2
x = Round((CDbl(x0) / 2) - 0.3, 0)
c = c + 1
x0 = x
Loop Until x = 1
d(c) = x
res.Text = ""
Do
res.Text = res.Text & d(c)
c = c - 1
Loop Until c = 0
Case False
If val(lb2.Caption) > val(lb1.Caption) Then
MsgBox "Incorrect Input. Please input numbers again.", , "=VaMP1r3=™"
Exit Sub
Else
x0 = val(((CDbl(lb1.Caption)) / (CDbl(lb2.Caption))))
x = 0
c = 1
Do
If x0 = 0 Then Exit Do
d(c) = x0 Mod 2
x = Round((CDbl(x0) / 2) - 0.3, 0)
c = c + 1
x0 = x
Loop Until x = 1
d(c) = x
res.Text = ""
Do
res.Text = res.Text & d(c)
c = c - 1
Loop Until c = 0
End If
End Select
End If
EndSub
Вид окна приложения с вычисленными данными.
Private Sub sec_Change()
If val(sec.Text) = 0 Or val(sec.Text) = 1 Then
lb2.Caption = sec.Text
Exit Sub
Else
i = (Len(sec.Text))
x = 0
j = 0
Do Блок кодировки в «реальном времени»
x = x + (val(Mid(sec.Text, i, 1)) * (2 ^ j))
i = i - 1
j = j + 1
Loop Until i = 0
lb2.Caption = x
End If
End Sub
Private Sub sec_GotFocus()
sel = 2
End Sub
Другие работы по теме:
“Последовательный сумматор.”
В данной курсовой работе представлены теоретические сведения о сумматорах и их классификации. Подробно разобран последовательный сумматор и принцип его работы
Простое доказательство великой теоремы Ферма
Представление великой теоремы Ферма как диофантового уравнения. Использование для ее доказательства метода замены переменных. Невозможность решения теоремы в целых положительных числах. Необходимые условия и значения чисел для решения, анализ уравнений.
Доказательство великой теоремы Ферма
Доказательство теоремы Ферма методами теоремы арифметики, элементарной алгебры с использованием методов решения параметрических уравнений для четных и нечетных показателей степени. Теорема о разложении на простые множители целых составных чисел.
Доказательство великой теоремы Ферма
Суть великой теоремы Ферма. Формирование диофантового уравнения. Доказательство вспомогательной теоремы (леммы). Особенности составления параметрического уравнения с параметрами. Решение великой теоремы Ферма в целых положительных (натуральных) числах.
Умножение “треугольником”
Предлагаю ознакомиться с новым способом умножения чисел. Схожесть образующейся при вычислении матрицы из цифр, с треугольником относительна, но все же есть, особенно при умножении трехзначных чисел и выше.
Краткое доказательство гипотезы Биля
Гипотеза Биля формулируется следующим образом: неопределенное уравнение: Аx +Вy= Сz/1/ не имеет решения в целых положительных числах А, В, С, x, y и z при условии, что x, y и z больше 2.
Трюк с биномиальными коэффициентами
С биномиальными коэффициентами проще иметь дело, когда их аргументами являются целые неотрицательные числа, однако возможны и полезны и более общие рассуждения.
Китайская система счисления
1. Структура системы счисления Китая. Одна из древнейших систем счисления была создана в Китае, а также в Японии. Эта система возникла как результат оперирования с палочками, выкладываемыми для счета на стол или доску. Числа от единицы до пяти обозначались, соответственно, одной, двумя и т.д. палочками, выкладываемыми вертикально, а одна, две, три или четыре вертикальные палочки, над которыми помещалась одна поперечная палочка, означали числа шесть, семь, восемь и девять. (Смотреть таблицу обозначений чисел.)
Краткое доказательство гипотезы Биля
Гипотеза Биля как неопределенное уравнение, не имеющее решения в целых положительных числах. Использование метода замены переменных. Запись уравнения в соответствии с известной зависимостью для разности квадратов двух чисел. Наличие дробных чисел.
Краткое доказательство гипотезы Билля
Формулировка гипотезы Билля и методика ее краткого доказательства. Анализ составляющих гипотезу алгебраических выражений. Использование метода замены переменных при доказательстве гипотезы Билля, не имеющей решения при целых положительных числах.
Краткое доказательство гипотезы Билля
Гипотеза Билля формулируется следующим образом: неопределенное уравнение: не имеет решения в целых положительных числах А, В, С, при условии, что больше 2.
Деление двоичных чисел
Если умножение выполняется путем многократных сдвигов и сложений, то деление, будучи операцией обратной умножению,— путем многократных сдвигов и вычитаний.
Цифровые компараторы
Принцип действия цифрового компаратора. Фиксация входного напряжения на уровнях, совместимых с логическими уровнями транзисторно-логических микросхем. Схема компаратора на операционном усилителе. Структура логического элемента одноразрядного компаратора.
Тест по Радиоэлектронники
1. Допустимое отклонение напряжения питания ТТЛ микросхем: D) ±5%; 2. На вход элемента дизъюнкции подается 1 и 0, что будет на выходе: E) 1; 3. Формула дистрибутивного закона:
Построение ОВС для решения формулы
Выбор и обоснование параметров варианта. Структура вычислительного процесса алгоритмы вычисления. Последовательность обработки операндов. Обозначения на схемах ОВС, временные диаграммы. Программирование ОВС, коды команд ОЭ. Схема цепей программирования.
Лабораторная работа №11
Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов. Задание№ 17 . Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде ASCII. Определить максимальный элемент этого порядка.
Лаба по информатике
Министерство общего и профессионального образования РФ Владимирский Государственный Университет Кафедра УИТЭС Лабораторная работа N2 ИЗУЧЕНИЕ ПРИНЦИПОВ ОРГАНИЗАЦИИ АРИФМЕТИКО-
Вещественные числа. Способы представления и хранения в ЭВМ
Понятие и свойства вещественного числа. Изучение основных типов данных с плавающей точкой, принятых стандартов и их представление в современных ЭВМ. Наработка навыков обращения с вещественными числами на компьютере (запись, считывание, хранение).
Сложение и вычитание целых неотрицательных чисел в двоичном коде
Числа с фиксированной точкой характеризуются длиной слова в битах, положением двоичной точки, бывают беззнаковыми или знаковыми. Позиция двоичной точки определяет число разрядов в целой и дробной частях машинного слова. Представление отрицательного числа.
Числовая и нечисловая обработка информации
Арифметические операции с целыми числами. Сложение и вычитание в дополнительном коде. Представление чисел в формате с плавающей точкой. Особенности выполнения арифметических операций в соответствии с IEEE. Точность выполнения арифметических операций.
Тесты по информатике с ответами Вариант 6
1) Чему равен 1 Гбайт? 1. 210 Мбайт 2. 103 Мбайт 3. 1000 Мбайт 4. 1000 000 Кбайт 2) Процессор обрабатывает информацию… 1. в десятичной системе счисления 2. в двоичном коде
Построение ОВС для решения формулы
Содержание 1.1 Вычисление числа К 2 1.2 Выбор параметров варианта 2 2.1 Структура вычислительного процесса 5 2.2 Последовательность обработки операндов 5
Информация. Информационные процессы. Информационные технологии 2
Информация. Информационные процессы. Информационные технологии. Последняя четверть ХХ века характеризуется интенсификацией производственной деятельности (увеличения производительности), научной и управленческой деятельности. А это в свою очередь требует обработки большого количества информации.
Стибиц (Stibitz) Джордж
Стибиц (Stibitz) Джордж, американский математик, создатель одного из первых электромеханических вычислительных устройств - двоичного сумматора.