![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 19.04.2010
Сообщений: 2
|
![]()
Уважаемые форумчане, есть задача:
i:=1; k:=1024; repeat if ((i*i+k) or 9)=3 then i:=i*(i+k) else k:=k-i until i>k; Прога на паскале. Нужно реализовать данный фрагмент на ассемблере. Ответы и на паскале и на ассемблере должны быть одинаковыми. У меня не выходит. Направьте меня пожалуйста! Я сделал это так, но похоже неправильно: program kontr1; uses crt; var i,k:word; begin clrscr; asm mov i,1 mov k,1024 @cycle: mov ax,i mul i mov bx,ax add bx,k or bx,9 cmp bx,3 je @then mov ax,i sub k,ax jmp @end @then: mov ax,i add ax,k mul i mov i,ax @end: cmp ax,k ja @cycle end; writeln ('i=',i,' k=',k); i:=1; k:=1024; repeat if ((i*i+k) or 9)=3 then i:=i*(i+k) else k:=k-i until i>k; writeln ('i=',i,' k=',k); readln; end. Заранее спасибо ![]() |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 15.07.2008
Сообщений: 615
|
![]() Код:
xor eax, eax
xchg [eax], eax |
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 19.04.2010
Сообщений: 2
|
![]()
Спасибо огромное! Но к сожалению не получилось вставить этот код в паскалевскую программку
![]() Последний раз редактировалось yurassik; 20.04.2010 в 11:43. |
![]() |
![]() |
![]() |
#4 |
Участник клуба
Регистрация: 11.01.2010
Сообщений: 1,139
|
![]()
yurassik
В DOS-овском паскалевском комплекте должны быть ассемблер tasm и компилятор tlink, а в борландовском Дельфи -- ассемблер tasm32 и компилятор tlink32 и ilink32 -- ищи лучше! |
![]() |
![]() |
![]() |
#5 |
Участник клуба
Регистрация: 08.10.2007
Сообщений: 1,185
|
![]() |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 05.01.2010
Сообщений: 42
|
![]()
А МОЖИТЕ НАПИСАТЬ ПОДРОБНЕЕ КАК ПОЛУЧИТЬ ЕХЕ-ШНИК?
Я СОХРАНИЛА С РАСШИРЕНИЕМ ASM ТЕКСТ ИЗ БЛОКНОТА, НО ЧТО ДЕЛАТЬ ДАЛЬШЕ? ЧТО ИМЕННО ЗАПУСКАТЬ ИЗ БОРЛАНД ПАСКАЛЯ??? ОБЪЯСНИТЕ, ПОЖАЛУЙСТА!!! |
![]() |
![]() |
![]() |
#7 | |
Форумчанин
Регистрация: 10.09.2009
Сообщений: 352
|
![]() Цитата:
Для начала - читать учебник по ассемблеру. Потом - качать компилятор (masm, tasm, fasm, nasm, нужное подчеркнуть) и компилить |
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ассемблер+Паскаль. КР. Работа с клавишами клавиатуры. | newprog12 | Фриланс | 2 | 26.01.2010 21:25 |
Ассемблер и Паскаль | maziLa | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 05.12.2009 17:50 |
Модульое програмирование.Паскаль.Ассемблер. | maziLa | Помощь студентам | 1 | 02.12.2009 05:51 |
Ассемблер и Паскаль не дружат... | Monte-Kristo | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 7 | 16.06.2009 13:03 |