VPF::[TASM]Найти числа в интервале, с условием

Azadof

Дата 19.10.2009, 19:39 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет, у меня большая просьба, помогите написать прогу на ТУРБО АССЕМБЛЕРЕ, желательно чтобы всё было как можно проще, то есть самыми простыми способами. Не откажусь от коментариев (не сочтите за наглость)

Условие:

1.Найти в заданном интервале (10000;32767) все натуральные пятизначные числа, в записи которых произведение двух крайних левых цифр равно сумме двух крайних правых цифр.

Боьлшое спасибо.

ИванМ

Дата 19.10.2009, 19:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

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

Под Dos или Windows?

Azadof

Дата 19.10.2009, 21:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Ну я редактирую и компилирую на Far, наверное тогда правильно сказать под Windows

ИванМ

Дата 19.10.2009, 21:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

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

Цитата(Azadof @ 19.10.2009, 21:04

)

Ну я редактирую и компилирую на Far

Вот это как раз ни о чем не говорит. Я имею ввиду какой тип приложения: MS DOS или Windows Console.

Azadof

Дата 19.10.2009, 21:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Всё, разобрался)) Windows Console.

ИванМ

Дата 19.10.2009, 23:03 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

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

Код


.386
locals
.model FLAT, STDCALL

extrn ExitProcess: proc
extrn GetStdHandle: proc
extrn WriteConsoleA: proc
extrn _wsprintfA: proc

.data

from    dd    10000    
to        dd    32767    
num        db    8 dup (0)    ;число для вывода
frm        db    '%d',13,10,0    ;строка формата
len        dd    0    ;длина строки
output    dd    0    ;HANDLE стандартного вывода
n1        dd    0    ;первая цифра
n2        dd    0    ;вторая цифра
n3        dd    0    ;предпоследняя цифра
n4        dd    0    ;последняя цифра

.code
start   proc    near

;получаем стандарный HANDLE вывода
push    -11
call    GetStdHandle
mov        output, eax

;10000->ecx
mov        ecx, from

@@1:

;сохраняем число в стеке
push    ecx

;деление числа на 10
mov        eax, 0
mov        edx, 0
mov        edx, ecx
mov        dx, 0
mov        ax,    cx
mov        bx, 10
div        bx
mov        n4, edx    ;n4<-остаток от деления (получили последнюю цифру)

;деление полученного числа на 10
mov        edx, eax
mov        dx, 0
div        bx
mov        n3,    edx; n3<-остаток от деления (получили предпоследнюю цифру)

;деление полученного числа на 10
mov        edx, eax
mov        dx, 0
div        bx

;деление полученного числа на 10
mov        edx, eax
mov        dx, 0
div        bx
mov        n2, edx    ;n2<-остаток от деления (получили вторую цифру)


;деление полученного числа на 10
mov        edx, eax
mov        dx, 0
div        bx
mov        n1, edx    ;n1<-остаток от деления (получили первую цифру)

;умножаем n2 на n1
mov        eax, n2
mul        n1

;складываем n3 и n4
mov        edx, n3
add        edx, n4

;сравниваем n1*n2 и n3+n4
cmp        eax, edx
;если не равны, переходим на метку @@2
jne        @@2

;преобразуем число в строку
push    ecx
push    offset frm
push    offset num
call    _wsprintfA
add        esp, 12

;выводим число на экран
push    0
push    offset len
push    7
push    offset num
push    output
call    WriteConsoleA

@@2:
;берем число из стека
pop        ecx
;увеличиваем его на 1
inc        ecx
;сравниваем с конечным числом
cmp        ecx, to
;если не больше, продолжаем цикл
jng        @@1

;завершение приложения
push    0
call    ExitProcess

start   endp
end     start

Это сообщение отредактировал(а) ИванМ - 19.10.2009, 23:13

Azadof

Дата 20.10.2009, 19:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Большое Вам спасибо!

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