RFpro.ru: Ассемблер? Это просто! Учимся программировать

RFpro.ru: Ассемблер? Это просто! Учимся программировать Нажмите, если рассылка отображается некорректно или без картинок

Реклама

Хостинг портала RFpro.ru: Московский хостер Профессиональный хостинг на базе Linux x64 и Windows x64 РАССЫЛКИ ПОРТАЛА RFPRO.RU Чемпионы рейтинга экспертов в этой рассылке Boriss Статус: Академик Рейтинг: 2024 • повысить рейтинг » _Ayl_ Статус: Практикант Рейтинг: 1863 • повысить рейтинг » vladisslav Статус: 5-й класс Рейтинг: 1168 • повысить рейтинг » / КОМПЬЮТЕРЫ И ПО / Программирование / Assembler (Ассемблер) Номер выпуска: 1320 Дата выхода: 13.04.2010, 21:00 Администратор рассылки: Лысков Игорь Витальевич, Модератор Подписчиков / экспертов: 417 / 70 Вопросов / ответов: 1 / 1 IRC-канал по теме: #assembler Вопрос № 177751: Уважаемые эксперты. Помогите пожалуйста написать программу. Требуется вычислить значения заданных функций с помощью TASM, используя стандартные директивы сегментации. Все переменные описать в разных сегментах данных, каждую функцию — в виде от... Вопрос № 177751: Уважаемые эксперты. Помогите пожалуйста написать программу. Требуется вычислить значения заданных функций с помощью TASM, используя стандартные директивы сегментации. Все переменные описать в разных сегментах данных, каждую функцию — в виде отдельной подпрограммы, используя разные способы передачи параметров. Вычисления, которые встречаются несколько раз, оформить в виде макрокоманд. a=(ln3(1+cos|z-1|)+0,71y)/(2x-3+0,005zy) b=ln3(1+cos|z-1|)+5 Заранее спасибо Отправлен: 08.04.2010, 20:56 Вопрос задал: Comtessa D, Посетитель Всего ответов: 1 Страница вопроса » Отвечает Лысков Игорь Витальевич, Модератор : Здравствуйте, Comtessa D. Программа в приложении Приложение: ;Требуется написать программу для вычисления двух выражений ;с использованием макросов и процедур. ;Каждую переменную(x,y,z) описывать в отдельных сегментах данных ;a=(ln^3(1+cos|z-1|)+0,71y)/(2x^(-3)+0,005zy) ;b=ln^3(1+cos|z-1|)+5 .386 ;необходимо для команды fcos sseg segment stack "stack" db 1024 dup (0) sseg ends dsegX segment use16 para public \'data\' x dq 1.5 dsegX ends dsegY segment use16 para public \'data\' y dq 5.6 dsegY ends dsegZ segment use16 para public \'data\' z dq 1.1 dsegZ ends dseg segment use16 para public \'data\' a dq ? b dq ? ;константы c71 dq 0.71 c2 dq 2. c3 dq 3. cm3 dq -3. c5 dq 5. c005 dq 0.005 dseg ends ;в st должно находиться xlog[2]y POWER MACRO fld st ;x*log[2]e->st(1) frndint ;округляем st до целого fsub st(1),st ;st(1)-=st fxch ;st(1)<->st f2xm1 ;st=(2 в степени st) - 1 fld1 ;1->st fadd ;st+=1 fscale ;exp = st * (2 в степени st(1)) fstp st(1) ;чтобы убрать значение из st(1) ENDM ;(ln^3(1+cos|z-1|) LN3Z MACRO zoff fld c3 ;3 (для fyl2x) les bx, dword ptr zoff ;address z fld qword ptr es:[bx] ;z->st fld1 ;1 fsubp ;z-1 fabs ;|z-1| fcos ;cos(|z-1|) fld1 ;1 faddp ;1+cos(|z-1|) fld1 ;1 fxch ;st(1)<->st fyl2x ;st=1*log[2]st=log[2](1+cos(|z-1|)) fldl2e ;log[2]e fdivp ;st=ln(1+cos(|z-1|)) fyl2x ;st=st(1)*log[2]st=3*log[2]st POWER ;находим (ln()^3) ENDM cseg segment para use16 public \'code\' assume cs:cseg, ss:sseg, ds:dseg start: mov ax,sseg mov ss,ax mov ax,dseg mov ds,ax push dsegX ;в стек длинные адреса x push offset x push dsegY ;y push offset y push dsegZ ;z push offset z call calc_a ;получаем в st ответ fstp a ; и сохраняем его в переменной push dsegZ ;z push offset z call calc_b ;получаем в st ответ fstp b ; и сохраняем его в переменной mov ax,3c00h int 21h par_z equ [bp+4] ;для адресации в стеке par_y equ [bp+8] par_x equ [bp+12] calc_a proc push bp mov bp,sp LN3Z par_z ;st = ln^3(1+cos|z-1|) les bx, dword ptr par_y ;длинный указатель на y fld qword ptr es:[bx] ;st = y fmul c71 ;st = 0.71*y faddp ;st = ln^3(1+cos|z-1|)+0.71y fld cm3 ;st = -3 les bx, dword ptr par_x ;длинный указатель на x fld qword ptr es:[bx] ;st = x fyl2x ;st=st(1)*log[2]st=(-3)*log[2]x POWER ;находим x^(-3) fmul c2 ;2*x^(-3) les bx, dword ptr par_z ;длинный указатель на z fld qword ptr es:[bx] ;st = z les bx, dword ptr par_y ;длинный указатель на y fmul qword ptr es:[bx] ;st = z*y fmul c005 ;st = 0.005*z*y faddp ;st = 2*x^(-3)+0.005*z*y fdivp ;st=ln^3(1+cos|z-1|)+0.71y / 2*x^(-3)+0.005*z*y pop bp ret 12 calc_a endp calc_b proc push bp mov bp,sp LN3Z par_z ;st = ln^3(1+cos|z-1|) fadd c5 ;st = ln^3(1+cos|z-1|) + 5 pop bp ret 4 calc_b endp cseg ends end start ----- Удачи! Ответ отправил: Лысков Игорь Витальевич, Модератор Ответ отправлен: 09.04.2010, 17:28 Номер ответа: 260725 Украина, Кировоград Тел.: +380957525051 ICQ # 234137952 Mail.ru-агент: igorlyskov@mail.ru Абонент Skype: igorlyskov Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 260725 на номер 1151 (Россия) | Еще номера » Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.) Оценить выпуск » Нам очень важно Ваше мнение об этом выпуске рассылки! Задать вопрос экспертам этой рассылки » Скажите "спасибо" эксперту, который помог Вам! Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА на короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа. Полный список номеров » * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов) ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются. *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании. © 2001-2010, Портал RFpro.ru, Россия Авторское право: ООО "Мастер-Эксперт Про" Автор: Калашников О.А. | Программирование: Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2010.6.14 от 03.03.2010

Как вам этот выпуск ?  Дайте свой отзыв  или  Оцените   5     4     3     2     1,   можно письмом:  5     4     3     2     1

Обнови гардероб с картой Ситибанка ! Льготный период кредитования -- до 50 дней!   Вспомни детство! Аппарат для приготовления сахарной ваты - отличное угощение!   Скачай журнал "Всемирный следопыт" 8 городов на воде. 5 открытий Моне. Химера Ремарка.

На Forex играют? А с нами зарабатывают! Репутация, проверенная временем. Подробнее ...<>promo.akmos.ru Споры вокруг Windows 7! Новая версия операционной системы Windows 7 - в чем ее обвиняют?<>luxury-info.ru Windows Хорошие Товары от Спекулянта. Широкий выбор.<>www.spekulyant.ru

Найди делового партнера в СНГ! Деловые предложения от потенциальных бизнес-партнеров из СНГ: дилеров, представителей, агентов, дистрибьюьеров, поставщиков, инвесторов. БизнесПартнер.ру - тысячи предпринимателей нашли бизнес-партнеров! Рассылки Subscribe.Ru подписаться по почте | на сайте >>>

Поддержка подписчиков Другие рассылки этой тематики Другие рассылки этого автора Подписан адрес: admin10383.deep@blogger.com Код этой рассылки: comp.prog.assembler Архив рассылки    Обсудить рассылку Обсудить выпуск Этот выпуск в архиве Отписаться Вебом Почтой Убрать рекламу Вспомнить пароль Рассылка производится: Subscribe.Ru / ЗАО "Интернет-Проекты" / О компании / Политика конфиденциальности