Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

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

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

Boriss Статус: Академик Рейтинг: 1689 ∙ повысить рейтинг »

_Ayl_ Статус: Студент Рейтинг: 1506 ∙ повысить рейтинг »

vladisslav Статус: 5-й класс Рейтинг: 1060 ∙ повысить рейтинг »

Вопрос № 176121: Уважаемые эксперты нужно доделать и протестировать программу приведенную ниже. программа должна вводить данные в 16 с.с. все остальное работает без отказно ,следовательно нужно доработать процедуру Innumber(доработать), также в этой процедуре ...

Уважаемые эксперты нужно доделать и протестировать программу приведенную ниже.

программа должна вводить данные в 16 с.с. все остальное работает без отказно ,следовательно нужно доработать процедуру Innumber(доработать), также в этой процедуре дожна использоваться процедура Check_sym которая также прилогается в листинге.
все остально не менять,большая прозьба!
вся проблема в том что в программе должна использоваться буферизированная функция расширенной версии ДОС 3Fh!
вся проблема процедуры ввода числа в том что буфер портится когда вводится 2е число!
но по заданию нельзя использовать функцию ввода с очисткой буфера,а нужно именно ту что указана выше...
Помогите с решением,заранее спасибо!

Отправлен: 19.01.2010, 04:46
Вопрос задал: Середа Олег Эдуардович, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
;программа должна вводить данные в 16 с.с. все остальное работает без отказно, ;следовательно нужно доработать процедуру Innumber(доработать), также в этой ;процедуре дожна использоваться процедура Check_sym, которая также прилагается в листинге. ;все остальное не менять,большая просьба! ;вся проблема в том, что в программе должна использоваться буферизированная функция расширенной версии ДОС 3Fh! ;вся проблема процедуры ввода числа в том что буфер портится когда вводится 2е число! ;но по заданию нельзя использовать функцию ввода с очисткой буфера,а нужно именно ту что указана выше... sseg segment stack "stack" db 1024 dup(0) sseg ends dseg segment Op db \'Операция: $\' Op1 db \'cоздание файла\',13,10,\'$\' Op2 db \'открыть файл для чтения\',13,10,\'$\' Op3 db \'открыть файл для записи\',13,10,\'$\' Op4 db \'открыть файл для чтения/записи\',13,10,\'$\' Op5 db \'чтение из файла\',13,10,\'$\' Op6 db \'запись в файл\',13,10,\'$\' Op7 db \'закрытие файла\',13,10,\'$\' Adr_Op dw Op1,Op2,Op3,Op4,Op5,Op6,Op7 Err22 db \'Ошибка: $\' Err1 db \'номера функции\', 13,10,\'$\' Err2 db \'файл не найден\', 13,10,\'$\' Err3 db \'путь доступа не найден\', 13,10,\'$\' Err4 db \'открыто слишком много файлов\', 13,10,\'$\' Err5 db \'доступ не разрешен\', 13,10,\'$\' Err6 db \'файлового номера\', 13,10,\'$\' Err7 db \'блок управления помятью разрушен\', 13,10,\'$\' Err8 db \'недостаточно памяти\', 13,10,\'$\' Err9 db \'адреса блока памяти\', 13,10,\'$\' Err10 db \'оборудования\', 13,10,\'$\' Err11 db \'фориата\', 13,10,\'$\' Err12 db \'кода доступа\', 13,10,\'$\' Err13 db \'данных\', 13,10,\'$\' Err14 db \' \', 13,10,\'$\' Err15 db \'дисковода\', 13,10,\'$\' Err16 db \'попытка удалить оглавление\', 13,10,\'$\' Err17 db \'не то устройство\', 13,10,\'$\' Err18 db \'нет больше файлов\', 13,10,\'$\' Err19 db \'обнаружен конец файла\',13,10,\'$\' err20 db \'недопустимый символ\',13,10,\'$\' err21 db \'число не помещается в поле integer\',13,10,\'$\' Adr_Er dw Err1,Err2,Err3,Err4,Err5,Err6,Err7,Err8,Err9 dw Err10,Err11,Err12,Err13,Err14,Err15,Err16,Err17,Err18 dw err19,err20,err21 Quit_DOS db 13,10,\'Для выхода в DOS нажмите любую клавишу$\' msg1 db \'Введите две цифры:код операции и код ошибки\',10,13,\'$\' msg2 db \'Введите размеры матрицы м(2..7) и n(2..7)\',10,13,\'$\' msg3 db \'Введите элементы матрицы\',10,13,\'$\' msg4 db \'Исходная матрица A[1.. ,1.. ]\',13,10,\'$\' ;Подставить м - кол-во строк в позицию 23 ;Подставить n - кол-во столбцов в позицию 28 msg5 db \'Преобразованная матрица A[1.. ,1.. ]\',13,10,\'$\' ;Подставить м - кол-во строк в позицию 30 ;Подставить n - кол-во столбцов в позицию 35 msg6 db \'Ввод элементов с клавиатуры<k> или из файла<f>\',10,13,\'$\' msg7 db \'Вывод результатов на экран<s> или в файл<f> \',10,13,\'$\' msg8 db \' \',10,13,\'$\' crlf db 13,10,\'$\' buf_out db 70 dup (?) db 13,10,\'$\' Sign db ? sym db ? tsym db ? kol_digit db ? c10 dw 10 n dw ? m dw ? a dw 50 dup(?) File_nom dw ? File_nom_in dw ? File_nom_out dw ? Name_file db \'ishod.dat\',0 N_file_rez db \'rez.dat\',0 dbx dw ? dseg ends cseg segment assume cs:cseg, ss:sseg,ds:dseg lab1 proc far push ds xor ax,ax push ax mov bx,dseg mov ds,bx push ds pop es ;--------------------------------- mov file_nom_in,0 mov file_nom_out,1 mov ah,00h mov al,3 int 10h rep_in: lea dx,msg2 call wr_str ;"Введите размеры матрицы" call In_number ;Вводим m ;--------Проверка значений размера матрицы на диапозон (2..7) mov m,ax or al,\'0\' ;Кто будет превращать в символ ?!!!!!!!!!!!!!!!!!! mov msg4+22,al mov msg5+29,al call In_number ;Вводим n ;--------Проверка значений размера матрицы на диапозон (2..7) mov n,ax or al,\'0\' ;в символ \'0\'-\'9\' !!!!!!!!!!!!!!!!!! mov msg4+27,al mov msg5+34,al call Writeln ;-----Определение направления ввода lea dx,msg6 call wr_str ;\'Ввод элементов с клавиатуры<k> или из файла<f>\' mov ah,0ch ;Ввод символа с предварительной mov al,08h ;очисткой буфера int 21h ; mov tsym,al cmp al,\'f\' je op_f lea dx,msg3 call wr_str ;\'Введите элементы матрицы\' jmp in_el op_f: ;_____Открывает файл для чтения mov al,0 lea dx,Name_file ; call open_f mov fILE_nom,ax ; запомнить номер файла mov file_nom_in,ax ;---------------ВВод элементов матрицы in_el: mov cx,m mov si,0 c1: push cx mov cx,n mov bx,0 c2: call In_number mov a[bx+si],ax inc bx inc bx loop c2 pop cx mov ax,n shl ax,1 add si,ax loop c1 call writeln ;_______Закрываем файл ввода cmp tsym,\'f\' jne menu_out mov bx,file_nom call Close_f mov file_nom_in,0 menu_out: ;-----Определение направления вывода lea dx,msg7 call wr_str ;\'Вывод результатов на экран<s> или в файл<f> \' mov ah,0ch ;Ввод символа с предварительной mov al,08h ;очисткой буфера int 21h ; mov tsym,al cmp al,\'f\' jne out_el ;_____Открывает файл для записи mov al,1 lea dx,N_file_rez; call Create_f mov fILE_nom,ax ;запомнить номер файла mov file_nom_out,ax out_el: ;Вывод исходной матрицы lea dx,msg4 call wr_str ;Приглашение ввода строки call out_matr ;Обработка матрицы push di si bx ax cx dx bp mov di,1 mov cx,n j: mov dx,0 mov si,m i: call adres push di mov di,ax mov ax,a[di] pop di cmp ax,0 jne nenul inc dx push si c100 : call adres push di mov di,ax mov bp,ax mov ax,2 push dx imul n pop dx sub di,ax mov ax,a[di] mov di,bp mov a[di],ax pop di dec si cmp si,dx jle m101 jmp c100 m101: mov si,dx call adres push di mov di,ax mov ax,0 mov a[di],ax pop di pop si inc si nenul : dec si cmp si,dx jle v jmp i v: inc di loop j pop bp dx cx ax bx si di ;Вывод результирующей матрицы lea dx,msg5 call wr_str ;Приглашение ввода строки call out_matr ;_______Закрываем файл вывода cmp tsym,\'f\' jne main_ret mov bx,File_nom;файловый номер call Close_f mov file_nom_out,1 main_ret: call Wait_E ret lab1 endp ;------------------------------------------ adres proc near push si dx di mov ax,si dec ax mul n dec di add ax,di mov dx,2 imul dx pop di dx si ret adres endp out_matr proc near push cx si bx ax mov cx,m mov si,0 c11: push cx mov cx,n mov bx,0 c21: mov ax,a[bx+si] call out_number inc bx inc bx loop c21 call writeln pop cx mov ax,n shl ax,1 add si,ax loop c11 call Writeln pop ax bx si cx ret out_matr endp ;----------------------------------- Out_number proc near ;Процедура переводит число в регистре АХ в символьную форму ;и записывает его цифры, начинная с последней в строку buf_out. ;Затем строка buf_out выводится на экран процед. WR_str. ;Для обращения к процедуре используются операторы: ;----------------------mov ax,<число> ;----------------------call Out_number push cx push dx push di mov cx,8 mov di,0 c111: mov buf_out[di],\' \' inc di loop c111 mov buf_out[di],\'$\' dec di mov sign,0 cmp ax,0 jge m30 mov sign,1 neg ax m30: cwd div c10 add dl,30h mov buf_out[di],dl dec di cmp ax,0 jne m30 cmp sign,0 je m31 mov buf_out[di],\'-\' m31: lea dx,buf_out call wr_str pop di pop dx pop cx ret Out_number endp In_number proc near ;Процедура производит посимвольный ввод ;с клавиатуры числа, перевод его в фор- ;мат integer и возвращает число в регистре АХ push dx bx cx ;лишний AX, в нем результат !!!!!!!!!!!!!!!!!! ;------Цикл проверки управляющих символов до первой цифры mov dx,0 mov cx,4 c3: mov bx,file_nom_in call Rd_Sym_f ;Считываем один символ ? cmp ax,1 ;Количество считанных символов равно 1 ? je m1 ; - Да. Следовательно конец файла не обнаружен? ;----Обнаружен конец файла mov ax,19 push ax mov ax,5 push ax jmp m100 m100: call Er_IO ;--------------------------- m1: call Check_sym ; Определение типа символа (тип возвращ. в АХ) cmp ax,0 ;если код меньше пробела, то пропускаем !!!!!!!!!!!!!!! je c3 ;_____Обнаружен первый неуправл. символ cmp ax,4 ;Это недопустимый символ? jne m2 ; - Нет. ;-----Обнаружен недопустимый символ m3: mov ax,20 push ax mov ax,5 ;было а !!!!!!!!!!!!!!!!!!!!! push ax jmp m100 ;-----Введен допустимый символ, которым может быть ; "0..9,A..F" m2: cmp ax,1 ;Это символ "0..9 or A..F" ? je m4 cmp ax,2 je m5 m4: mov al,sym mov ah,0 sub al,30h jmp m6 m5: mov al,sym mov ah,0 sub al,37h jmp m6 m6: shl dx,4 or dx,ax loop c3 m22: mov ax,dx pop cx bx dx ret In_number endp Check_Sym proc near ;Процедура определяет тип символа в поле Sym и возвращает код ;типа символа в регистре AX. ; | ; ; | 1, цифра; ;AX=< 2, letter; ; | ; ; | 4, любой иной символ. m10: cmp sym,\' \' ;пропустим управляющие коды !!!!!!!!!!!!!!!!!!!! ja ml1 mov ax,0 ret ml1: cmp sym,\'0\' jb m14 cmp sym,\'9\' ja m12 mov ax,1 ret m12: cmp sym,\'A\' jb m14 cmp sym,\'F\' ja m13 mov ax,2 ret m13: cmp sym,\'a\' ;проверим на малые hex-цифры !!!!!!!!!!!!!!!! jb m14 cmp sym,\'f\' ja m14 and sym,0dfh ;превратим для единообразия в большие mov ax,2 ret m14: mov ax,4 ret Check_Sym endp ;---------Конец основной программы Er_IO proc near ;Процедура обработки критических ошибок операций ;вода-вывода. В процедуру через стек передаются код ;ошибки и код операции. Управление возвращается в DOS. ;Для обращения к процедуре используются операторы: ;----------------------push <код ошибки> ;----------------------push <код операции> ;----------------------call Er_IO lea dx,op ;Вывод фразы "Операция:" call wr_str ; mov bp,sp ;Выбор из стека кода mov bx,[bp+2] ;операции и адреса строки dec bx ;с названием операции shl bx,1 ; mov dx,adr_op[bx] ; call wr_str ;Вывод названия операции lea dx,err22 ; call wr_str ;Вывод фразы "Ошибка:" mov bx,[bp+4] ;Выбор из стека кода dec bx ;ошибки и адреса строки shl bx,1 ;с названием ошибки mov dx,adr_er[bx] ; call wr_str ;Вывод названия ошибки lea dx,quit_dos ;Вывод фразы "Для выхода в DOS call wr_str ;нажмите любую клавишу" call wait_E ; mov ah,4cH ; int 21h ; ret Er_io endp Create_f proc near ;Процедура создания файла. Файл открывается для записи/чтения ;Для обращения к процедуре используются операторы: ;----------------------lea dx,Name_file; ;----------------------call Create_f ;----------------------mov fILE_nom,ax ; запомнить номер файла push cx mov ah,3ch mov cx,0 ;Атрибут обычного файла int 21h jnc Cr_ret push ax ;Код ошибки mov ax,1 ;Код операции push ax call Er_IO Cr_ret: pop cx ret Create_f endp Open_f proc near ;Процедура открытия файла. Режим работы с файлом определяется ;значением регистра al. ; | 0 - только чтение ; al= < 1 - только запись ; | 2 - чтение/запись ;Для обращения к процедуре используются операторы: ;----------------------mov al,<код режима работы> ;----------------------lea dx,Name_file; ;----------------------call Create_f ;----------------------mov fILE_nom,ax ; запомнить номер файла push dx push ax ;сохраняем код режима mov ah,3dh int 21h jnc Op_ret pop dx ;восстанавливаем код режима and dx,0ffh ;и формируем код операции add dx,2 ; push ax ;Код ошибки push dx ; Погружаем код операции в стек call Er_IO Op_ret: pop dx pop dx ret Open_f endp Rd_Sym_f proc near ;Процедура чтения символа из файла. Считанный символ помещается ;в закрепленное поле Sym. ;Для обращения к процедуре используются операторы: ;----------------------mov bx,File_nom;файловый номер ;----------------------call Rd_Sym_f push cx push dx mov ah,3fh mov cx,1 ;Максимальное количество считываемых байт lea dx,sym int 21h jnc Rd_ret push ax ;Код ошибки mov ax,5 ;Код операции push ax call Er_IO Rd_ret: pop dx pop cx ret Rd_Sym_f endp Close_f proc near ;Процедура закрытия файла. ;Для обращения к процедуре используются операторы: ;----------------------mov bx,File_nom;файловый номер ;----------------------call Close_f mov ah,3eh int 21h jnc Cl_ret push ax ;Код ошибки mov ax,7 ;Код операции push ax call Er_IO Cl_ret: ret Close_f endp wr_str proc near push ax push bx push cx push dx push si mov si,dx mov cx,0 c$1: cmp byte ptr [si],\'$\' je c$2 inc si inc cx jmp c$1 c$2: mov bx,file_nom_out mov ah,40h int 21h jnc Wr_ret1 push ax ;Код ошибки mov ax,6 ;Код операции push ax call Er_IO Wr_ret1: pop si pop dx pop cx pop bx pop ax ret wr_str endp wait_E proc near lea dx,Quit_DOS call wr_str mov ah,8 int 21h ret wait_E endp writeln proc near lea dx,crlf call wr_str ret writeln endp cseg ends end lab1 Прикрепленный файл: загрузить »

-----
Удачи!

Ответ отправил: Лысков Игорь Витальевич, Модератор
Ответ отправлен: 19.01.2010, 12:25
Украина, Кировоград
Тел.: +380957525051
ICQ # 234137952
Mail.ru-агент: igorlyskov@mail.ru
Абонент Skype: igorlyskov

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258737 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »