проверить код

[delfin07]

masm

model small
.STACK 256
.DATA
a dw 5
b dw 6
c dw 1
d db 3
y db ?
.code
main: 
mov AX,@data;
mov DS,AX

mov ax,5
cmp ax,a
jl m1
jge k1

mov ax,5
cmp ax,b
jl m2
jge k2

mov ax,5
cmp ax,c
jl m3
jge k3

mov ax,5
cmp ax,d
jl m4
jge k4
 
mov ax,a
add ax,b
add ax,c
add ax,d
mov y,ax

m1:
mov ax,a
idiv a
mov a,ax
k1:
mov a,0

m2:
mov ax,b
idiv b
mov b,ax
k2:
mov b,0

m3:
mov ax,c
idiv c
mov c,ax
k3:
mov c,0

m4:
mov ax,d
idiv d
mov d,ax
k4:
mov d,0

  
exit:
mov ax,4c00h
int 21h
END main;

[rpy3uH]

что за глупые вопросы? запусти и проверь

[delfin07]

НАдо чтоб соответствовала Этому(Даны четыре числа. Найти сумму квадратов тех чисел, которые больше 5. В программе цикл не использовать)

[Mikl___]

delfin07
в сообщении #1 в тексте программы написан наркоманский бред
Даны четыре числа (тип числа? целочисленное? вещественное? размер числа: байт? слово? двойное слово? или др.?). Найти сумму квадратов тех чисел, которые больше 5 (квадрат числа больше 5? или само число больше 5?) (если вещественное число больше 2,2360679774997896964091736687313, тогда его квадрат будет больше 5, если целое число больше 2, тогда его квадрат также больше 5). В программе цикл не использовать.
1. заводишь переменную result=0
2. берешь очередное число из массива из четырех чисел и если это число больше 2 возводишь его в квадрат (команды mul или imul для целых чисел или fmul для вещественных) и этот квадрат суммируешь с переменной result.
3. повторяешь пункт 2 четыре раза (В программе цикл не использовать!)

[Serge_Bliznykov]

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

сумму квадратов тех чисел, которые больше 5 (если вещественное число больше 2,2360679774997896964091736687313, тогда его квадрат будет больше 5,

коллега, вы, имхо, переусложнили.
в условии сказано тех чисел, которые больше пяти. ЧИСЕЛ, больших пяти, а не их квадраты больше пяти!

[Mikl___]

Serge_Bliznykov
А Вам не разу не попадались IT-попрошайки, которым требуется "проверить код", "решить задачу" и всё это непременно срочно, бесплатно, а сами авторы при этом не могут даже нормально пересказать условие этой задачи? не приходилось ли Вам задавать наводящие вопросы? уточнять диалект ассемблера, требуемую ось и т.д.?

[Serge_Bliznykov]

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

А Вам не разу не попадались IT-попрошайки, которым требуется "проверить код", "решить задачу" и всё это непременно срочно, бесплатно, а сами авторы при этом не могут даже нормально пересказать условие этой задачи? не приходилось ли Вам задавать наводящие вопросы? уточнять диалект ассемблера, требуемую ось и т.д.?

Mikl___, да Вы что?!! А что, такие "попрошайки" реально бывают?!

p.s. сорри за оффтоп

имхо, тут, в данном случае, насчёт того, какие числа нужно отобрать, в задании сказано чётно! Насчёт всего остального - полностью согласен с вашими замечаниями!

[DiemonStar]

самое весёлое - что в самой первой строчке топика стоит masm, но ни одного макроса я не вижу... а задачка явно к этому и сводится)

.masm
model small
.STACK 256

.DATA
chisla dw 5, 4, 3, 1
y       dw 0

TestValue macro aa
              mov ax, aa
              cmp ax, 5
              jle zero
              mul ax
              jmp stopm
zero:       mov ax,0 
stopm:
TestValue endm

.code
main: 
mov AX,@data;
mov DS,AX

TestValue word ptr [Chisla]
add y, ax
TestValue word ptr [Chisla+2]
add y, ax
TestValue word ptr [Chisla+4]
add y, ax
TestValue word ptr [Chisla+6]
add y, ax
  
mov ax,4c00h
int 21h
END main;

[Mikl___]

DiemonStar
мелкие замечания:
1) если числа в массиве chisla имеют размер word тогда под квадрат числа, а тем более под сумму квадратов нужно отводить переменную размером dword
2) макросы есть не только в masm, но и в tasm, fasm, nasm и т.д.

[DiemonStar]

1) если числа в массиве chisla имеют размер word тогда под квадрат числа, а тем более под сумму квадратов нужно отводить переменную размером dword

в исходном варианте там был вообще байт) для указанных значений слова за глаза хватит.

2) макросы есть не только в masm, но и в tasm, fasm, nasm и т.д.

помню-помню... высказывание про masm скорее навело на способ, которым это нужно сделать)