Форум программистов, компьютерный форум, киберфорум
Наши страницы
Assembler для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
jamie
0 / 0 / 0
Регистрация: 04.12.2017
Сообщений: 2
1

Удалить все цифры из текста

18.05.2013, 17:51. Просмотров 652. Ответов 1
Метки нет (Все метки)

ток недавно я начал писать код на Ассэмблере, посмотрите,правильно ли все? Смысл задачи "Удалить все цифры из текста"

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
data segment
s db 20 dup('$')
a db 20 dup('$')
data ends
code segment
assume cs:code, ds:data
start:
mov ax, data
mov ds, ax
mov ah, 3fh
mov dx, offset s
int 21h
mov cx, 10
mov si, 0
mov di, 0
M: cmp s[si], '0'
jb N
cmp s[si], '9'
ja N
add si, 1
jmp M
N: mov ah, s[si]
mov a[di], ah
add si, 1
add di, 1
cmp si, 11
jne M 
 
mov dl, offset a
mov ah, 09h
int 21h
mov ah, 0
int 16h
mov ah, 4ch
mov al, 00h
int 21h
code ends
end start
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2013, 17:51
Ответы с готовыми решениями:

Удалить из текста все цифры
Помогите чайнику по ассэмблеру решить эту задачу. "Удалить из текста все...

Из строки удалить все цифры.
Из строки удалить все цифры. Подсчитать количество символов "1" и "3" до...

Удалить все слова, содержащие только цифры
Помогите с программой в которой необходимо удалить все слова, содержащие только...

Удалить из текста все символы, отличные от цифр и пробелов.
помогите решить следующую задачу по ассемблеру: Удалить из текста все символы,...

В конце строки удалить все цифры 0 и символы с кодом меньше пробела (раздельная компиляция Turbo Pascal и TASM)
Помогите, пожалуйста, с ассемблером проблемы, не могу никак понять, как все...

1
Charles Kludge
Клюг
7646 / 3161 / 383
Регистрация: 03.05.2011
Сообщений: 8,382
19.05.2013, 00:46 2
Вотъ:
Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
.model  small
.386
dos_inp macro   lbl, sz
_ib_    struc  
max db  sz      ; наибольшая длина строки
len db  ?               ; сюда вернется настоящая длина
bf  db  sz dup(?)   ; тут будет то, что ввели
_ib_    ends            
lbl _ib_ <>
endm
.stack  100
.data
req db  'Enter string:$'
dos_inp buf, 80
.code   
start:  
    mov ax, @data
    mov ds, ax
    mov es, ax
; Вывод на экран 
    mov     ah, 09h
    lea     dx, req
    int     21h
; ввод строки
    mov ah, 0Ah
    lea dx, buf
    int 21h
;;
    movzx   cx, byte ptr buf.len
    lea si, buf.bf
    mov di, si
@loop:  lodsb
    cmp al, '0'
    jb  @non_num
    cmp al, '9'
    ja  @non_num
    jmp @next
@non_num:
    stosb
@next:  loop    @loop
    mov al, '$'
    stosb
    mov bx, dx
    mov word ptr [bx], 0D0Ah
; Вывод на экран 
    mov     ah, 09h
    int     21h
; выход
    mov ah, 4Ch
    int 21h
    end start
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.05.2013, 00:46

Удалить в каждом слове текста все повторные вхождения каждой буквы
Кто знает Ассемблер помогите очень прошу. №3 Задано текст, слова в котором...

Удалить слова, содержащие цифры.
Нужна помощь в решении задачи по ассемблеру. Задание:Удалить слова, содержащие...

Удалить идентификаторы из текста
Текст разделенных пробелами между словами . Идентификаторы должны быть удалены


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru