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

[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.