Много условия за курсови работи с решени задачи
| Информационни технологии | 2009-12-04 | 68 сваляния |
Масив от 5 елемента, всеки от тип структура със следните полета; Първото е байт, второто и третото дума. Да се направи програма , която форматира втори масив (dest), в който петте елемента на първия масив са подредени по нарастващ ред на първото поле.
modell small
types equ 4
maxlen equ 5 types
tstruc struc
bel db ?
wel dw ?
bMore dw ?
Tsruc ENDS
data segment byte public DATA
sourse Tstruc 5(?)
dest Tsruc 5 dup (<>)
data ends
code segment word public code
assume cs:code, ds:data
start Up:
mov ax, data
mov ds,ax
mov si,offset sourse
mov bp,0 ;външен цикъл
mov bx,0 ;вътр. цикъл
lea di,dest
sub ax,ax
label:
mov al,[bx+si].bel
add bx,TYPES
curcle:
cmp al,[bx+si].bel
jna next
mov cx,ax
mov al,[bx+ci].bel
mov [bx+ci].bel,cl
mov [ds:bp+si].bel,al
push ax
mov ax,[ds:bp+si].wel
mov cx,[bx+si].wel
mov [ds:bp+si].wel,cx
mov [bx+si].wel,ax
sub cx,cx
sub ax,ax
mov al,[ds:bp+si].bMore
mov ce,[bx+si].bMore
mov [ds:bp+si].bMore,cl
pop ax
next:
add bx,types
cmp bx,MAXLEN
jne curcle
mov al,[ds:bp+si].bel
mov [ds:bp+di].bel,al
mov ax,[ds:bi+si].wel
mov [ds:bp+di].wel,ax
sub ax, ax
mov al,[ds:bp+si].bMore
mov [ds:bp+di].bMore,al
add bp.TYPES
mov bx,bp
cmp bp,MAXLEN_TYPES
JNE label
mov ax,4COOH
INT 21H
code ends
END start Up
МАСИВ ОТ 100 ЕЛЕМЕНТА ЕДНОБАЙТОВИ ЧИСЛА. ДА СЕ НАМЕРЯТ ПОЛОЖИТЕЛНИТЕ И ДА СЕ ЗАПИШАТ В НОВ МАСИВ.
code segment
assume cs:code,ds:code
q db 100 dup(?)
mov si,offset q
mov di,si
et1: mov ax,[si]
cmp ax,0
JLE et2
mov [di],ax
add di,2
et2: add si,1
cmp si,offset q+100
JL et1
code ends
END
МАСИВ ОТ 100 ДВУБАИТОВИ ЧИСЛА ДА СЕ СОРТИРАТ В НАРАСТВАЩ РЕД.
code segment
assume ds:code,cs:code
q dw 100 dup (?)
mov si,offset q
mov di,si
et1: mov di,[si]
mov bx,[di+2]
cmp ax,bx
JGE et2
XCHG ax,bx
mov [si],ax
mov [di+2],bx
add di
cmp di,offset q+100
JLE et1
et2: add si,2
cmp si,offset q+100
JE et1
code ends
END
ДА СЕ НАПРАВИ ПРОГРАМА ПРЕБРОЯВАЩА БРОЯ НА ЕДИНИЦИТЕ В ДВАЙСЕТТЕ ТРИБАЙТОВИ ЕЛЕМЕНТА НА МАСИВА,ЧИИТО СТОЙНОСТИ СЧИТАМЕ ЗА ДАДЕНИ,РЕЗУЛТАТА(20 НОВИ ЧИСЛА). ДА СЕ ЗАПИШАТ КАТО ЕЛЕМЕНТИ НА 2-РИ МАСИВ
my_data segment para public data
group db 20 dup
db 20 dup
droup db 20 dup
db 20 dup
my_data ENDS
my_code segment para publiccode
start proc FAR
assume cs:my_code
ds:my_data
ss:my_stack
es:my_extra
push ds
sub ax,ax
mov ax,my_data
mov ds,ax
mov es,ax
cld ;изтрива фаила за посока
LEA di,group1
mov cx,group1
mov dl,1
repne scrsb
jexz none
lea dx,mess1
jnp prn_it
none:lea dx,mess2
print_it: mov al,09H
int 21H
start endp
end
Масив от 5 елемента, всеки от тип структура със следните полета; Първото е байт, второто и третото дума. Да се направи програма , която форматира втори масив (dest), в който петте елемента на първия масив са подредени по нарастващ ред на първото поле.
modell small
types equ 4
maxlen equ 5 types
tstruc struc
bel db ?
wel dw ?
bMore dw ?
Tsruc ENDS
data segment byte public DATA
sourse Tstruc 5(?)
dest Tsruc 5 dup (<>)
data ends
code segment word public code
assume cs:code, ds:data
start Up:
mov ax, data
mov ds,ax
mov si,offset sourse
mov bp,0 ;външен цикъл
mov bx,0 ;вътр. цикъл
lea di,dest
sub ax,ax
label:
mov al,[bx+si].bel
add bx,TYPES
curcle:
cmp al,[bx+si].bel
jna next
mov cx,ax
mov al,[bx+ci].bel
mov [bx+ci].bel,cl
mov [ds:bp+si].bel,al
push ax
mov ax,[ds:bp+si].wel
mov cx,[bx+si].wel
mov [ds:bp+si].wel,cx
mov [bx+si].wel,ax
sub cx,cx
sub ax,ax
mov al,[ds:bp+si].bMore
mov ce,[bx+si].bMore
mov [ds:bp+si].bMore,cl
pop ax
next:
add bx,types
cmp bx,MAXLEN
jne curcle
mov al,[ds:bp+si].bel
mov [ds:bp+di].bel,al
mov ax,[ds:bi+si].wel
mov [ds:bp+di].wel,ax
sub ax, ax
mov al,[ds:bp+si].bMore
mov [ds:bp+di].bMore,al
add bp.TYPES
mov bx,bp
cmp bp,MAXLEN_TYPES
JNE label
mov ax,4COOH
INT 21H
code ends
END start Up
МАСИВ ОТ 100 ЕЛЕМЕНТА ЕДНОБАЙТОВИ ЧИСЛА. ДА СЕ НАМЕРЯТ ПОЛОЖИТЕЛНИТЕ И ДА СЕ ЗАПИШАТ В НОВ МАСИВ.
code segment
assume cs:code,ds:code
q db 100 dup(?)
mov si,offset q
mov di,si
et1: mov ax,[si]
cmp ax,0
JLE et2
mov [di],ax
add di,2
et2: add si,1
cmp si,offset q+100
JL et1
code ends
END
МАСИВ ОТ 100 ДВУБАИТОВИ ЧИСЛА ДА СЕ СОРТИРАТ В НАРАСТВАЩ РЕД.
code segment
assume ds:code,cs:code
q dw 100 dup (?)
mov si,offset q
mov di,si
et1: mov di,[si]
mov bx,[di+2]
cmp ax,bx
JGE et2
XCHG ax,bx
mov [si],ax
mov [di+2],bx
add di
cmp di,offset q+100
JLE et1
et2: add si,2
cmp si,offset q+100
JE et1
code ends
END
ДА СЕ НАПРАВИ ПРОГРАМА ПРЕБРОЯВАЩА БРОЯ НА ЕДИНИЦИТЕ В ДВАЙСЕТТЕ ТРИБАЙТОВИ ЕЛЕМЕНТА НА МАСИВА,ЧИИТО СТОЙНОСТИ СЧИТАМЕ ЗА ДАДЕНИ,РЕЗУЛТАТА(20 НОВИ ЧИСЛА). ДА СЕ ЗАПИШАТ КАТО ЕЛЕМЕНТИ НА 2-РИ МАСИВ
my_data segment para public data
group db 20 dup
db 20 dup
droup db 20 dup
db 20 dup
my_data ENDS
my_code segment para publiccode
start proc FAR
assume cs:my_code
ds:my_data
ss:my_stack
es:my_extra
push ds
sub ax,ax
mov ax,my_data
mov ds,ax
mov es,ax
cld ;изтрива фаила за посока
LEA di,group1
mov cx,group1
mov dl,1
repne scrsb
jexz none
lea dx,mess1
jnp prn_it
none:lea dx,mess2
print_it: mov al,09H
int 21H
start endp
end
Масив от 5 елемента, всеки от тип структура със следните полета; Първото е байт, второто и третото дума. Да се направи програма , която форматира втори масив (dest), в който петте елемента на първия масив са подредени по нарастващ ред на първото поле.
modell small
types equ 4
maxlen equ 5 types
tstruc struc
bel db ?
wel dw ?
bMore dw ?
Tsruc ENDS
data segment byte public DATA
sourse Tstruc 5(?)
dest Tsruc 5 dup (<>)
data ends
code segment word public code
assume cs:code, ds:data
start Up:
mov ax, data
mov ds,ax
mov si,offset sourse
mov bp,0 ;външен цикъл
mov bx,0 ;вътр. цикъл
lea di,dest
sub ax,ax
label:
mov al,[bx+si].bel
add bx,TYPES
curcle:
cmp al,[bx+si].bel
jna next
mov cx,ax
mov al,[bx+ci].bel
mov [bx+ci].bel,cl
mov [ds:bp+si].bel,al
push ax
mov ax,[ds:bp+si].wel
mov cx,[bx+si].wel
mov [ds:bp+si].wel,cx
mov [bx+si].wel,ax
sub cx,cx
sub ax,ax
mov al,[ds:bp+si].bMore
mov ce,[bx+si].bMore
mov [ds:bp+si].bMore,cl
pop ax
next:
add bx,types
cmp bx,MAXLEN
jne curcle
mov al,[ds:bp+si].bel
mov [ds:bp+di].bel,al
mov ax,[ds:bi+si].wel
mov [ds:bp+di].wel,ax
sub ax, ax
mov al,[ds:bp+si].bMore
mov [ds:bp+di].bMore,al
add bp.TYPES
mov bx,bp
cmp bp,MAXLEN_TYPES
JNE label
mov ax,4COOH
INT 21H
code ends
END start Up
МАСИВ ОТ 100 ЕЛЕМЕНТА ЕДНОБАЙТОВИ ЧИСЛА. ДА СЕ НАМЕРЯТ ПОЛОЖИТЕЛНИТЕ И ДА СЕ ЗАПИШАТ В НОВ МАСИВ.
code segment
assume cs:code,ds:code
q db 100 dup(?)
mov si,offset q
mov di,si
et1: mov ax,[si]
cmp ax,0
JLE et2
mov [di],ax
add di,2
et2: add si,1
cmp si,offset q+100
JL et1
code ends
END
МАСИВ ОТ 100 ДВУБАИТОВИ ЧИСЛА ДА СЕ СОРТИРАТ В НАРАСТВАЩ РЕД.
code segment
assume ds:code,cs:code
q dw 100 dup (?)
mov si,offset q
mov di,si
et1: mov di,[si]
mov bx,[di+2]
cmp ax,bx
JGE et2
XCHG ax,bx
mov [si],ax
mov [di+2],bx
add di
cmp di,offset q+100
JLE et1
et2: add si,2
cmp si,offset q+100
JE et1
code ends
END
ДА СЕ НАПРАВИ ПРОГРАМА ПРЕБРОЯВАЩА БРОЯ НА ЕДИНИЦИТЕ В ДВАЙСЕТТЕ ТРИБАЙТОВИ ЕЛЕМЕНТА НА МАСИВА,ЧИИТО СТОЙНОСТИ СЧИТАМЕ ЗА ДАДЕНИ,РЕЗУЛТАТА(20 НОВИ ЧИСЛА). ДА СЕ ЗАПИШАТ КАТО ЕЛЕМЕНТИ НА 2-РИ МАСИВ
my_data segment para public data
group db 20 dup
db 20 dup
droup db 20 dup
db 20 dup
my_data ENDS
my_code segment para publiccode
start proc FAR
assume cs:my_code
ds:my_data
ss:my_stack
es:my_extra
push ds
sub ax,ax
mov ax,my_data
mov ds,ax
mov es,ax
cld ;изтрива фаила за посока
LEA di,group1
mov cx,group1
mov dl,1
repne scrsb
jexz none
lea dx,mess1
jnp prn_it
none:lea dx,mess2
print_it: mov al,09H
int 21H
start endp
end
 |
 |
 |
 |
 |
 |
 |
 |
Тагове от реферата: емент, курсови, Решени, условия, много
