Категория
Информатика
Тип
реферат
Страницы
4 стр.
Дата
22.04.2014
Формат файла
.html — Html-документ
Архив
1022314.zip — 2.21 kb
  • umnozhenie-i-delenie-celyx-neotricatelnyx-chisel-v-dvoichnom-kode_1022314_1.html — 6.8 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

Министерство образования Республики Таджикистан

Таджикский Технический Университет им. ак. М. С. Осими

кафедра АСОИиУ

Лабораторная работа №3

«Умножение и деление целых неотрицательных чисел вдвоичном коде»

Выполнил:

Принял:

-Душанбе 2009-


Программа UmnDelDouble.

/>  


Option Explicit

Public sel As Integer

Public i, x, j, x0 As Double                          Блок инициализации программы

Public c As Integer

/>PrivateSub 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) = 1Then

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

/>


Исходный вид окна приложения.



Ваше мнение



CAPTCHA