| | | | |
| | | | | РАССЫЛКИ ПОРТАЛА RFPRO.RU Лучшие эксперты в разделе | Номер выпуска: | 1637 | | Дата выхода: | 30.11.2016, 12:45 | | Администратор рассылки: | Лысков Игорь Витальевич (Старший модератор) | | Подписчиков / экспертов: | 33 / 13 | | Вопросов / ответов: | 1 / 1 | Консультация # 190158: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Где скачать всё то, что предлагалось на kalashnikoff.ru? Почему-то по этому сайту, теперь предлагается недвижимость. Я видел, что кто-то вам задавал уже такой вопрос, но ваш ответ был не очень внятен. Я так и не смог разобраться где можно найти эти материалы. ...
Консультация # 190158: Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Где скачать всё то, что предлагалось на kalashnikoff.ru? Почему-то по этому сайту, теперь предлагается недвижимость. Я видел, что кто-то вам задавал уже такой вопрос, но ваш ответ был не очень внятен. Я так и не смог разобраться где можно найти эти материалы.
Дата отправки: 25.11.2016, 12:39
Вопрос задал: oabaskanov (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »
Консультирует Evgen aka Chuma (4-й класс): Здравствуйте, oabaskanov!
Диск Калашникова - приложение к книге "Ассемблер-это просто. Учимся программировать! "  | Консультировал: Evgen aka Chuma (4-й класс)
Дата отправки: 25.11.2016, 16:25
 Прикреплённый файл: посмотреть » [945.0 кб]5 нет комментария
-----
Дата оценки: 25.11.2016, 16:33 | Рейтинг ответа:  0  |
Оценить выпуск | Задать вопрос экспертам главная страница | стать участником | получить консультацию
техническая поддержка Дорогой читатель! Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно! МЫ РАБОТАЕМ ДЛЯ ВАС! | | | | | | | | | | |  |
| | | | |
| | | | | РАССЫЛКИ ПОРТАЛА RFPRO.RU Лучшие эксперты в разделе | Номер выпуска: | 1636 | | Дата выхода: | 25.11.2016, 19:45 | | Администратор рассылки: | Лысков Игорь Витальевич (Старший модератор) | | Подписчиков / экспертов: | 32 / 13 | | Вопросов / ответов: | 1 / 1 | Консультация # 190102: Здравствуйте! У меня возникли сложности с таким вопросом: Помогите пожалуйста с решение данной задачи в среде CompModel Сортировка выбором по убыванию N = 18 ...
Консультация # 190102: Здравствуйте! У меня возникли сложности с таким вопросом: Помогите пожалуйста с решение данной задачи в среде CompModel Сортировка выбором по убыванию N = 18
Дата отправки: 20.11.2016, 19:17
Вопрос задал: dteplyakova80 (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »
Консультирует Лысков Игорь Витальевич (Старший модератор): Здравствуйте, dteplyakova80!
Где-то так 
Вначале добавил кусок кода для формирования тестового массива.
При желании можно выкинуть.
rd #80 ;сформируем тестовый массив по адресу 80 wr r1 rd #1 wr @r1+ rdi 100001 wr @r1+ rd #2 wr @r1+ rd #9 wr @r1+ rd #3 wr @r1+ rd #6 wr @r1+ rdi 100005 wr @r1+ rd #10 wr @r1+ rd #100 wr @r1+ rd #5 wr @r1+ rd #4 wr @r1+ rd #3 wr @r1+ rd #2 wr @r1+ rd #1 wr @r1+ rd #0 wr @r1+ rd #8 wr @r1+ rd #7 wr @r1+ rd #6 wr @r1 rd #80 ;адрес массива wr r1 ;в r1 rd #17 ;количество на 1 меньше, т.к. последний будет на своем месте автоматически wr r2 ;в r2 ;основной цикл loop1: rd r2 ;счетчик внешнего цикла wr r3 ;счетчик внутреннего цикла, от следующего до конца, без первого (!) ;поэтому равен счетчику внешнего цикла mov r8,r1 ;сохраним адрес, куда писать очередного максимального mov r5,r1 ;сохраним адрес текущего элемента внешнего цикла, как адрес максимального rd @r1+ ;текущий элемент внешнего цикла wr r4 ;сохраним его, как максимальный mov r0,r1 ;начальный адрес элемента внутреннего цикла (на 1 больше) ;внутренний цикл поиска максимального элемента loop2: mov r6,r0 ;сохраним адрес текущего элемента rd @r0+ ;читаем очередной элемент wr r7 ;сохраним его sub r4 ;сравним с максимальным jz next ;меньше или равно js next ;на следующий элемент mov r4,r7 ;новое максимальное значение mov r5,r6 ;новый адрес максимального значения next: ;на следующий элемент внутреннего цикла jrnz r3,loop2 ;циклим по их количеству ;максимальный элемент в r4, его адрес в r5 ;поменяем местами с элементом по адресу r8 mov r0,r8 ;адрес, куда запишем найденный максимальный элемент rd @r0 ;читаем старое значение по этому адресу mov r0,r5 ;адрес нового максимального wr @r0 ;запишем элемент с адреса @r8 по адресу @r5 rd r4 ;новый максимальный элемент mov r1,r8 ;адрес, куда запишем новый максимальный wr @r1+ ;одновременно зададим адрес на следующий элемент jrnz r2,loop1 ;циклим по всем элементам hlt ;останов, массив отсортирован
Оценить выпуск | Задать вопрос экспертам главная страница | стать участником | получить консультацию
техническая поддержка Дорогой читатель! Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно! МЫ РАБОТАЕМ ДЛЯ ВАС! | | | | | | | | | | |  |
| | | | |
| | | | | РАССЫЛКИ ПОРТАЛА RFPRO.RU Лучшие эксперты в разделе | Номер выпуска: | 1635 | | Дата выхода: | 23.11.2016, 18:45 | | Администратор рассылки: | Лысков Игорь Витальевич (Старший модератор) | | Подписчиков / экспертов: | 31 / 13 | | Вопросов / ответов: | 1 / 1 | Консультация # 190021: Здравствуйте! Прошу помощи в следующем вопросе: Как можно проще и быстрее, пожалуйста, помогите... с комментариями , пожалуйста, не понятно... Тема Использование операторов сравнения (cmp), условных(Jxx), безусловных (JMP) переходов и циклов (LOOOP). Задание из двух частей. В первом задании необходимо подсчитать количество <...
Консультация # 190021: Здравствуйте! Прошу помощи в следующем вопросе:
Как можно проще и быстрее, пожалуйста, помогите... с комментариями , пожалуйста, не понятно...
Тема
Использование операторов сравнения (cmp), условных(Jxx), безусловных (JMP) переходов и
циклов (LOOOP).
Задание из двух частей. В первом задании необходимо подсчитать количество
чисел, соответствующих определенному условию на некотором числовом промежутке.
Во втором задании требуется модифицировать свою программу так, чтобы найти и
вывести на экран двухсотое число или пару чисел соответствующих заданному
условию. Если таких чисел меньше двухсот, то вывести об этом сообщение на экран.
На промежутке от 1 до 100 000
Подсчитать количество таких чисел X, что (Х+Х-1)div500 - простое число
Ответ вывести на экран
Дата отправки: 13.11.2016, 18:34
Вопрос задал: EccoVIP (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »
Консультирует Лысков Игорь Витальевич (Старший модератор): Здравствуйте, EccoVIP!
Вот программа, решающая следующую задачу:
для всех чисел Х из интервала 1:100000 находим частное от деления (Х+Х-1)/500
и проверяем его на простоту. Если простое, то считаем найденные числа.
Простота проверяется делением данного числа на все числа от 3 до √Х.
Четные числа отбрасываются сразу проверкой младшего бита на 0
Одновременно ищется 200-е число Х, удовлетворяющее условию (Х+Х-1)/500 - простое
Вывод числа делается последовательным делением числа на 10, сохранением остатка в стеке
с последующим выводом символов-цифр в обратном порядке
.model small ;модель памяти .386 ;будем использовать 32-битные регистры и команды сопроцессора MINNUM equ 1 ;начинаем счет с 1 MAXNUM equ 100000 ;до 100000 DIVNUM equ 500 ;делим на 500 .stack 200h .data sNumbersCount db "Numbers count = $" sNumber200 db "Number #200 = $" sCountLess200 db "Numbers count < 200", 0dh, 0ah, '$' temp dd ? ;здесь будет верхняя граница проверки на простое number200 dd ? ;200-е число, удовлетворяющее условию .code start: mov ax, @data ;настроим сегментный регистр данных на сегмент данных mov ds, ax call CalcSimples ;считаем простые числа ;выводим результат lea dx, sNumbersCount ;поясняющая строка mov eax, ebx ;количество чисел, удовлетворяющих условию call PrintData ;выводим cmp ebx, 200 ;сравним количество найденных чисел с 200 jb print_less_200 ;меньше - просто выводим сообщение ;выводим 200-е число lea dx, sNumber200 ;поясняющая строка mov eax, number200 ;само число call PrintData ;выводим jmp wait_key ;наожидание нажатия на клавишу print_less_200: ;чисел меньше 200 lea dx, sCountLess200 mov ah, 9 int 21h wait_key: mov ah, 0 ;ждем нажатие на клавишу int 16h mov ax,4c00h ;завершаем программу int 21h CalcSimples proc ;поиск чисел mov esi, DIVNUM ;делитель 500 xor ebx, ebx ;счетчик чисел mov edi, MINNUM ;X, начинаем с MINNUM=1 mov ecx, MAXNUM ;счетчик цикла = MAXNUM=100000 simple_loop: ;цикл поиска lea eax, [edi*2-1] ;eax = X+X-1 xor edx, edx ;подготавливаемся к делению idiv esi ;edx:eax / esi cmp eax, 2 ;рассматриваем частное от деления, отсеем числа меньшие 4 jb simple_next ;полученные числа, меньшие 2, игнорируем je simple_found ;= 2 считаем простыми cmp eax, 3 je simple_found ;= 3 также считаем простыми ;числа >= 4 анализируем на простоту push edi ;сохраним текущее число edi=X (EDI используется в процедуре) call simple ;проверяем на простоту, результат в флаге C, 1/0 - простое/непростое pop edi simple_add: adc ebx, 0 ;добавляем флаг С к счетчику найденных чисел cmp ebx, 200 ;найдем 200-е число jne simple_next mov number200, edi ;сохраним значение 200-го числа X, удовлетворяющее условию simple_next: inc edi ;следующее число Х loop simple_loop ;на продолжение цикла ret simple_found: ;явное указание, что число простое stc ;С=1 jmp simple_add ;на суммирование CalcSimples endp ;анализ на простоту числа eax путем деления на все нечетные числа, ;начиная с 3, и заканчивая корню квадратному из числа simple proc test eax, 1 ;отсеем четные числа по младшему биту je simple_no ;четные числа - непростые! mov edi, eax ;сохраним число ;найдем максимальное число, до которого будем делить ;его найдем, как корень квадратный из нашего числа mov temp, eax ;сохраним в памяти fild temp ;загрузим в сопроцессор fsqrt ;посчитаем корень fistp temp ;и извлечем обратно в память, с округлением до ближайшего целого mov ebp, 3 ;начальное значение делителя = 3 simple_cmp: ;цикла проверки на простоту cmp ebp, temp ;проверим, прошли ли крайнее значение jbe simple_continue ;нет - на продолжение проверки stc ;да - прошли все, значит число простое ret simple_continue: ;анализируем на простоту делением и проверкой остатка на 0 mov eax, edi ;наше число xor edx, edx ;подготавиваемся к делению idiv ebp ;edx:eax / ebp test edx, edx ;проверяем остаток на 0 jne simple_inc ;не ноль - на следующий делитель simple_no: clc ;разделилось нацело - число непростое! ret simple_inc: add ebp, 2 ;следующий делитель jmp simple_cmp ;на проверку выхода из анализа simple endp PrintData proc ;вывод сообщения push eax ;сохраним выводимое число mov ah, 9 ;выведем строку, адрес в dx int 21h pop eax ;наше число ;сформируем цифры числа в стеке xor cx, cx ;счетчик цифр mov esi, 10 ;будем делить на 10 digits_loop: xor edx, edx ;готовимся к делению div esi ;EDX:EAX / ESI push dx ;сохраним остаток (очередную цифру) в стеке inc cx ;считаем test eax, eax ;есть еще? jne digits_loop ;на продолжение ;выведем число mov ah, 2 ;функция вывода символа из dl print_loop: pop dx ;извлекаем очередную цифру из стека (в обратном порядке) or dl, '0' ;делаем из числа символ int 21h ;выводим loop print_loop ;по всем цифрам mov dl, 0dh ;перейдем на новую строку int 21h mov dl, 0ah int 21h ret PrintData endp end start ;конец программы с точкой входа  | Консультировал: Лысков Игорь Витальевич (Старший модератор)
Дата отправки: 17.11.2016, 13:17 5 нет комментария
-----
Дата оценки: 17.11.2016, 15:18 | Рейтинг ответа: +1 |
Оценить выпуск | Задать вопрос экспертам главная страница | стать участником | получить консультацию
техническая поддержка Дорогой читатель! Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно! МЫ РАБОТАЕМ ДЛЯ ВАС! | | | | | | | | | | |  |
| | |
