PRAKTIKUM BILANGAN GENAP

Program Menampilkan Bilangan Genap

Contoh program menampilkan bilangan genap dari 1 - 300 :

Cetak_Klm MACRO Klm

MOV AH,09

LEA DX,Klm

INT 21h

ENDM

CDesimal MACRO Angka

LOCAL Ulang,Cetak

MOV AX,Angka

MOV BX,10

XOR CX,CX

Ulang:

XOR DX,DX

DIV BX

PUSH DX

INC CX

CMP AX,0

JNE Ulang

Cetak:

POP DX

ADD DL,'0'

MOV AH,02

INT 21h

LOOP Cetak

ENDM

;/========================================\;

; Fungsi : mencari dan menampilkan angka ;

; genap dari 0 sampai 300 ;

;\========================================/;

.MODEL SMALL

.CODE

ORG 100h

TData: JMP Awal

Batas DW 300

Bil DW 0

I DW 2

J DW 2

Spasi DB ' $'

Header DB 9,9,9,'Bilangan Genap 1 sampai 300 : ',13,10

DB 9,9,9,'----------------------------',13,10,10,'$'

Awal:

Cetak_Klm Header

Proses:

MOV AX,Batas

CMP AX,I

JE Exit

ForI:

MOV J,2

MOV Bil,0

ForBil:

MOV AX,Bil

CMP AX,0

JNE TambahI

MOV AX,I

MOV AX,J

JNE Tidak

CDesimal I

Cetak_Klm Spasi

MOV Bil,1

JMP TambahJ

Tidak:

MOV DX,0

MOV AX,I

MOV BX,J

DIV BX

CMP DX,0

JNE TambahJ

MOV Bil,1

TambahJ:

INC J

JMP ForBil

TambahI:

ADD I,2

JMP Proses

Exit:

INT 20h

END TData Output : Untuk menampilkan bilangan ganjil, ganti I DW menjadi 1 dan BATAS DW menjadi 301.