Нужна помощь в создании программы

[Екатерина57]

Написать программу на языке Ассемблера, которая позволяет ввести с клавиатуры строку символов латиницы, найти и вывести на экран только согласные буквы строки.Компилятор Tasm

[Stilet]

Я только в общих чертах дам код:

s db 100 dup(' ')
...
;Вводим строку
 xor bx,bx
 xor cx,cx
 lea dx,ptr s
 mov ah,0Ah
 int 21h

;Получаем длинну введенного
 lea si,ptr s
 inc si
 xor cx,cx
 mov cl,byte [si]
 inc si

;Заряжаем цикл вывода посимвольно
for2:
 cmp [si],'a' 
  jne continuefor
 cmp [si],'е' 
  jne continuefor
 cmp [si],'о' 
  jne continuefor
... И так далее допишешь гласные

;Выводим символ
 xor ax,ax
 xor dx,dx
 mov	 ah, 2
 mov	 dl,[si]
 int	 21h		 ; DOS - PRINT CHAR
continuefor:
 inc si
loop for2

Это из архива, так что не проверял.

[R71MT]

А ещё можно пойти таким путём..
Создаётся таблица исключений, и если такого символа в таблице нет, то её можно считать согласной. Я добавил в таблицу только пробел, заглавные и прописные буквы. Можете добавить туда цифры, знаки препинания и т.д. Размер таблицы вычисляется автоматом:

USE16
ORG 100h
JMP start

mess0   DB  13,10,' SEARCH CONSONANT LETTERS (R) ==============='
        DB  13,10,' --------------------------------------------'
        DB  13,10,' Input string: $'
mess1   DB  13,10,'       Result: $'
good    DB  13,10,' $'               ; перевод строки с бипером

output  DB  40 DUP(' '),'$'          ; буфер для согласных
table   DB  'AEIOUYaeiouy '          ; таблица исключений (с пробелом)
tSize   =   $ - table                ; размер таблицы для SCASB

start:
   MOV   AH,9                 ; запрос на ввод строки..
   MOV   DX,mess0
   INT   21h

   MOV   SI,output            ; настроим SI на буфер
find:
   MOV   DI,table             ; DI = место поиска для SCASB
   MOV   AH,1                 ; ввод с эхо средствами DOS
   INT   21h
   CMP   AL,13                ; это ENTER ?!
   JE    finish               ; да - заканчиваем ввод
@1:
   MOV   CX,tSize             ; CX = размер таблицы исключений
   REPNE SCASB                ; символ у нас в AL. Ищем его в таблице исключений
   JNZ   Agree                ; если нет такого символа, значит это согласная
   JMP   find                 ; если есть - читаем следующий символ
Agree:
   XOR   AH,AH                ; встретилась согласная.. Очищаем AH
   MOV   [SI],AX              ; ^^// и сохраняем символ в буфере по адресу SI
   INC   SI                   ; передвинем на 1 позицию в буфере
   JMP   find                 ; читаем следующий символ..

finish:                       ; юзверь нажал ENTER!
   MOV   AH,9                 ; выводим результат на экран
   MOV   DX,mess1             ; ^^// сперва выводим мессагу..
   INT   21h
   MOV   DX,output            ; ^^// потом согласные из буфера
   INT   21h
   MOV   DX,good              ; ^^// и перевод строки с бипером
   INT   21h

exit:
   XOR  AX,AX                 ; ждём клавишу и на выход!
   INT  16h
   INT  20h