Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Лысков Игорь Витальевич Статус: Специалист Рейтинг: 197 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 115 ∙ повысить рейтинг >>

Airyashov Статус: Студент Рейтинг: 26 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 1139
от 21.12.2008, 03:35

Вопрос № 154413: Здравствуйте! Задумал отобразить численный результат с плавающей точкой (уже как бы полученный в арифмет. сопроцессоре). Программа <u>еще не закончена как положено,</u> потому что столкнулся вот с каким местом. Я его <b>пометил;!!!!!!!!!...

Вопрос № 154.413

Здравствуйте! Задумал отобразить численный результат с плавающей точкой (уже как бы полученный в арифмет. сопроцессоре). Программа еще не закончена как положено, потому что столкнулся вот с каким местом. Я его пометил;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! После округления цифры «4» получается «3». Т.е. у меня должно было быть: 0.34 * 10 = 3.4 округляем и «3» выводим 3.4-3=0.4 0.4* 10 = 4 округляем и «4» выводим Но вот здесь «4» округляется к «3»!!!!!!!!!!!!!!!!!! Там хвостик какой-то появляется, т.е. ;{4-4 = -3.4694469519536142e-18} Я в коде это пометил. Как можно с этим бороться?? Заранее благодарю. Приложение: .286 model tiny ; #################### data? slowo dw ? number dw ? data result dd 34.75 const Decada dw 10 ; #################### code startup ; #################### fstcw slowo ;настраиваем округление к нулю or slowo,0c00h fldcw slowo fld result fld1 fld st(1) frndint fsub st(2),st ;на этом этапе будет: в st(0) целая часть, в st(2) дробная часть, next1: fcom fstsw ax sahf jc output1 fidiv Decada jmp next1 output1: ;на этом этапе : 34 превращается в 0.34 {это чтобы использовать общую подпрограмму ; вывода как целой, так и дробной частей} call next2 next2: ;путем умножения на 10 получаем очередную цифру для вывода ftst fstsw ax sahf jz output2 fimul Decada fld st ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! frndint fsub st(1),st ;{4-4 должно быть 0 у меня же st(1)-st(0)= -3.4694469519536142e-18 ; поэтому 4 и округляется к 3} fistp number jmp next2 output2: ret exit 0 ; #################### END

Отправлен: 15.12.2008, 10:30 Вопрос задал: Бартосик Феликс Михайлович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Бартосик Феликс Михайлович! А это издержки арифметики с плавающей точкой... Никогда нельзя расчитывать на точное совпадение! Я бы все же рекомендовал использовать обычное округление до ближайшего, Зная число знаков после запятой, умножаем на 10 в соответствующей степени и выводим последовательность BCD командой FBSTP Далее преобразовываем в строку, вставив в нужном месте точку. По-моему, так значительно проще. Приложение: .286 model tiny, c data? string db 32 dup (?) data c10 dd 10. result1 dd 34.75 result2 dd -34.75 result3 dd -34. result4 dd 0.256 result5 dd 2.56 result6 dd 0. .code .startup call ftoa, offset result1, 2, offset string call ftoa, offset result2, 2, offset string call ftoa, offset result3, 2, offset string call ftoa, offset result4, 2, offset string call ftoa, offset result5, 0, offset string call ftoa, offset result6, 2, offset string call ftoa, offset result6, 0, offset string .exit 0 ;pFloat - адрес float ;count - число знаков после точки ;pStr - адрес строки, куда записать числовую строку ftoa proc pFloat:word, count:word, pStr:word uses si, di, cx, dx local sBuffer:byte:10, sTemp:byte:20 mov si, pFloat fld dword ptr [si] ; float -> st[0] mov cx, count ; умножим count раз на 10 jcxz from_fpu ; если 0, то обходим mul_loop: fmul c10 loop mul_loop from_fpu: lea si, sBuffer ; 10-байтный буфер BCD кода fbstp [si] ; получили (сопроцессор больше не нужен) ;сначала преобразуем BCD -> ASCII 9 младших байт ;сохраним в порядке первым младший, причем со всеми незначащими нулями lea di, sTemp ; временный буфер mov cx, 9 ; количество парных байтов conv_loop: lodsb ; xxxx xxxx AAAA BBBB rol ax, 12 ; BBBB xxxx xxxx AAAA rol ah, 4 ; xxxx BBBB xxxx AAAA and ax, 0f0fh ; 0000 BBBB 0000 AAAA add ax, 3030h ; 3B3A xchg al, ah ; 3A3B stosw ; loop conv_loop lodsb ; последний байт содержит еще одну цифру ; (мл тетрада) и знак (80h) mov ah, al ; сохраним знак and al, 0fh or al, 30h stosb ; цифра mov di, pStr ; выходной буфер shl ah, 1 ; признак знака в С jnc copy_num mov al, '-' ; нарисуем минус stosb ;сформируем нормальную строку без незначащих нулей copy_num: mov si, 18 ; индекс последней (старшей) цифры mov ah, 0 ; признак значащего нуля mov cx, count ; для определения позиции точки dec cx ; copy_loop: test si, si ; дошли до начала? js ftoa_ret ; строка сформирована mov al, sTemp[si] ; очередная цифра dec si ; на следующую позицию cmp al, '0' ; проверяем на незначащие нули jne set_digit ; не 0 cmp ah, 1 ; ноль - значащий: рисуем по-любому je set_digit cmp si, cx ; позиция точки: рисуем нуль по-любому jne copy_loop ; циклим set_digit: mov ah, 1 ; взведем флаг значащего нуля stosb ; копируем очередную цифру cmp si, cx ; позиция точки? jne copy_loop mov al, '.' ; рисуем точку stosb jmp copy_loop ftoa_ret: mov byte ptr [di], 0; завершим строку ret ftoa endp END --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 15.12.2008, 11:56 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238670 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо, видимо так и буду делать.

Вопрос № 154.426

Здравствуйте всем!!! я неочень плохо изучала на языке ассемблера! 1.сумма чисел вида(х*х-х), начиная с 2, для заданного числа циклов. 2.факториал заданного числа(не более 6) Приложение: 1. задание MOV AX, XVAR IMUL XVAR SUB AX, XVAR дальше не получается

Отправлен: 15.12.2008, 12:15 Вопрос задала: Miwka (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Miwka! Задание 1 Заметим, что x*x-x = x*(x-1). Пусть max - заданное число циклов, тогда Код: mov cx, 2 ;x xor bx, bx ;сумма calc_loop: ;цикл mov ax, cx ;x dec ax ;x-1 mul cx ;x*(x-1) = x*x - x add bx, ax ;накапливаем сумму inc cx ;x=x+1 cmp cx, max ;x<=max jbe calc_loop ;на повтор Задание 2 Пусть max - заданное число, тогда Код: mov cx, 2 ;n mov bx, 1 ;здесь будем накапливать факториал calc_loop: ;цикл mov ax, bx ;F(n-1) mul cx ;F(n-1)*n mov bx, ax ;F(n) inc cx ;n=n+1 cmp cx, max ;n<=max jbe calc_loop ;на повтор --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 16.12.2008, 11:53 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238761 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: спасибо большое! я немножко поняла! еще раз спасибо!!!

Вопрос № 154.427

Здравствуйте всем!!! не очень плохо знать на языке ассемблера 1. задание 2*x*x*x+3*y*y, если x<y 3*x*x+2*y*y*y, если x<y 3*x*x*x+12, если x=y 2. задание x*x+y*y+3*x, если x-y=0 (x-y)*(x-y)+2*x, если x-y>0 (y-x)*(y-x)+x, если x-y<0 мне надо сдать на экзамен. заранее спасибо!!!! Приложение: 2. задание mov ax, xvar sub ax,yvar cmp ax,0 mov ax, xvar imul xvar mov bx,ax mov ax,yvar imul yvar add ax,bx дальше не знаю!

Отправлен: 15.12.2008, 12:27 Вопрос задала: Miwka (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Miwka! Задание 1 Предположу, что 2*x*x*x+3*y*y, если x>y Если не так, то чуть-чуть правим в программе... Код: mov ax, xvar ;x cmp ax, yvar ;сравним x и y jz equal jl less ;x>y mov ax, xvar ;ax = x imul ax ;ax = x*x imul xvar ;ax = x*x*x shl ax, 1 ;ax = 2*x*x*x mov bx, ax ;bx = 2*x*x*x mov ax, yvar ;ax = y imul ax ;ax = y*y add bx, ax ;bx = 2*x*x*x + y*y shl ax, 1 ;ax = 2*y*y add ax, bx ;ax = 2*x*x*x + 3*y*y jmp exit ;x<y less: mov ax, xvar ;ax = x imul ax ;ax = x*x mov bx, ax ;bx = x*x shl ax, 1 ;ax = 2*x*x add bx, ax ;bx = 3*x*x mov ax, yvar ;ax = y imul ax ;ax = y*y imul yvar ;ax = y*y*y shl ax, 1 ;ax = 2*y*y*y add ax, bx ;ax = 3*x*x + 2*y*y*y jmp exit ;x=y equal: mov ax, xvar ;ax = x imul ax ;ax = x*x imul xvar ;ax = x*x*x mov bx, ax ;bx = x*x*x shl ax, 1 ;ax = 2*x*x*x add ax, bx ;ax = 3*x*x*x add ax, 12 ;ax = 3*x*x*x + 12 exit: ;ax - результат Задание 2 Код: mov ax, xvar ;x cmp ax, yvar ;сравним x и y jz equal jl less ;x>y mov ax, xvar ;ax = x sub ax, yvar ;ax = x-y imul ax ;ax = (x-y)*(x-y) mov bx, ax mov ax, xvar ;ax = x shl ax, 1 ;ax = 2*x add ax, bx ;ax = (x-y)*(x-y) + 2*x jmp exit less: mov ax, yvar ;ax = y sub ax, xvar ;ax = y-x imul ax ;ax = (y-x)*(y-x) add ax, xvar ;ax = (y-x)*(y-x) + x jmp exit equal: mov ax, xvar ;ax = x mov bx, ax ;bx = x shl ax, 1 ;ax = 2*x add bx, ax ;bx = 3*x mov ax, xvar ;ax = x imul ax ;ax = x*x add bx, ax ;bx = 3*x + x*x mov ax, yvar ;ax = y imul ax ;ax = y*y mov ax, bx ;ax = 3*x + x*x + y*y exit: ;ax - результат --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 16.12.2008, 11:33 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238759 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.439

Здравствуйте уважаемые эксперты! Объясните пожалуйста мне действительные числа в сопроцессоре. В книге пишет: «1) Рассмотрим, как представляется число 7,375 при использовании одинарной точности. (понимаю) 2) Во-первых, заметим, что 7,375=4+2+1+1/4+1/8. (понимаю) 3) Поэтому представление этого числа в двоичной форме имеет следующий вид: 111.011b=1010*1.11011b. (не понимаю) 4) Обратите внимание на то, что и основание системы счисления, и порядок, в который оно возводится, записаны в двоичное системе. ( понимаю) 5) Итак, хранимая мантисса числа будет равна 11011b, а порядок 2+127=129, в двоичной форме 10000001b. (не понимаю) 6) Поскольку число положительное знаковый бит равен нулю. (понимаю)» Объясните пожалуйста: 1) Почему: 1010*1.11011b? 5) Почему: мантисса числа будет равна 11011b, а порядок 2+127=129? Огромное спасибо зарание!

Отправлен: 15.12.2008, 13:51 Вопрос задал: Олег Миколайович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Лысков Игорь Витальевич Разберем на примере вещественного числа одиночной точности (32 бита) Итак, условно нарисуем, как seeeeeeeemmmmmmmmmmmmmmmmmmmmmmm,где s - бит знака. Тут все понятно 0/1 означает +/-; eeeeeeee - 8 бит порядка. Для удобства принято следующее: Чтобы не иметь дело с отрицательными величинами, порядок задается в смещенной форме - он равен истинному порядку, увеличенному на значение смещения 127. В нашем примере получается 2+127=129 mmm...mm - мантисса. Мантисса хранится в нормализованном виде, считается, что целой частью числа является 1, все остальное - дробная часть И это еще не все! Эта самая целая часть не хранится, а подразумевается (раз она всегда 1)! В нашем примере: 111.011 - ненормализованное число, нормализованное - 1.11011, порядок 2 (надо будет потом умножить на 2 в степени равной порядку), порядок с учетом смещения 2+127=129=10000001b, реально хранимая мантисса - 11011 (без целой части) Т.о. имеем число 0 10000001 11011000 000000000000000b --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 15.12.2008, 16:05 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238688 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru