МІНІСТЕРСТВО ОСВІТИ ТА НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ «ЛЬВІВСЬКА ПОЛІТЕХНІКА »
Кафедра
інформаційних
систем та мереж
Лабораторна робота №6
на тему:
«Структури даних»



Текст програми:
.model small
.stack 100h
knuga STRUC
avtor db 20 DUP(' ')
nazva db 20 DUP(' ')
rik dw ?
knuga ENDS
.data
n equ 5
kil dw 0
k dw 2003
knugu knuga <"Барановський Я","ASSEMBLER",2008>,<"Коринкевич Р","ASM",1997>,<"Марчук А","Сі",2005>,<"Ковалик Г","Право",2003>,<"Ковалик М","Сі для професіоналів",2004>
.code
.startup
call KILKIST
.exit 0
KILKIST Proc near
xor si,si
mov cx,n
m1: cmp knugu[si].rik,2003
jle m2
inc kil
m2:
add si,type knuga
loop m1
ret
KILKIST Endp

END
Результат виконання програми: