Include C:\TASM\INCLUDE\Lib1.asm

.Model small

.Stack 100h

.Data

M1 db 13,10,'Hay vao n : $'

M2 db 13,10,'Hay vao d : $'

M3 db 13,10,'Hay vao u1 : $'

M4 db 13,10,'Tong cap so cong la : $'

M5 db 13,10,'Gia tri bieu thuc la : $'

M6 db 13,10,'Co tiep tuc CT (C/K) ? $'

DauCham db '.$'

.Code

Main :

mov ax,@data

mov ds,ax

;clrscr

HienString M1

call Vao_So_N

mov cx,ax

mov si,cx

HienString M2

call Vao_So_N

mov bx,ax

HienString M3

call Vao_So_N

mov dx,ax

dec cx

Tong :

add dx,bx

add ax,dx

loop Tong

HienString M4

call Hien_So_N

HienString M5

inc si

mov bx,si

xor dx,dx

Chia :

div bx

call Hien_So_N

and dx,dx

jz Finish

HienString DauCham

mov cx,2

mov si,10

ThapPhan :

mov ax,dx

mul si

div bx

call Hien_So_N

and dx,dx

jz Finish

loop ThapPhan

Finish :

HienString M6

mov ah,1

int 21h

or al,20h

cmp al,'c'

jne Exit

jmp Main

Exit :

mov ah,4ch

int 21h

Include C:\TASM\INCLUDE\Lib2.asm

End Main

2a:

.Model small

.Data

Extrn _a : word,_n : word

.Code

Public @LuyThua$qv

@LuyThua$qv Proc

mov bx,_a

mov cx,_n

mov ax,1

and cx,cx

jz L2

L1:

mul bx

loop L1

L2:

ret

@LuyThua$qv Endp

End

2c:

#include<iostream.h>

#include<conio.h>

int a,n;

extern int LuyThua();

void main(void)

{

clrscr();

cout<<"

--Tinh a luy thua n--";

cout<<"

>>Nhap gia tri a : ";

cin>>a;

cout<<"

>>Nhap gia tri n : ";

cin>>n;

cout<<"

\tKet qua : "<<LuyThua();

getch();

}

3:

Include C:\Tasm\Include\Lib1.asm

.Model small

.Stack 256

.Data

M1 db 13,10,'Co DMA hay khong : $'

M2 db 13,10,'Co Joystick hay khong : $'

Yes db 'Co$'

No db 'Khong$'

.Code

Main :

mov ax,@data

mov ds,ax

HienString M1

int 11h

mov al,ah

shr al,1

jc TonTai

HienString No

jmp Joystick

TonTai :

HienString Yes

Joystick :

HienString M2

mov cl,4

shr al,cl

jc LaiTonTai

HienString No

jmp Finish

LaiTonTai :

HienString Yes

Finish :

mov ah,1

int 21h

mov ah,4ch

int 21h

End Main