Решение задачки начального уровня

@PuzyAka · Регистрация: 03.02.2014

Author24 — интернет-сервис помощи студентам

Дан массив треугольников с заданными длинами своих сторон,определить периметр этих треугольников и сохранить их в массиве.N массив не больше 10 но не меньше 5.
Большая просьба откликнуться сам с ассемблером дело не имею)

@skaa · 05.02.2014, 01:00

Что значит массив треугольников?

@sh2ezo · 05.02.2014, 14:40

Думаю, как-то так:

Assembler

use16
org 100h
 
mov si, src
mov di,dst
loop0:
    mov ax,[si]
    or ax,ax
    jz done
    add ax,[si+2]
    add ax,[si+4]
    mov [di],ax
    add di,2
    add si,6
    jmp loop0
done:
    ret
 
src:
    dw 1,2,3
    dw 4,5,6
    dw 7,8,9
    dw 10,11,12
    dw 13,14,15
    dw 16,17,18
    dw 19,20,21
    dw 0
    
dst:
    dw 10 dup(0)

@PuzyAka · 05.02.2014, 19:07 **[ТС]**

Я попробовал сам сделать получилось так подскажите может что не так понял)
.
.386
.model flat, stdcall
option casemap :none ; case sensitive
;#########################################################################
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
;#########################################################################
.data
sfc db "%.4lu",0 ; Строка формата для API-функции wsprintf
sResult byte 2*2+1 dup (0BBh) ; Строка с текстом числа
MsgCaption db "Результат",0 ; Заголовок сообщения

Triangle dd 01,01,01,02,02,02,03,03,03,04,04,04,05,05,05,06,06,06; Массив с длинами сторон треугольников
m = 6 ; количество треугольников
Perimeter dd m dup(0) ; пустой массив из m эллементов
;#########################################################################
.code
start:

mov eSI, offset Triangle ; адрес начала массива длин
mov eDI, offset Perimeter ; адрес начала массива периметров
mov eCX, m ; число циклов для расчета периметров

Result: ; начало цикла расчета периметра
mov EAX, [ESI] ; записать в регистр текущий эллемент массива
add esi, type Triangle ; перейти к слудующему элементу массива
add EAX, [ESI] ; сложить значение в регистре с элементом массива
add esi, type Triangle ; перейти к слудующему элементу массива
add EAX, [ESI] ; сложить значение в регистре с элементом массива
add esi, type Triangle ; перейти к слудующему элементу массива

mov [EDI], EAX ; Записать результат в массив периметров
add edi, type Perimeter ; Перейти к слудующей ячейке массива периметров
loop Result ; конец цикла расчета

mov eCX,m ; Число циклов для вывода на экран
mov eDI, offset Perimeter ; Адрес начала массива с периметрами

Output:
mov EAX, [EDI] ; Передаем значение для вывода на экран из массива
call HexMessage ; Выводим на экран расчитанное значение
add edi, type Perimeter ; Переход к следующиму элементу
loop Output

push 0 ; пустой параметр для подпрограммы выхода
call ExitProcess ; вызов API-функции выхода
;-------------------------------------------------------------------------
HexMessage proc ; начало функции вывода
pushad ; сохранить в стек все 8 E-регистров общего назначения
invoke wsprintf, ADDR sResult, ADDR sfc, EAX
invoke MessageBox, NULL, addr sResult, addr MsgCaption, MB_OK
popad ; извлечь из стека все 8 E-регистров общего назначения
ret
HexMessage endp ; конец функции вывода
;-------------------------------------------------------------------------
end start ; конец программы

@Ethereal · 05.02.2014, 19:19

Ну так если при запуске твоя программа отрабатывает правильно, то в чем сомненья ?

@PuzyAka 0 / 0 / 0 Регистрация: 03.02.2014 Сообщений: 2
		1
	Решение задачки начального уровня 04.02.2014, 09:09. Показов 1138. Ответов 4 Метки нет (Все метки) Дан массив треугольников с заданными длинами своих сторон,определить периметр этих треугольников и сохранить их в массиве.N массив не больше 10 но не меньше 5. Большая просьба откликнуться сам с ассемблером дело не имею) 0

@skaa Хочу в Исландию 1041 / 840 / 119 Регистрация: 10.11.2010 Сообщений: 1,630
	05.02.2014, 01:00	2
	Что значит массив треугольников? 0

@PuzyAka 0 / 0 / 0 Регистрация: 03.02.2014 Сообщений: 2
	05.02.2014, 19:07 [ТС]	4
	Я попробовал сам сделать получилось так подскажите может что не так понял) . .386 .model flat, stdcall option casemap :none ; case sensitive ;######################################################################### include \masm32\include\windows.inc include \masm32\include\user32.inc include \masm32\include\kernel32.inc includelib \masm32\lib\user32.lib includelib \masm32\lib\kernel32.lib ;######################################################################### .data sfc db "%.4lu",0 ; Строка формата для API-функции wsprintf sResult byte 2*2+1 dup (0BBh) ; Строка с текстом числа MsgCaption db "Результат",0 ; Заголовок сообщения Triangle dd 01,01,01,02,02,02,03,03,03,04,04,04,05,05,05,06,06,06; Массив с длинами сторон треугольников m = 6 ; количество треугольников Perimeter dd m dup(0) ; пустой массив из m эллементов ;######################################################################### .code start: mov eSI, offset Triangle ; адрес начала массива длин mov eDI, offset Perimeter ; адрес начала массива периметров mov eCX, m ; число циклов для расчета периметров Result: ; начало цикла расчета периметра mov EAX, [ESI] ; записать в регистр текущий эллемент массива add esi, type Triangle ; перейти к слудующему элементу массива add EAX, [ESI] ; сложить значение в регистре с элементом массива add esi, type Triangle ; перейти к слудующему элементу массива add EAX, [ESI] ; сложить значение в регистре с элементом массива add esi, type Triangle ; перейти к слудующему элементу массива mov [EDI], EAX ; Записать результат в массив периметров add edi, type Perimeter ; Перейти к слудующей ячейке массива периметров loop Result ; конец цикла расчета mov eCX,m ; Число циклов для вывода на экран mov eDI, offset Perimeter ; Адрес начала массива с периметрами Output: mov EAX, [EDI] ; Передаем значение для вывода на экран из массива call HexMessage ; Выводим на экран расчитанное значение add edi, type Perimeter ; Переход к следующиму элементу loop Output push 0 ; пустой параметр для подпрограммы выхода call ExitProcess ; вызов API-функции выхода ;------------------------------------------------------------------------- HexMessage proc ; начало функции вывода pushad ; сохранить в стек все 8 E-регистров общего назначения invoke wsprintf, ADDR sResult, ADDR sfc, EAX invoke MessageBox, NULL, addr sResult, addr MsgCaption, MB_OK popad ; извлечь из стека все 8 E-регистров общего назначения ret HexMessage endp ; конец функции вывода ;------------------------------------------------------------------------- end start ; конец программы 0

@Ethereal 6770 / 2739 / 384 Регистрация: 17.02.2013 Сообщений: 4,047
	05.02.2014, 19:19	5
	Ну так если при запуске твоя программа отрабатывает правильно, то в чем сомненья ? 0