Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Лысков Игорь Витальевич Статус: Профессионал Рейтинг: 140 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 84 ∙ повысить рейтинг >>

Boriss Статус: Профессор Рейтинг: 15 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 1170
от 29.01.2009, 01:35

Вопрос № 158563: здравствуйте. у меня не получается ввести многозначные числа (<b>процедура ввода элементов</b>) пробовал по всякому, понимаю примерно в каком направлении надо копать, но по неопытности у меня получается очень громоздкий код в котором я начинаю...

Вопрос № 158.563

здравствуйте. у меня не получается ввести многозначные числа (процедура ввода элементов) пробовал по всякому, понимаю примерно в каком направлении надо копать, но по неопытности у меня получается очень громоздкий код в котором я начинаю путаться. по этому прошу помочь мне написать процедуру ввода. Нужно вводить байты положительные числа. Заранее всем благодарен. Приложение: masm model small 386 stack 512h data mes0 db 10,13,"Dlya udobstva vvoda Vvedite razmernost nxm do 9x9$" mes1 db 10,13,"Vvedite kol-vo strok $" mes1_1 db 10,13,"Vvedite kol-vo stolbcev $" mes2 db 10,13,"Vvedite elementi matrici (bayti polojitelnie chisla): $" mes3 db 10,13,"matrica $" mes4 db 10,13,"preobrazovannaya matrica $" ent db 10,13,"$" probel db " $" mas db 9 dup (9 dup (?)) max db 0 ndx db 2 dup (?) buf db 0 m db ? ; строки n db 0 ; столбцы nn db 0 i db ? j db ? code main: mov ax,@data mov ds,ax mov ax,03 int 10h ; очистка экрана call vvod_raz ; процедура ввода размерности call vvod_elem ; процедура ввода элементов call vivod_safe ; процедура вывода матрицы call preobrazovanie ; процедура преобразования матрицы call vivod_safe ; ; ********************************************* ;---------------------------------------------- mov ax,4c00h int 21h ;выход из программы ;---------------------------------------------- ; ********************************************* ; *********************************************** ; --- процедуры ----------- ; *********************************************** preobrazovanie proc mov ax,0 mov dx,0 mov al,m mov dl,n mul dx mov cx,ax ; количество циклов cikle123: push cx ; сохраняем для внутреннего цикла mov ax,0 ; очищаем ax mov al,n ; n->al mov cx,ax ; сx:=al | cx - это количество циклов mov bx,0 ; начинаем с НУЛЕВОГО элемента массива mov si,0 mov buf,0 ; максимальный элемент равен 0 cikl: xor ax,ax xor dx,dx mov al,buf mov dl,mas[si][bx] cmp dx,ax jb perebor_end ;если mas[si][bx] < buf прыгаем в конец xor ax,ax mov al,mas[si][bx] mov buf,al call ndx_save ; сохраняем координаты max элемента perebor_end: mov si,2 mov ax,si mov dl,0 mov dl,m cmp ax,dx ; если m<si выходим из цикла jb finish_pre loop cikl finish_pre: call max_nul ; обнуляем max элементы mov bx,2 ; переход на чётные элементы начиная с нуля pop cx loop cikle123 ret preobrazovanie endp ; ************ ; ************ max_nul proc ; процедура обнуления max элемента НАЧАЛО push ax push bx push cx push si push dx mov ax,0 mov bx,0 mov cx,0 mov dx,0 mov si,0 mov al,ndx[bx] mov bx,1 mov dl,ndx[bx] mov si,ax mov bx,dx mov mas[si][bx],0 pop dx pop si pop cx pop bx pop ax ret max_nul endp ; процедура обнуления max элемента КОНЕЦ ; ************ ; ************ ndx_save proc ; процедура сохранения индексов max элеметов НАЧАЛО push ax push dx xor ax,ax xor dx,dx mov ax,si mov dx,bx push bx mov bx,0 sub al,30h mov ndx[bx],al mov bx,1 sub dl,30h mov ndx[bx],dl pop bx pop dx pop ax ret ndx_save endp ; процедура сохранения индексов max элементов КОНЕЦ ; ************ ; ************ vvod_elem proc ; процедура ввода элементов НАЧАЛО mov ah,09h mov dx,offset mes2 int 21h mov al,m mul n ; proizvedenie v AX mov cx,ax ; kolich-vo ciklov -> CX mov di,0 ; nachinaem s 0 ml: ;******** push dx xor dx,dx mov ah,01h int 21h ; otpravlaet v AL mov dx,10 mul dl mov dl,al xor ax,ax mov ah,01h int 21h add dl,al mov al,10 mul dl mov dx,ax xor ax,ax mov ah,01h int 21h add dl,al pop dx mov mas[di],al ; vvod elementa add di,2 ; переход к следующему элементу ;******** mov ah,09h mov dx,offset probel int 21h loop ml mov ah,09h mov dx,offset ent int 21h mov ah,09h mov dx,offset ent int 21h ret vvod_elem endp ; процедура ввода элементов КОНЕЦ ; ************ ; ************ vivod_safe proc ; процедура вывода матрицы НАЧАЛО mov ax,0 ; очищаем ax mov al,n ; n->al mov dl,m ; m->dl mul dl ; n*m | al*dl->al mov cx,ax ; сx:=al | cx - это количество циклов mov bx,0 ; начинаем с НУЛЕВОГО элемента массива mov dx,0 push dx ciklex: mov dl,mas[bx] mov ah,2 int 21h ; вывод элемента массива mov dl,9 ; табуляция int 21h add bx,2 ;**** pop dx push bx inc dx xor ax,ax mov al,n mov bx,dx cmp ax,bx jne @IfNot lea dx,ent mov ah,9 int 21h ; enter xor dx,dx @IfNot: pop bx push dx ;**** loop ciklex pop dx mov ah,09h mov dx,offset ent int 21h ret vivod_safe endp ; процедура вывода матрицы КОНЕЦ ; ************ ; ************ vvod_raz proc ; процедура ввода размерности НАЧАЛО mov ah,09h mov dx,offset mes0 int 21h mov ah,09h mov dx,offset mes1 int 21h mov ah,01h int 21h ; otpravlaet v AL mov m,al ; stroki sub m,30h mov ah,09h mov dx,offset mes1_1 int 21h mov ah,01h int 21h ; otpravlaet v AL mov n,al ; stolbci sub n,30h mov ah,09h mov dx,offset ent int 21h ret vvod_raz endp ; процедура ввода размерности КОНЕЦ ; ************ ; ************ end main

Отправлен: 23.01.2009, 20:02 Вопрос задал: Shaman_888 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Shaman_888! В приложении программа, которая была написана для вопроса №158472 - ввод знакового числа(32-а бита), сохранение его в памяти и последующий его вывод. Если посмотрите архив рассылки, там очень много таких примеров(и для 16-ть бит и для 32-ух бит) Удачи! Приложение: ;команды компилятора ;tasm pr ;tlink pr /t model tiny code 386 org 100h ;ставим текстовый режим begin: mov ax,3 int 10h ;выводим сообщение mov ah,9 mov dx,offset dbEnter int 21h ;готовимся к вводу данных xor edi,edi xor ecx,ecx mov ebx,10 ;вводим пока не нажата клавиша "enter" InputLoop: xor ax,ax int 16h ;нажата клавиша "enter" cmp al,13 jz isStop ;нажата клавиша "миниус" cmp al,'-' jz isMinus ;проверяем диапазон цифровых клавиш cmp al,'0' jb InputLoop cmp al,'9' ja InputLoop ;нажата цифра выводим её и преобразовываем в число int 29h and eax,0fh ;меняем местами ранее введенное число и текущее xchg edi,eax ;ранее введенное число умножаем на 10 xor edx,edx mul ebx ;суммируем с текущим add edi,eax jmp short InputLoop ;введен знак "мимнус" ;проверяем если число больше 0 - игнорируем isMinus: or edi,edi jnz InputLoop ;выводим минус int 29h mov ecx,-1 jmp short InputLoop ;ввод закончен, проверяем знак isStop: or ecx,ecx jz noMinus ;переводим в доп.код not edi inc edi ;запоминаем в памяти noMinus: mov ddNumber,edi ; ; ;выводим сообщение о результате mov ah,9 mov dx,offset dbResult int 21h ;загружаем число и проверяем знак mov eax,ddNumber or eax,eax jns noZnak ;выводим знак mov al,'-' int 29h ;загружаем число снова, т.к. AL был испорчен mov eax,ddNumber ;переводим к абсолютному виду not eax inc eax ;готовимся к выводу noZnak: mov edi,10 xor cx,cx ;цикл получения остатка от деления на 10 divLoop: xor edx,edx div edi ;остаток запоминаем в стеке и считаем их количество цифр push dx inc cx ;повторяем пока не достигнем 0 or eax,eax jnz divLoop ;цикл вывода на экран в нужном порядке всех цифр из стека outputLoop: pop ax ;переводим с символьный вид or al,30h int 29h loop outputLoop ;ожидаем любую клавишу xor ax,ax int 16h ret ;данные ddNumber dd ? dbEnter db 13,10,'Enter number:$' dbResult db 13,10,'You number:$' end begin --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 23.01.2009, 21:10 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 241969 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 158.573

Здравствуйте! У меня задача: вставить код на ассемблере в программу на Visual Basic 6, которая будет считывать файл побайтно. Скажите, пожалуйста, где об этом можно почитать? Есть ли примеры таких программ? Маленькая просьба: пожалуйста, не предлагайте использовать операторы Get, Put. Огромное спасибо!! ОЧЕНЬ надеюсь на помощь!

Отправлен: 23.01.2009, 22:20 Вопрос задал: AkaProc (статус: 4-й класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Лысков Игорь Витальевич Здравствуйте, AkaProc! Вообще говоря, Вам ассемблер и не нужен... Можно вызывать API-шные функции, этого вполне достаточно. Смотрите небольшой пример в приложении Если все же хочется "прикрутить" ассемблер, то вот Вам ссылочка. Там есть интересный проект, который поможет Вам разобраться Приложение: Поект ReadFile.vbp---------------------------- Type=Exe Form=Form3.frm Reference=*G{00020430-0000-0000-C000-000000000046}#2.0#0#........WINDOWSsystem32stdole2.tlb#OLE Automation Class=cReadFile; cReadFile.cls IconForm="Form1" Startup="Form1" Command32="" Name="Project1" HelpContextID="0" CompatibleMode="0" MajorVer=1 MinorVer=0 RevisionVer=0 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="kbvideo" CompilationType=0 OptimizationType=0 FavorPentiumPro(tm)=0 CodeViewDebugInfo=0 NoAliasing=0 BoundsCheck=0 OverflowCheck=0 FlPointCheck=0 FDIVCheck=0 UnroundedFP=0 StartMode=0 Unattended=0 Retained=0 ThreadPerObject=0 MaxNumberOfThreads=1 [MS Transaction Server] AutoRefresh=1 Форма form3.frm ------------------------------- VERSION 5.00 Begin VB.Form Form1 Caption = "Read file example" ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3090 ScaleWidth = 4680 StartUpPosition = 3 'Windows Default Begin VB.CommandButton ReadFile Caption = "Read file" Height = 735 Left = 1320 style="1" 'Graphical TabIndex = 0 Top = 480 Width = 1815 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim F As New cReadFile Private Sub ReadFile_Click() Dim b As Byte, i As Long, lenght As Long F.OpenFile (void) lenght = F.FileSize() For i = 0 To lenght b = F.ReadByte() 'b - очередной байт Next i F.CloseFile (void) End Sub Класс cReadFile.cls------------------------------------------- VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "cReadFile" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, _ ByVal Access As Long, ByVal Share As Long, ByVal Security As Long, ByVal Disp As Long, _ ByVal Attr As Long, ByVal Template As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hFile As Long) As Long Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As Long, _ ByVal Count As Long, ByVal Readed As Long, ByVal Overlapped As Long) As Long Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, ByVal high As Long) As Long Private m_hFile As Long Private Const GMEM_FIXED As Long = &H0 Private Const GENERIC_READ As Long = &H80000000 Private Const OPEN_EXISTING As Long = &H3 Private Const FILE_ATTRIBUTE_NORMAL As Long = &H80 Private Sub Class_Initialize() m_hFile = 0 End Sub Private Sub Class_Terminate() If m_hFile Then CloseHandle (m_hFile) End Sub Public Sub OpenFile(void) m_hFile = CreateFile("test.txt", GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0) If m_hFile = -1 Then MsgBox "File 'test.txt' not found", , "Error" m_hFile = 0 End If End Sub Public Function ReadByte() Dim Buf As Byte, Readed As Long, Res As Boolean, i As Long If m_hFile Then Res = ReadFile(m_hFile, VarPtr(Buf), 1, VarPtr(Readed), 0) If Res And Readed = 1 Then ReadByte = Buf Else ReadByte = 0 End If Else ReadByte = 0 End If End Function Public Sub CloseFile(void) If m_hFile Then CloseHandle (m_hFile) m_hFile = 0 End If End Sub Public Function FileSize() Dim high As Long If m_hFile Then FileSize = GetFileSize(m_hFile, VarPtr(high)) Else FileSize = 0 End If End Function --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Профессионал) Украина, Кировоград ICQ: 234137952 ---- Ответ отправлен: 27.01.2009, 18:10 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242311 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо!

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru