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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.11.2007, 13:52   #1
Mariaaa
Новичок
Джуниор
 
Регистрация: 12.11.2007
Сообщений: 1
По умолчанию [assembler] вывести слова в кот-ых есть erv

Есть программа которая создает файл и записывает туда строку. Потом открывает любой файл, считывает его и выводит и выводит всё его содержимое на экран. А мне нужно чтобы выводились на экран только те слова, вкоторых есть сочетание букв erv. Помогите доделать программу пожалуйста!
Вот прога:
Код:
ideal
model small
stack 256

dataseg
filename  db 40 dup(24h)
str1      db 80 dup(24h)
nl        db 10,13,24h
handle    dw 0
msg_file_create db '‚ўҐ¤ЁвҐ Ё¬п ᮧ¤ ў Ґ¬®Ј® д ©« :',10,13,24h
msg_file_open   db '‚ўҐ¤ЁвҐ Ё¬п ®вЄалў Ґ¬®Ј® д ©« :',10,13,24h
msg_str         db '‚ўҐ¤ЁвҐ бва®Єг:',10,13,24h
msg_er_create   db 'ЋиЁЎЄ  ЇаЁ ᮧ¤ *ЁЁ д ©« !',10,13,24h
msg_er_open     db 'ЋиЁЎЄ  ЇаЁ ®вЄалвЁЁ д ©« !',10,13,24h

codeseg
startupcode

; Ї®«гзҐ*ЁҐ Ё¬Ґ*Ё ᮧ¤ ў Ґ¬®Ј® д ©« 
mov ah,09h
lea dx,[msg_file_create]
int 21h
mov ah,0Ah
lea dx,[filename]
int 21h
mov ah,09h
lea dx,[nl]
int 21h

; ASCII -> ASCIIZ
xor ax,ax
mov al,[filename+1]
mov si,ax
mov [filename+2+si],0

; ᮧ¤ *ЁҐ д ©« 
xor cx,cx
mov ah,3Ch
lea dx,[filename+2]
int 21h

jnc next1

er_create:
mov ah,09h
lea dx,[msg_er_create]
int 21h
jmp exit

next1:
mov [handle],ax

; Ї®«гзҐ*ЁҐ бва®ЄЁ
mov ah,09h
lea dx,[msg_str]
int 21h
mov ah,0Ah
lea dx,[str1]
int 21h
mov ah,09h
lea dx,[nl]
int 21h

; § ЇЁбм бва®ЄЁ
xor cx,cx
mov cl,[str1+1]
mov bx,[handle]
lea dx,[str1+2]
mov ah,40h
int 21h

; § ЄалвЁҐ д ©« 
mov ah,3Eh
int 21h

; Ї®«гзҐ*ЁҐ Ё¬Ґ*Ё ®вЄалў Ґ¬®Ј® д ©« 
mov ah,09h
lea dx,[msg_file_open]
int 21h
mov ah,0Ah
lea dx,[filename]
int 21h
mov ah,09h
lea dx,[nl]
int 21h

; ASCII -> ASCIIZ
xor ax,ax
mov al,[filename+1]
mov si,ax
mov [filename+2+si],0

; ®вЄалвлҐ д ©« 
mov ah,3Dh
mov al,00b
;mov al,2
lea dx,[filename+2]
int 21h
jnc next2

er_open:
mov ah,09h
lea dx,[msg_er_open]
int 21h
jmp exit

next2:
mov [handle],ax
mov bx,ax

; звҐ*ЁҐ д ©« 
read:
mov ah,3Fh
mov cx,79
lea dx,[str1]
int 21h

mov di,ax
mov [str1+di],24h

; ўлў®¤ бзЁв **ле ¤ **ле
mov ah,09h
lea dx,[str1]
int 21h

cmp di,cx
jb close
jmp read

; § ЄалвЁҐ д ©« 
close:
mov bx,[handle]
mov ah,3Eh
int 21h

exit:
exitcode
end
Mariaaa вне форума Ответить с цитированием
Старый 12.11.2007, 15:04   #2
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

этот язык знать полезно, но как правило его знают не все..... что уж и говорить про написание программ.
Обратитесь на специализированный http://www.wasm.ru/forum/
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вывести строку задом-наперёд (assembler) Nikolai_90 Помощь студентам 1 03.06.2008 08:03
Найти и вывести все слова,у котоpых число гласных букв пpевышает число согласных. Briz Помощь студентам 2 11.05.2008 00:56
Поиск 'Слова' JakSon Работа с сетью в Delphi 1 20.04.2008 00:13
есть ячейки А, В, С. в ячейку С нужно вывести резултат С=А*В*0,1% А^ександр Microsoft Office Excel 1 18.02.2008 11:12
Вывести на экран те слова, у которых первая буква входит в него 2 раза. GN_ Паскаль, Turbo Pascal, PascalABC.NET 2 31.12.2006 09:14