Заполнение матрицы случайными числами Опции

[18192123]

Объясните пожалуйста, как можно инициализировать матрицу случайными числами??

[18192123]

Появился ещё один вариант генерации..но снова неудачный..Объясните мне пожалуста, как организовать генерацию чисел?!

dely    macro time; (1)
        local zd,c1,cikl,ii,ii1
        push cx
        push bx; (4)
        push bp; (5)
        push ax; (6)
        push dx; (7)
        mov cx,time
zd:     push cx; (9)
        mov bp,0;(10)
        mov bx,1;(11)
        
cikl:   
        inc BP;(12)
        mov ah,00h;(13)       
        int 1Ah;(14)
        cmp BP,1;(15)
        je ii
        jmp ii1
ii:     add bx,dx
ii1:                    ; (19)
        cmp bx,dx
        jne cikl
        pop cx
        loop zd;(23)
        pop cx;(24)
        pop bx;(25)
        pop bp;(26)
        pop ax;(27)
        pop dx;(28)
        endm;(29)

assume CS: code, DS: data
code segment
randomize proc
	mov ah,2Ch
	int 21h
	mov Rand1,ax
	mov Rand2,dx

randomize endp

random proc
	mov     ax,Rand1
  mov     bx,Rand2
  mov     cx,ax
  mul     RandA      ; RandA - любое число
  shl     cx,1
  shl     cx,1
  shl     cx,1
  add     ch,cl
  add     dx,cx
  add     dx,bx
  shl     bx,1
  shl     bx,1
  add     dx,bx
  add     dh,bl
  mov     cl,5
  shl     bx,cl
  add     dh,bl
  add     ax,1
  adc     dx,0
  mov     Rand1,ax
  mov     Rand2,dx
  mov     bx,sp                 
  mov     cx,dx                 
  mul     word ptr ss:[bx+4]    
  mov     ax,cx
  mov     cx,dx
  mul     word ptr ss:[bx+4]
  add     ax,cx
  adc     dx,0
  mov     ax,dx

random endp

matr proc
	mov cx,3
	mov si,0
	mov bx,0
	
	call randomize
	
external:
	push cx
	mov cx,3
	mov si,0
	
iternal:

	push cx
	push bx
rand:
	call random
	;call randomize
    cmp ax,30h ; число не менее
    jl rand
    cmp ax,39h ; число не более
    jg rand
	
	pop bx
	pop cx

    
	mov array[bx][si],ax
	add si,2
	loop iternal
	pop cx
	add bx,6
	loop external
	
	mov cx,3
	mov si,0
	mov bx,0
exshow:
	push cx
	mov cx,3
	mov si,0
ishow:
	mov ah,02h
	mov dx,array[bx][si]
	add dl,30h  
	int 21h
	add si,2
loop ishow
	lea dx,nl           ;переход на новую строку
	pop cx
	add bx,6
loop exshow
	ret
matr endp	

begin:

	mov AX, data
	mov DS, AX

miganie:
	push cx
	call matr
	dely 18
	mov ah,02h ;сдвижка курсора обратно в начало строки
	mov bh,00
	mov dh,15
	mov dl,0
	int 10h
	mov ah,06h
	mov dl,0ffh
	int 21h
	cmp al,44h
	jne miganie
	;mov AH,2Ch
	;int 21h
	;mov AH,02h
	; CH  - час,  CL - мин,  DH  - сек, DL - 1/100 сек
	;int 21h
exit:
	mov ax,4c00h
	int 21h
	
code ends

data segment
	array dw 3 dup(3 dup(0))
	i db 0
	nl db 13,10,'$'
	Rand1 dw 20
	Rand2 dw 10
	RandA dw 38
	;line db 15
data ends

stk segment stack
	dw 128
stk ends

end begin

Сообщение отредактировано: 18192123 - 23.05.2008 1:23