Легенда: Наследие Драконов – бесплатная ролевая онлайн игра
Вы не авторизованы
Войдите в игру

Наши сообщества



Форум «Легенда: Наследие Драконов»
Форум > Таверна > Кто Asembler знает? )
страницы: [ << < 1 2 > >> ]

Кто Asembler знает? )

JackPot [5] 
0
23 Апреля 2008 21:30:14
Нужна ОООЧЕНЬ простая прога. До вечера. Прога - посчитать первые 30 чисел последовательности фибоначи (первые 2 члена - 1, следущие - сумма 2-х предидущих).
Дам 5з, ток нужны коменты к каждой строчке - что она делает...
На С - написал бы сам за минуту - а асм вообще не знаю
:sad:
0
asp [5]  24 Апреля 2008 01:28:39 #20
луп и через стек. + естественно int 21h для вывода ;) (т.е. в стеке держать 2 числа и выводить по мере расчёта).
Либо сначала запихать в стек все 30 значений, а потом раскрутить стек и выдать всё на вывод )
В общем - Ubuntu 8.04/FF 3.0b5/Flash 9.0 r115.
Да, всё глючит. Нет, я не извращенец. Винду ставить не буду. Вайн не предлагать.
0
billyk [6]  24 Апреля 2008 02:11:55 #21
Давно не писал на асме, за правильность не отвечаю :rolleyes:
mov cx, 0h
mov ax, 01h заноосим начальное значение
push ax записываем в стек
z: pop bx считываем значение из стека
push ax записываем в стек
add ax, bx суммируем, результат запишеться в АИкс
add cx, 01h увеличиваем cx на 1(это можно было сделать покрасивее, но мне лень :razz: )
cmp cx, 0fh cравниваем cx и 15
jnz z если флаг не равен нулю прыгаем на z
0
billyk [6]  24 Апреля 2008 02:14:56 #22
если правильно денег не надо - я всеравно не играю, а шмот раздал бедным, лучше пивом :biggrin:
0
Lathan [8]  24 Апреля 2008 02:20:20 #23
мде :eek:
0
Verde Orrore [9]  24 Апреля 2008 02:31:40 #24
так красивее -

mov cx, 0fh
mov ax, 01h заноосим начальное значение
push ax записываем в стек
z: pop bx считываем значение из стека
push ax записываем в стек
add ax, bx суммируем, результат запишеться в АИкс
loop z
Нам не дано предугадать, как наше слово отзовется... (с)
0
Verde Orrore [9]  24 Апреля 2008 02:35:38 #25
сорь, для 30 чисел


mov cx, 1сh (количество итераций)
mov ax, 01h заноосим начальное значение
push ax записываем в стек
z: pop bx считываем значение из стека
push ax записываем в стек
add ax, bx суммируем, результат запишеться в АИкс
loop z (декремент CX и переход если CX не равен 0)
Нам не дано предугадать, как наше слово отзовется... (с)
0
Verde Orrore [9]  24 Апреля 2008 02:45:37 #26
Чтобы все было в стеке, так -

mov cx, 1сh (количество итераций)
mov ax, 01h заноосим начальное значение
push ax записываем в стек
z: pop bx считываем значение из стека
push ax записываем в стек
push ax записываем в стек
add ax, bx суммируем, результат запишеться в АИкс
loop z (декремент CX и переход если CX не равен 0)
Нам не дано предугадать, как наше слово отзовется... (с)
0
billyk [6]  24 Апреля 2008 03:13:46 #27
Verde Orrore [9] 02:45 , 24 Апр 2008


Чтобы все было в стеке, так -

mov cx, 1сh (количество итераций)
mov ax, 01h заноосим начальное значение
push ax записываем в стек
z: pop bx считываем значение из стека
push ax записываем в стек
push ax записываем в стек зачем ах два раза записываешь?
add ax, bx суммируем, результат запишеться в АИкс
loop z (декремент CX и переход если CX не равен 0)

кста мы забыли, что надо сумма всех чисел тут еще надо будет ввести dx

TITLE Prog1
.MODEL TINY
.486
.CODE
ORG 100h

beg: mov dx, 00h
mov ax, 01h
mov cx, 1ch
push ax
z: pop bx
push ax
add dx, ax
add ax, bx
loop z
mov ax, 4c00h
int 21h
end beg

вроде должно работать(под tasm), специально последнее написал без комментов, думаю по предыдущим версиям поймешь, что к чему :smile:
З.Ы.
на форуме табы не работают :evil:
0
Verde Orrore [9]  24 Апреля 2008 03:35:55 #28
Про сумму в задании ничего не сказано
Второй раз в стек чтобы вся последовательность осталась в нем
Нам не дано предугадать, как наше слово отзовется... (с)
страницы: [ << < 1 2 > >> ]
 
Официальный сайт бесплатной онлайн игры «Легенда: Наследие Драконов»


© ООО «АСТРУМ ЛАБ».
All rights reserved.
All trademarks are the property of their respective owners.
Наверх
Вниз
Нашли ошибку? Выделите слово или предложение с ошибкой и нажмите Ctrl+Enter.
Мы проверим текст и, в случае необходимости, поправим его.