Bagaimana cara menggambar segitiga tegak dari tanda bintang alias bintang?
Saya seorang mahasiswa sarjana dalam ilmu komputer dan saya ingin tahu bagaimana mengubah kode perakitan ini dengan gotoxy x,y
perintah untuk menunjukkan bintang pada output seperti yang ditunjukkan pada gambar di bawah ini.
nextline macro
mov ah,2
mov dl,13
int 21h
mov dl,10
int 21h
endm
gotoxy macro x,y
mov dl,x
mov dh,y
mov bh,0
mov ah,2
int 10h
endm
.MODEL SMALL
.STACK 64
.DATA
msg1 DB 'Enter a number : $' msg2 DB 'Wrong number!!$'
n db ?
x db 0
y db 0
.CODE
MAIN:
MOV AX, @DATA
MOV DS, AX
l3:
LEA DX, msg1
MOV AH, 9
INT 21H
MOV AH, 1
INT 21H
cmp al,'1'
jl l4
cmp al,'9'
jg l4
jmp l5
l4: nextline
LEA DX, msg2
MOV AH, 9
INT 21H
nextline
jmp l3
l5: sub al,'0'
mov n,al
mov cl,1
l1:
mov ch,1
l2:
mov al,n
sub al,ch
mov x,al
mov y,cl
gotoxy x,y
mov dl,'*'
mov ah,2
int 21h
inc ch
cmp ch,cl
jle l2
inc cl
cmp cl,n
jle l1
MOV AH, 4CH
INT 21H
END MAIN
Jawaban
3 SepRoland
Ini membantu jika Anda membuat tabel dengan apa yang ingin Anda lihat di layar:
baris | lekukan | tanda bintang |
---|---|---|
1 | 4 | 1 |
2 | 3 | 3 |
3 | 2 | 5 |
4 | 1 | 7 |
5 | 0 | 9 |
dan kemudian melihat keteraturan itu semua dan bagaimana menghasilkan angka dengan mengetahui bahwa n=5
:
baris | lekukan | tanda bintang |
---|---|---|
1 | 4 = (n - 1) | 1 = (1 + 1) - 1 |
2 | 3 = (n - 2) | 3 = (2 + 2) - 1 |
3 | 2 = (n - 3) | 5 = (3 + 3) - 1 |
4 | 1 = (n - 4) | 7 = (4 + 4) - 1 |
5 | 0 = (n - 5) | 9 = (5 + 5) - 1 |
baris | n - baris | baris + baris - 1 |
mov cl, 1 ; Row from 1 to 5
T1:
mov al, n ; Indentation AL = (n - row)
sub al, cl
mov x, al ; \
mov y, cl ; |
gotoxy x,y ; / This could easily become "GOTOXY AL, CL",
; no longer needing the x and y variables
mov dl, '*'
mov bl, cl ; Number of asterisks BL = (row + row - 1)
add bl, cl
dec bl
T2:
mov ah, 02h ; DOS.PrintCharacter
int 21h
dec bl
jnz T2
inc cl ; Next row
cmp cl, n
jbe T1
Selalu Menjadi Ancaman: Mengapa Orang Berkulit Coklat dan Hitam Tidak Bisa Nyaman di Amerika Serikat
Taylor Sheridan Baru Menambahkan 1 Bintang 'Yellowstone' Favoritnya ke Pemeran 'Lawmen: Bass Reeves'