помогите, почему выдаёт ошибку деление на ноль? Опции

[ne_ass]

uses crt;
var i,k:word;
BEGIN
clrscr;

asm
        mov cx, i             { ; это будет i}
        mov si, k       {; это будет k}
        mov bx, 11      {; число для вычисления модуля}

@l0:
        cmp cx, 199     {; если i больше или равно 199 выходим из цикла}
        jge @ext1

        mov ax, si
        shr ax, 1 {; деление k на 2}
        add ax, cx {; добавляем i}
        xor dx, dx {; очищаем dx для деления}
        div bx  {; делим на 11}

        cmp dx, 5{ ; сравниваем остаток}
        jnz @label2{ ; если не равен 5 - то на label2}

        sub cx, si{ ; иначе i = i - k}
        jmp @l0 ; {в начало цикла}

@label2:
        mov ax, si {; подготавливаем деление}
        xor dx, dx
        mul ax {; умножаем на себя (k*k)}
        mov dx, cx
        shr dx, 1 {; делим i на 2 }
        add ax, dx {; добавляем к резульату k*k}
        mov si, ax {; заносим результат в k }
        jmp @l0 {; в начало цикла}

@ext1:
        {... ; обработка результата}
end;
writeln('REZULTAT-ASSAMBLER');
writeln('k=',k,' i=',i);
readkey;
end.

сам цикл таков

i:=57; k:=19;
   while i<199 do
     if ((i + k div 2) mod 11) = 5 then i:=i-k else k:=k*k+(i div 2)

Сообщение отредактировано: volvo - 18.01.2007 11:18

[hiv]

В ассемблерном примере деление на ноль у тебя возникает, из-за того, что переменным i и k ты не задал начальных значений.
Более того в том примере, где ты показал как должно быть, цикл получается бесконечный. Ибо после нескольких проходов по телу цикла значения i и k становятся 57 и 17493 и более не меняются. Переменная i не меняется совсем!

[forum4uxa]

В ассемблерном примере деление на ноль у тебя возникает, из-за того, что переменным i и k ты не задал начальных значений.
Более того в том примере, где ты показал как должно быть, цикл получается бесконечный. Ибо после нескольких проходов по телу цикла значения i и k становятся 57 и 17493 и более не меняются. Переменная i не меняется совсем!

А ты не можешь подсказать где именно ошибка???

[hiv]

А ты не можешь подсказать где именно ошибка???

Здрасьте, я ваша тетя! В самом начале программы (перед директивой ASM) ставишь i:=57; k:=19;
А по поводу зацикливания - сам разбирайся, у нас телепатов нету. Ты же привел код, а для решения какой задачи не сказал. Вот и ищи теперь сам.

Сообщение отредактировано: hiv - 19.01.2007 10:13

[forum4uxa]

Здрасьте, я ваша тетя! В самом начале программы (перед директивой ASM) ставишь i:=57; k:=19;
А по поводу зацикливания - сам разбирайся, у нас телепатов нету. Ты же привел код, а для решения какой задачи не сказал. Вот и ищи теперь сам.

а всё же... почему возникает ошибка: ДЕЛЕНИЕ НА НОЛЬ , ведь значения указываем, все регистры чего нить содержат, что за дела-то?

[Malice]

После того ка я поставил "i:=57; k:=19;" в начале код зацыклился так же как и паскалевский. Значит задание выполнено верно.
Если все же есть сомнения, то можно просто откомпилировать паскалевский вариант и выдернуть из дизасма то, что получится. Тогда будет точно 1 в 1.

[forum4uxa]

После того ка я поставил "i:=57; k:=19;" в начале код зацыклился так же как и паскалевский. Значит задание выполнено верно.
Если все же есть сомнения, то можно просто откомпилировать паскалевский вариант и выдернуть из дизасма то, что получится. Тогда будет точно 1 в 1.

а можешь акценировать внимание на "дизасм" , а то я уже и незнаю, что и делать...Если не трудно можешь объяснить, а то уже начинает поднаедать сидеть 3 сутки над этой задачкой, заранее благодарен.

[Malice]

а можешь акценировать внимание на "дизасм" , а то я уже и незнаю, что и делать...

Вот здесь посмоти, я ответил уже:
как это будет выглядеть в Паскале?

[Asm]

Код

cmp dx, 5{; сравниваем остаток}
        jnz @label2{; если не равен 5 - то на label2}

jnz - переход если результат не ноль
мне кажется здесь нужно использовать JNE

[Malice]

jnz - переход если результат не ноль
мне кажется здесь нужно использовать JNE

Одно и тоже, суть - проверка флага ZF.

[forum4uxa]

и всё таки получилось у кого???

[Malice]

Ты узнал у препода на счет данного тебе цыкла ? Он виснет. Его менять нельзя. На асме делается тоже самое. В чем проблема ? Что должно получится ?

[forum4uxa]

Ты узнал у препода на счет данного тебе цыкла ? Он виснет. Его менять нельзя. На асме делается тоже самое. В чем проблема ? Что должно получится ?

препод сказал что всё нормально, поломай типа головку.

[Asm]

hiv,а есть вероятность что при заданных значениях i и k он когда нибудь расциклится????

[hiv]

hiv,а есть вероятность что при заданных значениях i и k он когда нибудь расциклится????

даже при четырехбайтовом целом k - вероятность 0%

[Malice]

hiv,а есть вероятность что при заданных значениях i и k он когда нибудь расциклится????

как это будет выглядеть в Паскале?

[forum4uxa]

как это будет выглядеть в Паскале?

Друг, а ты её запускал? работала?

[Malice]

Друг, а ты её запускал? работала?

Конечно. Да. С i=19, k=57.

[forum4uxa]

Конечно. Да. С i=19, k=57.

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

[Malice]

Вот оба варианта, оба у меня работают одинаково.


Сообщение отредактировано: Malice - 24.01.2007 12:06