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

[forum4uxa]

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]

Это и ЕСТЬ в паскале... Ты задание приведи, что именно надо посчитать... А так hiv прав - этот код зацикливается...

Добавлено:
А все почему? Потому, что числа очень быстро вылетают за допустимые пределы (банальное переполнение)...

[forum4uxa]

Это и ЕСТЬ в паскале... Ты задание приведи, что именно надо посчитать... А так hiv прав - этот код зацикливается...

Добавлено:
А все почему? Потому, что числа очень быстро вылетают за допустимые пределы (банальное переполнение)...

i и k...
а вообще
1. Использование встроенного ассемблера, отладка, окно просмотра и диалог изменения переменных (регистров), окно регистров.
2. Программная модель процессора 8086, регистры, методы адреса-ции, система команд.
3. Реализовать фрагмент программы на ассемблере, эквивалентный указанному на языке Pascal по индивидуальному заданию.

[hiv]

3. Реализовать фрагмент программы на ассемблере, эквивалентный указанному на языке Pascal по индивидуальному заданию.

Т.е. паскалевский код и есть задание? Тогда беги к преподу и скажи, что типа в задании ошибка зацикливания - пусть поправит. А в остальном (ассемблерный код) похоже все сходится. Я немного счас занят, потом посмотрю досканальней.

[forum4uxa]

Т.е. паскалевский код и есть задание? Тогда беги к преподу и скажи, что типа в задании ошибка зацикливания - пусть поправит. А в остальном (ассемблерный код) похоже все сходится. Я немного счас занят, потом посмотрю досканальней.

если поможешь, с меня чоколадка

[Malice]

Вот так примерно это делает сам паскаль:

mov     i, 57
mov     k, 19
@n:
cmp     i, 119
jnb     @ext
mov     ax, k
shr     ax, 1
add     ax, i
xor     dx, dx
mov     cx, 11
div     cx
xchg    ax, dx
cmp     ax, 5
jnz     @w
mov     ax, i
sub     ax, k
mov     i, ax
jmp     @n
@w:
mov     ax, i
shr     ax, 1
mov     cx, ax
mov     ax, k
mul     k
add     ax, cx
mov     k, ax
jmp     @n
@ext: