Помощь - Поиск - Пользователи - Календарь
Полная версия: Архиглупый вопрос к умным людям
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
borr1
Читающий эти строки добрый человек, помоги советом - кто может мне решить  маленькое задание по Ассемблеру. Я студент 1-ого курса.  ПОГИБАю     ??? sad.gif :-[ :'(  
dark0ut
а что тебе конкретно надо?
borr1
Составить блок-схему алгоритма и программу на алгоритмическом языке Ассемблер, осуществить ввод исходного текста в ПЭВМ, выполнить отладку и получить результаты работы.

Отчет для каждого задания должен содержать:

•      блок-схему алгоритма программы;
•      листинг программы с комментариями;
•      результаты работы программы.

ЗАДАНИЕ


•      Представить алгоритм и программу умножения матриц A=(A(I,J), I=1,N, J=1,L) и B=(B(I,L), I=1,L, J=1,M). Элементы результирующей матрицы C(I,J)=A(I,K)*B(K,J), K=1,L для (I=1,N (J=1,M)).
•      В матрице найти минимальный элемент заданной строки и умножить на это число элементы того столбца, в котором расположен максимальный элемент указанной строки. ;)
___ALex___
;(********************************************************************
*********************)
;(*                                                                                       *)
;(*          Программа ищет максимальное и минимальное значения в матрице 20x20           *)
;(*              (элемент матрицы - беззнаковое целое число размером в байт)              *)
;(*  Значение максимального элемента записывается в переменную max, а минимального в min  *)
;(*                                                                                       *)
;(******************************************************************************
***********)
;в данном примере максимальным элементом будет 255, а минимальным будет 1
masm            ;используем синтаксис Макроассемблера
model      small     ;модель памяти small (код занимает один сегмент кода, данные объединены
               ;в одну группу DGROUP)
.data           ;сегмент данных
max db ?        ;байтовая переменная под максимальный элемент матрицы
min db ?        ;байтовая переменная под минимальный элемент матрицы
               ;матрица размером 20x20 (статически её инициализируем)
matrix db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,251,2,12,14,34,15,16,17,56,76,78
      db  3,4,8,9,4,25,9,7,5,255,2,12,14,34,15,16,17,56,76, 1 ;байтовая матрица 20x20
.code           ;сегмент кода
begin:          ;точка входа в программу
mov   ax,@data ;адрес сегмента данных в регистр ax
mov   ds,ax    ;ax в ds
mov   bx,0     ;bx - строки матрицы
mov   si,0          ;si - столбцы матрицы
mov   dl,matrix[bx][si] ;первый элемент матрицы в dl
mov   max,dl   ;dl в max
mov   min,dl   ;dl в min
mov   di,0     ;обнуляем счётчик строк
mov   cx,20    ;число для внешнего цикла (по строкам)
extcycle:      ;внешний цикл по строкам
push       cx       ;сохраняем в стеке счётчик внешнего цикла
mov   cx,20    ;число для внутренего цикла (по столбцам)
mov   si,0     ;обнуляем регистр перед началом перебора значений в строке матрицы
intcycle:      ;внутренний цикл по столбцам
mov   dl,matrix[bx][si] ;очередной элемент матрицы в dl
cmp   min,dl   ;сравниваем значения в min со значением в dl
jbe   next2    ;если значение в min <= очередного элемента матрицы, то идём на метку next2
mov   min,dl   ;иначе записываем в min значение из dl
next2:         ;метка "продолжения"2
cmp   max, dl  ;сравниваем значения в max со значением в dl
jae   next1    ;если значение в max >= очередного элемента матрицы, то идём на метку next1
mov   max,dl   ;иначе записываем в max значение из dl
next1:         ;метка "продолжения"1
inc   si       ;передвижение на следующий элемент в строке
loop  intcycle ;цикл по метке intcycle
inc   di       ;инкремент di
mov   ax,di    ;di в ax
mov   si,20    ;20 в si
mul   si       ;ax умножаем на si, младшая часть результата в ax, а старшая в dx
mov   bx,ax    ;ax в bx (поскольку элемент массива - байт и 19 * 20 < FFFFh),
               ;то есть результат умножения не выйдет за пределы регистра ax
               ;(при данной размерности матрицы и её элементов)
pop   cx       ;восстанавливаем внешний счётчик цикла из стека
loop  extcycle ;цикл по метке extcycle
mov   ax,4c00h ;отдаём управление ОС
int   21h      ;вызывая прерывание Dos(21h)
end begin       ;конец программы


писал другану когда-то
это конечно не твоя задачо но что есть...
может натолкнёт на какие мысли...
а писать щас у меня время нет
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.