|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.11.2008, 17:40 | #1 |
Пользователь
Регистрация: 12.11.2008
Сообщений: 12
|
Помогите пожайлуста решить задачу на ассемблере.
Нужно найти среднее арифметическое чисел от 1 до 10.
Если я не ошибаюсь, то поидее нужно как-то изменить этот код (сумма чисел от 1 до 50) text segment assume cs:text begin: mov cx,50d mov ax,00d mov bx,01d bbb: add ax,bx inc bx loop bbb fin: mov ax,4c00h int 21h text ends end begin |
12.11.2008, 21:50 | #2 |
Пользователь
Регистрация: 12.11.2008
Сообщений: 27
|
Ну если рассмотреть только обработку без ввода и вывода данных то получим примерно следующее:
text segment assume cs:text ds:text es:text ss:text org 100h begin: ;------------- ;Процедура ввода ;------------- mov si, offset buf mov cx,10 xor bx,bx sum: mov bl, byte ptr [si] add ax,bx inc si loop sum mov bl,10 div bl ; имеем среднее арифметическое в ah-целая часть,в al-остаток ;------------- ;Процедура вывода ;------------- ret buf db 10 dup(0) text ends end begin (для простоты работа с однобайтовыми числами и применение целочисленного деления)
Программы на заказ Delphi, Pascal, С++, Assembler e-mail: greatrock@mail.ru
<--Если я вам помог не забываем жать на весы |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачу в С++ | Холмс | Помощь студентам | 3 | 09.11.2008 21:06 |
Помогите пожайлуста решить задачу | RUSLAN13 | Помощь студентам | 5 | 31.10.2008 10:43 |