Форум программистов, компьютерный форум, киберфорум
Наши страницы
Assembler, MASM, TASM
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 21, средняя оценка - 4.67
Vladikking
0 / 0 / 0
Регистрация: 22.04.2011
Сообщений: 31
#1

Вывести на экран элементы массива, кратные 5 - Assembler

23.04.2011, 12:43. Просмотров 3363. Ответов 5
Метки нет (Все метки)

Пожалуйста, помогите решить.
Задан одномерный массив. Вывести на экран элементы массива, кратные 5 и их количество. Массив задать в сегменте данных или ввести с клавиатуры.

Добавлено через 19 часов 26 минут
Очень прошу, помогите пожалуйста! Не ужели никто не знает? Просто я в ассемблере полный ноль.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2011, 12:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести на экран элементы массива, кратные 5 (Assembler):

в массиве вначале массива расположить элементы,кратные 2
Assembler...в массиве а(20),вначале массива расположить элементы,кратные...

Дан массив. Вывести на экран второй, четвертый и т.д. элементы
Дан массив. Вывести на экран второй, четвертый и т.д. элементы.

Дан массив. Вывести на экран все неотрицательные элементы
Дан массив. Вывести на экран все неотрицательные элементы.

Вывести положительные элементы массива
я написал програму которая вычисляет, а точнее прросто выводит положительные...

Вывести попарно элементы массива
Добрый день, помогите, пожалуйста разобраться что тут не так, и как должно быть...

Вывести среднее арифметическое элементов массива на экран
Не проходите мимо! Прошу помогите пожалуйста!! Вот код он считает среднее...

5
Ant1971on
265 / 260 / 11
Регистрация: 24.12.2010
Сообщений: 328
23.04.2011, 15:42 #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
cseg segment
assume cs:cseg,ds:cseg,es:cseg,ss:cseg
org 100h
 
start:  mov ah,09h
    mov dx,offset msg
    int 21h
        mov si,offset array
    mov bx,5
    mov cx,l_arr
srch:   mov ax,[si]
    xor dx,dx
    div bx
    cmp dx,0 
    jnz nxt
    mov ax,[si] 
    call OutInt
    mov al,','
    int 29h
    inc cnt
nxt:    add si,2
    loop srch
    mov ah,09h
    mov dx,offset mes_cnt
    int 21h
    xor ax,ax
    mov al,cnt
    call OutInt
    ret
 
array dw 1,15,25,134,7,50,83,250,65535,54,325,34,45
l_arr=($-array)/2
msg db 'Элементы массива, кратные пяти:$'
mes_cnt db 13,10,'Число элементов массива, кратных пяти:$'
cnt db 0
 
cseg ends
end start
Процедура OutInt здесь
3
Vladikking
0 / 0 / 0
Регистрация: 22.04.2011
Сообщений: 31
23.04.2011, 16:07  [ТС] #3
А куда эту процедуру OutInt в коде вставить?
0
Ant1971on
265 / 260 / 11
Регистрация: 24.12.2010
Сообщений: 328
23.04.2011, 16:12 #4
Да куда угодно, лишь бы не смешивать с основной программой, например, после ret.
0
Vladikking
0 / 0 / 0
Регистрация: 22.04.2011
Сообщений: 31
23.04.2011, 16:18  [ТС] #5
Вот так?

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
cseg segment
assume cs:cseg,ds:cseg,es:cseg,ss:cseg
org 100h
 
start:  mov ah,09h
        mov dx,offset msg
        int 21h
        mov si,offset array
        mov bx,5
        mov cx,l_arr
srch:   mov ax,[si]
        xor dx,dx
        div bx
        cmp dx,0 
        jnz nxt
        mov ax,[si]     
        call OutInt
        mov al,','
        int 29h
        inc cnt
nxt:    add si,2
        loop srch
        mov ah,09h
        mov dx,offset mes_cnt
        int 21h
        xor ax,ax
        mov al,cnt
        call OutInt
        ret
 
OutInt proc
        
;; если число знаковое, то необходимо расскоментировать следующие строки
;; Проверяем число на знак.
;       test    ax, ax
;       jns     oi1
;
;; Если оно отрицательное, выведем минус и оставим его модуль.
;       mov  cx, ax
;       mov     ah, 02h
;       mov     dl, '-'
;       int     21h
;       mov  ax, cx
;       neg     ax
;; Количество цифр будем держать в CX.
;oi1:  
        xor     cx, cx
        mov     bx, 10 ; основание сс. 10 для десятеричной и т.п.
oi2:
        xor             dx,dx
        div     bx
; Делим число на основание сс. В остатке получается последняя цифра.
; Сразу выводить её нельзя, поэтому сохраним её в стэке.
        push    dx
        inc     cx
; А с частным повторяем то же самое, отделяя от него очередную
; цифру справа, пока не останется ноль, что значит, что дальше
; слева только нули.
        test    ax, ax
        jnz     oi2
; Теперь приступим к выводу.
        mov     ah, 02h
oi3:
        pop     dx
; Извлекаем очередную цифру, переводим её в символ и выводим.
;; раскоментировать если основание сс > 10, т.е. для вывода требуются буквы
;       cmp             dl,9
;       jbe             oi4
;       add             dl,7
;oi4:
        add     dl, '0'
        int     21h
; Повторим ровно столько раз, сколько цифр насчитали.
        loop    oi3
        
        ret
 
OutInt endp 
 
array dw 1,15,25,134,7,50,83,250,65535,54,325,34,45
l_arr=($-array)/2
msg db 'Элементы массива, кратные пяти:$'
mes_cnt db 13,10,'Число элементов массива, кратных пяти:$'
cnt db 0
 
cseg ends
end start
0
Ant1971on
265 / 260 / 11
Регистрация: 24.12.2010
Сообщений: 328
23.04.2011, 16:32 #6
Ага, только в начале процедуры нужно сохранить значения используемых регистров, а в конце их восстановить, т.е. процедура должна выглядеть вот так:
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
OutInt proc
    push ax
    push bx
    push cx
    push dx
        
        xor     cx, cx
        mov     bx, 10 ; основание сс. 10 для десятеричной и т.п.
oi2:
        xor     dx,dx
        div     bx
        push    dx
        inc     cx
        test    ax, ax
        jnz     oi2
        mov     ah, 02h
oi3:
        pop     dx
        add     dl, '0'
        int     21h
        loop    oi3
 
    pop dx
    pop cx
    pop bx
    pop ax
        
        ret
 
OutInt endp
2
23.04.2011, 16:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2011, 16:32
Привет! Вот еще темы с решениями:

Вывести на экран элементы массива, кратные 2 и кратные 5, подсчитать их количество
задан массив из 40 элементов принадлежащих отрезку от А до Б(вводятся с...

Вывести на экран элементы массива кратные 5 и их индексы
Создать двумерный целочисленный массив 5×3 Вывести на экран элементы массива...

Вывести на экран все элементы массива, кратные М
Задание в турбо паскале. Звучит следующим образом: Вывести на экран все...

Вывести на экран элементы массива, кратные 5, и их индексы
помогите, пожалуйста 1. Дан целочисленный массив А. Вывести на экран...


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

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

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