Include C:\TASM\INCLUDE\Lib1.asm

.Model small

.Stack 100h

.Data

Title1 db 13,10,'| CHUONG TRINH |$'

Title2 db 13,10,'| TIM GIA TRI LON NHAT CUA 1 DAY SO NGUYEN |$'

Title3 db 13,10,'------------------------------------$'

M1 db 13,10,'>>Hay vao thanh phan so luong cua day : $'

M2 db 13,10,'a[$'

M3 db '] = $'

M4 db 13,10,'Gia tri lon nhat cua day so nguyen la : $'

M5 db 13,10,'Tiep tuc chuong trinh ( C/K ) ? $'

M6 db 13,10,'Chuc nang khong ton tai . Moi chon lai !$'

Array dw 100 dup(?)

.Code

Main :

mov ax,@data

mov ds,ax

;clrscr

HienString Title1

HienString Title2

HienString Title3

HienString M1

call Vao_So_N

cmp ax,1

jb Hoi

mov dx,ax ; dx = so luong

xor si,si ; si = STT

mov cx,ax

lea bx , Array

Nhap:

HienString M2

mov ax,si

call Hien_So_N

HienString M3

call Vao_So_N

mov [bx],ax

inc si

add bx,2

loop Nhap

HienString M4

lea bx , Array

mov cx,dx

mov ax,[bx]

sub cx,1

XuLy:

add bx,2

cmp ax,[bx]

jnb LonHon

mov ax,[bx]

LonHon:

loop XuLy

call Hien_So_N

Hoi :

HienString M5

mov ah,1

int 21h

or al,20h

cmp al,'c'

jz Nhay

cmp al,'k'

jz Finish

HienString M6

jmp Hoi

Nhay:

jmp Main

Finish:

mov ah,4ch

int 21h

Include C:\TASM\INCLUDE\Lib2.asm

End Main

.Model small

.Data

Extrn _Array:DWORD,_n:WORD

.Code

Public @Max$qv

@Max$qv PROC

mov bx,OFFSET _Array

mov ax,SEG _Array

mov es,ax

mov cx,_n

mov ax,es:[bx]

dec cx

XuLy:

add bx,2

cmp ax,es:[bx]

jnb LonHon

mov ax,es:[bx]

LonHon:

loop XuLy

ret

@Max$qv Endp

En#include<iostream.h>

#include<conio.h>

int n;

int Array[100];

extern int Max();

void main(void)

{

PS :

clrscr();

char answer;

int i;

cout<<">>Hay vao thanh phan so luong cua day : ";

cin>>n;

for(i=0;i<n;i++)

{

cout<<"a["<<i<<"] = ";

cin>>Array[i];

}

cout<<"Gia tri lon nhat cua day so nguyen la : "<<Max();

cout<<"

Tiep tuc chuong trinh (C/K) ? ";

answer = getch();

if(answer=='c')

goto PS;

}

22.

INCLUDE C:\TASM\INCLUDE\Lib1.asm

.MODEL small

.STACK 100h

.DATA

M1 db 'So luong cong COM la : $'

M2 db 13,10,'Dia chi cac cong COM la : $'

Space db ' $'

.CODE

Main :

mov ax,@data

mov ds,ax

;clrscr

HienString M1

int 11h

mov al,ah

and al,00001110b

shr al,1

jz Finish

mov cl,al

xor ch,ch ; cx = so cong COM

add al,30h

mov ah,0eh ; hien 1 ky tu ASCII o AL

int 10h

HienString M2

xor ax,ax

mov es,ax

mov bx,400h ; 0:400h = COM1

DiaChi :

mov ax,es:[bx]

call Hien_HEXA

HienString Space

add bx,2

loop DiaChi

Finish:

mov ah,1

int 21h

mov ah,4ch

int 21h

INCLUDE Lib2.asm

END Main