Подпрограммы

[Цветик]

1) Если треугольник со сторонами a, b, с является равнобедренным, найти его площадь, в противном случае – периметр.


2) Дан массив из 6 элементов. Посчитать число соседств двух чисел разных знаков.
идей вообще нет=(

[Stilet]

найти его площадь, в противном случае – периметр.

Математические формулы покажи

идей вообще нет=(

А в методичке что написано?

[Vergo]

1) Если треугольник со сторонами a, b, с является равнобедренным, найти его площадь, в противном случае – периметр.

Какие тут сложности?
У равнобедренного треугольника боковые стороны равны. Т.е. a=b. (если неизвестно, какая сторона являяется основанием - то проверить также варианты: b=c? a=c?) Если да - считаете площадь (половина произведения высоты на основание). Если нет - считаете периметр (a+b+c).

2) Дан массив из 6 элементов. Посчитать число соседств двух чисел разных знаков.
идей вообще нет=(

Сравниваете в массиве пары чисел по порядку (точнее их знаки). Если знаки разные - увеличиваете значение счетчика. Всего будет 5 пар (6-5, 5-4, 4-3, 3-2, 2-1). В ассемблере независимо от размера операнда достаточно проверять знаковый бит в каждом числе (старший разряд). Если он установлен - число отрицательное.

[Цветик]

Сообщение от Vergo

Какие тут сложности?
У равнобедренного треугольника боковые стороны равны. Т.е. a=b. Если да - считаете площадь (половина произведения высоты на основание). Если нет - считаете периметр (a+b+c).

А чтобы найти высоту нужно извлекать корни как их излечь?

Сравниваете в массиве пары чисел по порядку (точнее их знаки). Если знаки разные - увеличиваете значение счетчика. Всего будет 5 пар (6-5, 5-4, 4-3, 3-2, 2-1). В ассемблере независимо от размера операнда достаточно проверять знаковый бит в каждом число (старший разряд). Если он установлен - число отрицательное.

Вот как все это написать, я не знаю

[Vergo]

А чтобы найти высоту нужно извлекать корни как их излечь?

Математический сопроцессор использовать разрешается?

[Цветик]

Сообщение от Vergo

Математический сопроцессор использовать разрешается?

Нет нельзя

[Vergo]

узнать целую часть квадратного корня числа можно, вычитая из него все нечётные числа по порядку, пока остаток не станет меньше следующего вычитаемого числа или равен нулю, и сочтя количество выполненных действий. Например, так:

9 − 1 = 8
8 − 3 = 5
5 − 5 = 0
Выполнено 3 действия, квадратный корень числа 9 равен 3.

[Цветик]

Сообщение от Vergo

узнать целую часть квадратного корня числа можно, вычитая из него все нечётные числа по порядку, пока остаток не станет меньше следующего вычитаемого числа или равен нулю, и сочтя количество выполненных действий. Например, так:

9 − 1 = 8
8 − 3 = 5
5 − 5 = 0
Выполнено 3 действия, квадратный корень числа 9 равен 3.

Спасибо но не могли бы вы это в виде кода изобразить=)

[Vergo]

Пожалуйста:

; Data:
num DW 144

START:
	mov bx, 1
	xor cx, cx
	mov ax, num
L1:
	sub ax, bx
	jl  L2
	inc cx
	add bx, 2
	jmp L1
L2:

На выходе в регистре CX искомое значение квадратного корня.

[Цветик]

Сообщение от Vergo

Пожалуйста:

; Data:
num DW 144

START:
	mov bx, 1
	xor cx, cx
	mov ax, num
L1:
	sub ax, bx
	jle L2
	inc cx
	add bx, 2
	jmp L1
L2:

На выходе в регистре CX искомое значение квадратного корня.

; ################################### ################################### ###

.386
.model flat, stdcall
option casemap :none ; case sensitive

; ################################### ################################### ###

include c:\masm32\include\windows.inc
include c:\masm32\include\user32.inc
include c:\masm32\include\kernel32.inc

includelib c:\masm32\lib\user32.lib
includelib c:\masm32\lib\kernel32.lib

; ################################### ################################### ###
.data
massA db 3,7, -21, -5, -8

buf db 8 dup(?)
frmt db "треугольник%d",0
Title1 db "Лаб4",0
a db 2
b db 2
c db 3
P db 0; периметр
p/2 db 0; полупериметр
.code

start:
add P,a
add P,b
add P,c
mov eax,P
div 2
mov p/2, eax
cmp a, b
jn a
cmp b,c
jn a
cmp a,c
jn a
invoke wsprintf,offset buf,offset frmt, P
a:; поиск площади
invoke wsprintf,offset buf,offset frmt,
invoke MessageBoxA,0,offset buf, offset Title1,MB_OK
invoke ExitProcess,0
end start


Надо как то все это соеденить=)