Вопрос № 145302: Здравтсвуйте эксперты! Помогите решить задачу, Дана программма на паскале заменить оператор for ,repeat, while на код ассемблера,!! Пример!!!! {1} program test0000; {2} var {3} c,d: byte; {4} k: integer; {5} A: a...
Вопрос № 145.302
Здравтсвуйте эксперты! Помогите решить задачу, Дана программма на паскале заменить оператор for ,repeat, while на код ассемблера,!! Пример!!!!
{1} program test0000; {2} var {3} c,d: byte; {4} k: integer; {5} A: array [3..10] of integer; {6} {7} begin {8} k:=6; {9} d:=0; {10} for c:=3 to 10 do {11} begin asm {12 if k<d then} mov al,d xor ah,ah cmp ax,k
jng @20
{14 else d:=k-d;} @20: mov al,d mov dl,byte ptr k sub dl,al mov byte ptr d,dl {15 A[c]:=d;} @30: mov al,d xor ah,ah mov bl,c xor bh,bh shl bx,1
mov word ptr A[bx-6],ax {16 k:=k+1;} inc word ptr k end; {asm} {17} end; {18} for c:=3 to 10 do {19} write (A[c]:4);writeln; {20} end. Это уже замененная! ---------------------------- Вот мой вариант:
Приложение:
Отправлен: 28.09.2008, 15:49
Вопрос задал: Saidart (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Saidart!
В приложении программа с замененными циклами. Удачи!
Приложение:
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 29.09.2008, 11:54 Оценка за ответ: 5
