Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2018, 13:42   #1
fen_x
Новичок
Джуниор
 
Регистрация: 15.12.2018
Сообщений: 2
По умолчанию Дописать программу на TASM

Необходимо, чтобы программа искала состоит ли введенное слово из символов введенной строки, а также есть ли это слово в словаре (library).
Первая часть программы работает, а часть программы со словарем - нет.
Код:

.model small
.stack 100h
.data
    string_request db "Please, enter string:", 0Dh, 0Ah, '$'
    string_word_request db 0dh,0ah,"Please, enter the word:", 0Dh, 0Ah, '$'
    warning_string db 0dh,0ah,"Invalid Input!", 0Dh, 0Ah, '$'
    string db 254,256 dup (?)       
    string_word db 254,256 dup (?)  
    library db 'cat table hand head','$'
  
    
    input macro
    mov ax, ds
    mov ds, ax
    MOV AH,9 
    MOV DX, offset string_request
    INT 21h
    endm
    
.code        
    
begin:

    mov ax, @data
    mov ds, ax
    
    input
    
    mov ah, 0Ah
    mov dx, offset string
    int 21h 
        
    jmp q
    
string_word_warning:

    mov dx, offset warning_string
    mov ah, 9
    int 21h
    
q: 
    mov dx, offset string_word_request
    mov ah, 9
    int 21h     

    mov ah, 0Ah
    mov dx, offset string_word
    int 21h    

    mov di, 2              ; string
    mov si, 2              ; string_word 
    mov bp, 2    
 
x:  
    cmp string_word[si], 0dh
    je string_word_warning
    mov bl, string_word[si]         
    cmp string[di], bl
    jnz bad_symbol
     
good_symbol:
    mov di, 2
    inc si
    cmp string_word[si],0dh 
    je start
    jmp x

bad_symbol:
    inc di
    cmp string[di], 0dh
    je string_word_warning
    jmp x
                                ;до этого момента программа работает
start:   
 
    cmp library[bp],' '
    jne y
    inc bp
    jmp start
        
y:   
    mov bl, library[bp]         
    cmp string_word[si], bl
    jnz bad
     
good:
    
    inc bp
    inc si
    cmp string_word[si],' '
    je final
    cmp string_word[si],0dh
    je final
    
    jmp y

bad:
    cmp string_word[si], 0dh
    je string_word_warning
    mov si, 2
b:
    inc bp
    cmp library[di], 0dh
    je string_word_warning
    cmp library[bp],' '
    je start
    jmp b
    
final:
         
    cmp library[bp],' '
    je win
    cmp library[bp], 0dh
    je win
    jmp string_word_warning
    
win:  
mov ax,4c00h   
int 21h   
end begin
fen_x вне форума Ответить с цитированием
Старый 17.12.2018, 13:42   #2
alexcoder
Форумчанин
 
Регистрация: 31.05.2009
Сообщений: 786
По умолчанию

fen_x, обращайтесь e-mail: informatik101@mail.ru
Telegram: @alexcoder1
vk.com/alexcoder1
Помощь с программами:
vk.com/alexcoder1
e-mail: informatik101@mail.ru
alexcoder вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дописать программу coolmancool2000 Помощь студентам 3 28.11.2017 16:12
Помогите дописать программу - допишите в программу формулу m=sqrt(re^2+lm^2) ( Delphi ) nicroma Помощь студентам 0 24.12.2013 19:59
Как переделать программу на TASM? подскОжите как упростить данную программу а то билеберда какая-то datileo Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 25.02.2013 11:56
дописать программу dimidze Общие вопросы C/C++ 16 12.12.2012 17:26
Дописать программу Deshrefresh Помощь студентам 0 04.12.2010 13:31