Категория
Информатика
Тип
лабораторная работа
Страницы
1 стр.
Дата
10.06.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
151235.zip — 163.23 kb
  • umnozhenie-i-delenie-celyx-neotricatelnyx-chisel-v-dvoichnom-kode_151235_1.rtf — 2703.6 Kb
  • Readme_docus.me.txt — 125 Bytes
Рейтинг
10  из 10
Оценок
1
Оцените работу
Хорошо  или  Плохо


Текст работы


Министерство образования Республики Таджикистан
Таджикский Технический Университет им. ак. М. С. Осими
кафедра АСОИиУ
Лабораторная работа №3
«Умножение и деление целых неотрицательных чисел в двоичном коде»
Выполнил
:
Принял :
- Душанбе 2009-
Программа
UmnDelDouble.
Option Explicit
Public sel As Integer
Public i ,
x , j
, x 0
As Double
Блок инициализации программы
Public c As IntegerPrivate Sub Command1_Click()
fir. = ""
sec. = ""
res. = ""
x = 0 Процедура очистки содержимого полей
j = 0
x0 = 0
i = 0
End Sub
Private Sub ext_Click()
End
End Sub
Private Sub fir_Change()
If val(fir.) = 0 Or val(fir.) = 1 Then
lb1.Caption = fir.
Exit Sub
Else
i = (Len(fir.))
x = 0
j = 0
Do Блок кодировки в «реальном времени»
x = x + (val(Mid(fir., i, 1)) * (2 ^ j))
i = i - 1
j = j + 1
Loop Until i = 0
lb1.Caption = x
End If
End Sub



Ваше мнение



CAPTCHA