Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
1 / 1 / 1
Регистрация: 25.11.2010
Сообщений: 10

Прикол с целочисленным делением в ASM через PASCAL

06.03.2011, 13:44. Показов 1747. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток, столкнулся с проблемой: в технаре дали задание: написать на ассемблере
прогу, которая высчитывает значение по формуле (2*c+d-52) div (a div 4+1) и проверить результат
вычислив тоже самое через паскаль. В паскале проблем не было, а вот в ассемблере столкнулся с
интересным моментом: при целочисленном делении переменной "А" на 4 (да и на любое другое число)
выдает "на ноль делить нельзя" НО если перед делением умножить "A" на 1 то ошибки нет!
Вопрос - почему сие так происходит???) 74


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 uses crt;
var a,b,c,d,e,X,x1,x2,z,w:integer;
begin
textcolor(15); textbackground(2);
clrscr;
write('A='); ReadLn(a); gotoxy(10,1);
write('B='); ReadLn(b); gotoxy(20,1);
write('C='); readln(c); gotoxy(30,1);
write('D='); readln(d); gotoxy(40,1);
write('E='); readln(e); gotoxy(1,3); z:=4; w:=1;
writeln('Pascal:    ',((2*c+d-52) div (a div z+1)):2);
asm
mov ax,a
mul w    {убираю умножение на 1, и выдает ошибкy!!!}
div z
inc ax
mov x,ax
 
mov ax,2
mul c
add ax,d
sub ax,52
 
div x
mov x,ax
end;
writeln('Assembler: ',x);
readkey; end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
06.03.2011, 13:44
Ответы с готовыми решениями:

Счётчик импульсов, полученных делением тактовой частоты (ATmega8A, ASM)
Здравствуйте. Помогите пожалуйста с написанием программы на ассемблере. Требуется написать программу, которая бы подсчитывала...

pascal+asm, не подключается модуль asm
Не получается подключить модуль ассмблера ( находится в каталоге с .pas)). Для примера взял элементарный код на паскале: 1 {$L...

Delphi и ASM - не работает вызов функции Invoke через asm
В Delphi не работает вызов функции Invoke через asm. часть кода: asm invoke CloseHandle,ebx; invoke ExitProcess,0; ...

4
Фрилансер
 Аватар для Mad_Dog
452 / 433 / 117
Регистрация: 01.06.2010
Сообщений: 1,314
06.03.2011, 15:42
flesh74, чтобы умножить переменную С на 2 достаточно ее сдвинуть на один разряд влево.
А чтобы разделить переменную А на 4 достаточно сдвинуть ее на 2 разряда вправо...
И все это легко делается командами ассемблера.
1
1 / 1 / 1
Регистрация: 25.11.2010
Сообщений: 10
06.03.2011, 15:54  [ТС]
Цитата Сообщение от Mad_Dog Посмотреть сообщение
flesh74, чтобы умножить переменную С на 2 достаточно ее сдвинуть на один разряд влево.
А чтобы разделить переменную А на 4 достаточно сдвинуть ее на 2 разряда вправо...
И все это легко делается командами ассемблера.
эээ ммм, а можно поподробнее?)
0
Фрилансер
 Аватар для Mad_Dog
452 / 433 / 117
Регистрация: 01.06.2010
Сообщений: 1,314
06.03.2011, 15:59
Pascal
1
2
3
4
asm
  mov     ax,XXX
  shl     ax,1
end
удвоит значение аккумулятора
аналогично, но сдвиг вправо уменьшит значение вдвое...
Это самые быстрые способы умножить/разделить операнд на степени 2...
1
1 / 1 / 1
Регистрация: 25.11.2010
Сообщений: 10
06.03.2011, 16:17  [ТС]
Пасиб, это конечно безусловно более рационально, но всетаки хотелось бы понять, почему возникает ошибка в вышеприведенном мною примере
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
06.03.2011, 16:17
Помогаю со студенческими работами здесь

Перезаписать в другой текстовый документ с делением на 3 и не делением на 7
Суть : с одного текстового документа ( в котором есть числа) перезаписать числа которые делятся на 3 и не делятся на 7 в другой txt...

Передача параметров во внешнюю функцию на ассемблере
Доброго всем времени суток. Помогите разобраться, никак не могу подружить ассемблерную функцию с паскалем. По заданию, нужно написать на...

2 задачи (Pascal+ASM)
Доброго времени суток! Требуется помощь в решении. 1. Двумерные массивы: В матрице A определить сумму положительных чисел каждого...

Pascal со вставками ASM диоды клавиатуры
Привет всем! Дали задание: По нажатию С - вкл диод CapsLock, N - NumLock, S - ScrollLock, пробел - Выключаются все. Все надо сделать на...

Pascal + Asm (нужны коментарии к программе)
Откаментируйте пожалйста программу, не могу разобраться! {$G+,A+} TYPE point = record koord: integer; {nachalo poligona} ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru