1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
| ;ЗАДАНИЕ: Даны сведения о результатах сдачи вступительных экзаменов:
; - фамилия абитуриента и инициалы (16 символов);
; - оценки по каждому из трёх экзаменов
; - наличие целевого направления (1 символ);
;Сформировать упорядоченный по сумме баллов список абитуриентов:
; целевиков, сдавших экзамены без троек и двоек;
; Для каждого абитуриента указать сумму набранных баллов.
; Подсчитать количество и средний балл выбранных абитуриентов.
;**********************************************************************
.model small
; Формат исходной таблицы (ИТ)
tabl1 struc
fio db 16 dup(' ')
p1 db ?
p2 db ?
p3 db ?
cel db 2 dup(' ')
tabl1 ends
; Формат результирующей таблицы (РТ)
tabl2 struc
fio2 db 16 dup(' ')
sum db ?
tabl2 ends
;**********************************************************************
;Макрокоманда пересылки цепочек
;Вызов: movstr src,dest,len
;Параметры:
;src - идентификатор источника (в ds - сегмент источника)
;dest - идентификатор приемника (в es - сегмент приемника)
;len - число пересылаемых байт
;Ограничение: src при вызове не может определяться через di !!!
movstr macro src,dest,len
push cx ;спасти cx,si,di
push si ;
push di ;
mov cx,len ;размер цепочки в cx
lea di,dest ;адрес приемника в di
lea si,src ;адрес источника в si
rep movsb ;пересылка цепочки
pop di ;восстановить cx,si,di
pop si ;
pop cx ;
endm
;*************************************************************************
vivod macro str
lea dx,str
outstr str
endm
;*************************************************************************
.stack 256
;************************************************************************
.data
N equ 15 ;количество элементов ИТ
lens equ type tabl1 ;длина записи ИТ
lenr equ type tabl2 ;длина записи РТ
; Определение и инициализация ИТ
stabl tabl1 <'Жмуркина А.А. $',4,5,4,'+$'>
tabl1 <'Зюзин С.Р. $',3,5,4,'+$'>
tabl1 <'Сигулкин А.Ю. $',2,3,3,'-$'>
tabl1 <'Макеев Л.Р. $',3,3,3,'+$'>
tabl1 <'Кулакова О.Е. $',3,3,4,'-$'>
tabl1 <'Хорунский А.В. $',5,4,5,'+$'>
tabl1 <'Ароян Н.В. $',5,5,5,'-$'>
tabl1 <'Ленин Е.К. $',4,4,5,'+$'>
tabl1 <'Рубцова О.О $',5,4,3,'-$'>
tabl1 <'Караулов А.К. $',5,5,5,'+$'>
tabl1 <'Бирулова В.П $',4,4,2,'-$'>
tabl1 <'Дипурин П.А. $',4,4,4,'-$'>
tabl1 <'Крысько Р.В. $',4,5,5,'+$'>
tabl1 <'Потапов П.А. $',5,4,5,'+$'>
tabl1 <'Корж Л.Я. $',4,2,3,'+$'>
rtabl tabl2 N dup (<>) ;определение РТ
buf tabl2 <> ;вспомогательный буфер для сортировки РТ
NRez dw ? ;число отобранных студентов
shapka0 db '┌───────────────┬──────────┬───────────┬──────┬─┐$'
shapka00 db '┌───────────────┬──────┐$'
shapka1 db 'Ф.И.О. $'
shapka2 db 'Математика$'
shapka3 db 'Русский яз.$'
shapka4 db 'Физика$'
shapka44 db 'Ц$'
shapka5 db 'Сумма $'
shapka7 db '├───────────────┼──────────┼───────────┼──────┼─┤$'
shapka77 db '├───────────────┼──────┤$'
shapka8 db '└───────────────┴──────────┴───────────┴──────┴─┘$'
shapka88 db '└───────────────┴──────┘$'
message1 db 'Список абитуриентов: $'
message2 db 'Отобранные абитуриенты: $'
message3 db 'Количество отобранных абитуриентов: $'
message4 db 'Средний балл выбранных абитуриентов: $'
etalon db '+$'
;********************************************************************
.code
include io.asm ;подключение библиотеки io.asm
start:
mov ax ,@data
mov ds,ax ;настройка ds
mov es,ax ;и es на сегмент данных
cld ;сброс флага DF (направление обработки строк-вперед)
mov cx,N ;счетчик строк ИТ
mov dx,0 ;счетчик строк РТ
lea si,stabl ;адрес первой строки ИТ
lea di,rtabl ;адрес первой строки РТ
;**********************************************************************
next:
push ax ;спасаем регистры
push si
push di
lea si,[si].cel
lea di,etalon
cmpsb ;абитуриент ?целевик?
pop di ;возвращаем регистры
pop si
pop ax
jne cont ;если нет, идем дальше
mov bx,0 ;обнуляем регистры
mov ax,0 ;ah - сумма оценок текущего абитуриента
mov al,[si].p1 ;в al первую оценку
cmp al,3 ;меньше 3?
jbe cont ;если да, то абитуриент уже не проходит по критерию
;переходим к следующему по списку
add ah,al ;если нет, записываем оценку в сумму
mov al,0
mov al,[si].p2 ; в al вторую оценку
cmp al,3 ;меньше 3?
jbe cont ;если да, то абитуриент уже не проходит по критерию
;переходим к следующему по списку
add ah,al ;если нет, записываем оценку в сумму
mov al,0
mov al,[si].p3 ;в al третью оценку
cmp al,3 ;меньше 3?
jbe cont ;если да, то абитуриент уже не проходит по критерию
;переходим к следующему по списку
add ah,al ;если нет, записываем оценку в сумму
;*************************************************************************
; строка выбрана, пересылка данных из ИТ в РТ
; пересылка поля fio -> fio2
movstr [si].fio,[di].fio2,16
mov [di].sum, ah
; завершение блока пересылки
inc dx ;увеличить на 1 счетчик строк РТ
add di,lenr ;установить в di адрес начала следующей строки РТ
;*************************************************************************
cont: ;переход к следующей строке ИТ
add si,lens ;в si - адрес начала следующей строки ИТ
loop next
mov NRez,dx ;число отобранных абитуриентов в РТ
cmp dx,1 ;если найдено более одного абитуриента
ja beg ;перейти к сортировке
je print ;если только один абитуриент - на вывод
jmp quit ;в противном случае завершить работу
;(jmp дает длинный переход!"
;*************************************************************************
; Сортировка РТ
beg:
mov cx,NRez ;
dec cx ;в сх - число циклов сравнения (NRez-1)
mov dx,0 ;в dx - число перестановок пар (пока 0)
mov bx,0 ;в bx - смещение текущего элемента (строки) РТ
cycle:
mov al,byte ptr rtabl[bx+lenr].sum ;сравнить 1-й символ следующего (в al)
cmp byte ptr rtabl[bx].sum,al ;и текущего элементов
jbe cont1 ;если меньше - выбрать следующую пару (перестановки нет)
; перестановка
; 1-й (текущий)-> buf
movstr rtabl[bx],buf,lenr
; 2-й (следующий)-> 1-й (текущий)
movstr rtabl[bx+lenr],rtabl[bx],lenr
; buf -> 2-й
movstr buf,rtabl[bx+lenr],lenr
inc dx ;увеличить на единицу счетчик перестановок
cont1:
add bx,lenr ;следующий элемент
loop cycle ;если cx <> 0, продолжить сравнение след. пары
cmp dx,0 ;если зафиксирована хотя бы одна перестановка,
jnz beg ;повторить все сначала
;**************************************************************************
;Вывод шапки для исходной таблицы
print:
vivod message1
newline
vivod shapka0 ;напечатать shapka0
newline ;перейти на следующую строку
outch 179 ;напечатать символ '│'
vivod shapka1 ;напечатать 'Ф.И.О. '
outch 179 ;напечатать символ '│'
vivod shapka2 ;напечатать 'Математика'
outch 179 ;напечатать символ '│'
vivod shapka3 ;напечатать 'Русский яз.'
outch 179 ;напечатать символ '│'
vivod shapka4 ;напечатать 'Физика'
outch 179 ;напечатать символ '│'
vivod shapka44 ;напечатать 'Ц'
outch 179 ;напечатать символ '│'
newline ;перейти на следующую строку
vivod shapka7 ;напечатать shapka7
newline ;перейти на следующую строку
;**************************************************************************
; Вывод строковых полей ИТ на экран
mov cx,N ;в cx - число элементов в ИТ
lea si,stabl ;в si - смещение текущего элемента (строки) РТ
new:
mov dx,si ;в dx смещение текущего элемента
outch 179 ;напечатать символ '│'
outstr [si].fio ;напечатать фамилию текущего абитуриента
outch 179 ;напечатать символ '│'
mov al, [si].p1 ;печать первой оценки и символа '│'
mov ah,0 ;
outword ax,10 ;
outch 179 ;
mov al, [si].p2 ;печать второй оценки и символа '│'
mov ah,0 ;
outword ax,11 ;
outch 179 ;
mov al, [si].p3 ;печать третьей оценки и символа '│'
mov ah,0 ;
outword ax,6 ;
outch 179 ;
vivod [si].cel ;печать информации о целевом направлении
outch 179 ;и символа '│'
newline ;перейти на следующую строку
add si,lens ;смещение следующего элемента ИТ
dec cx ;
jcxz pr ;аналог loop
jmp new ;
;**************************************************************************
;Вывод шапки для результирующей таблицы
pr:
vivod shapka8 ;печать shapka8
newline ;перейти на следующую строку
vivod message2 ;печать message2
newline ;перейти на следующую строку
vivod shapka00 ;печать shapka00
newline ;перейти на следующую строку
outch 179 ;напечатать символ '│'
vivod shapka1 ;напечатать 'Ф.И.О. '
outch 179 ;напечатать символ '│'
vivod shapka5 ;печать 'Сумма '
outch 179 ;напечатать символ '│'
newline ;перейти на следующую строку
vivod shapka77 ;печать shapka77
newline ;перейти на следующую строку
;***************************************************************************
; Вывод строковых полей PТ на экран
mov cx,NRez ;в cx - число элементов в PТ
lea di,rtabl;в di адрес первой строки РТ
mov bx,0 ;обнуляем регистр, в котором будет накапливаться сумма
;всех оценок выбранных абитуриентов
new2:
mov dx,di ;в di адрес первой строки РТ
outch 179 ;напечатать символ '│'
outstr [di].fio2 ;напечатать ф.и.о абитуриента
outch 179 ;напечатать символ '│'
mov al,[di].sum ;печать суммы оценок и символа '│'
mov ah,0
outword ax,6
outch 179
add bx,ax ;прибавить к общей сумме сумму оценок текущего студента
newline ;перейти на следующую строку
add di,lenr ;смещение следующего элемента РТ
loop new2
;**************************************************************************
vivod shapka88 ;печать shapka88
newline ;перейти на следующую строчку
vivod message3 ;вывести на экран message3
mov cx,NRez ;в cx количество отобранных абитуриентов
outword cx,2 ;вывести на экран число абитуриентов
newline ;перейти на следующую строку
vivod message4 ;вывести на экран message4
mov dx,NRez ;в dx количество отобранных абитуриентов
mov al,3 ;в al количество оценок
mul dl ;вычисляем делитель для определения средней оценки
mov cl,al ;переносим результат в cl
xor ch,ch
xor dx,dx
mov ax,bx
div cx ;вычисляем среднюю оценку
mov ah,0
outword ax,2 ;выводим результат
quit:
finish
end start |
(
