VPF::[Assembler]. Подсчитать сумму цифр в строке.

user2

Дата 29.4.2007, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 27.3.2007

Репутация: 1
Всего: 1

У меня следующая задача. Буду признателен, если кто поможет.

Имеется строка из произволных символов - буквы, цифры, пробелы и т.п. Необходимо подсчитать сумму всех цифр, имеющихся в этой строке и вывести её(сумму) на экран. И ещё- для решения мне нужно использовать цепочечные команды.

anwe

Дата 29.4.2007, 20:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 9
Всего: 23

А какие это

Цитата(user2 @ 29.4.2007, 14:13

)

цепочечные

JAPH

Дата 29.4.2007, 21:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 312
Регистрация: 8.1.2007
Где: Ленобласть

Репутация: 12
Всего: 23

anwe, rep movsb, rep stosw, repne scasb и т.п.
Честно говоря, трудно представить, как их сюда притянуть. Ну в лучшем случае lodsb, в извращённом scasb. Но чтоб ещё и с префиксами...

Это сообщение отредактировал(а) JAPH - 29.4.2007, 21:40

--------------------

Что непонятно - спрашиваем smile

anwe

Дата 29.4.2007, 23:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 9
Всего: 23

Цитата(JAPH @ 29.4.2007, 21:39

)

rep movsb, rep stosw, repne scasb и т.п.

Я догадывался.
Как-то так:

Код


mov   di,offset buffer_so_strokoj
l:
mov   cx,dlina_stroki
mov   al,9
repne scasb
...
dec   al
jns   l

JAPH

Дата 30.4.2007, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 312
Регистрация: 8.1.2007
Где: Ленобласть

Репутация: 12
Всего: 23

Только в строке цифры имеют коды 30h - 39h.

--------------------

Что непонятно - спрашиваем smile

anwe

Дата 30.4.2007, 13:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 9
Всего: 23

А я писал суть и для цифр.

user2

Дата 30.4.2007, 15:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 27.3.2007

Репутация: 1
Всего: 1

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

Код


.model  small
.stack 100h
.data
  max db 100
  len db ?
  strok db 100 dup('$')
  result db "Сумма цифр=$"
.code

input proc 
 mov dx,offset max
 mov ah,0Ah
 int 21h
 ret
input endp

summa proc 
     mov si,offset strok
     mov dx,si
     dec dx
     mov cl,len
     add si,cx
     mov cx,si
     xor bx,bx
metka:
     xor ax,ax
     std
     lodsb
     push dx
     sub al,30h
     cmp al,9
     jbe AddNumb
metka2:
       pop dx  
       cmp si,dx
       je exit
       jmp metka
AddNumb:
       add bx,ax
       jmp metka2 
    ret
summa endp


output proc
pushf
push ax 
push bx
push cx
push dx
push si
xor cx, cx
xor bx, bx
push ax
mov bl, 10
cycl1:
   xor dx,dx
   div bx
   add dl, 30h
   push dx
   inc cl
   cmp ax,0
   JZ next
jmp cycl1
next:    
mov ah, 9h 
lea dx, result 
int 21h    
xor ax,ax
xor dx,dx
mov ah, 2h 
cycl2:
   pop dx        
   int 21h       
loop cycl2
pop ax
pop si
pop dx
pop cx
pop bx
pop ax
POPF
ret  
output endp

main:
mov    ax,@data
mov    ds,ax
mov    es,ax
call input
     mov dl, 10
     mov ah, 2h
     int 21h
     mov dl, 13        
     mov ah, 2h
     int 21h
call summa
exit:
     xor ax,ax
     mov ax,bx
     call output      
mov ah, 1h
int 21h
mov    ax,4ch
int    21h
end    main

anwe

Дата 30.4.2007, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 9
Всего: 23

Ну вот. Сам и сделал. Молодец!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »