Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Ассемблер? Это просто! Учимся программировать

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 11.448 RSS
←   Апрель 2016   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru
Открыта: 28-06-2000

Автор
Калашников О.А.

Статистика

11.448 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Ассемблер? Это просто! Учимся программировать


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Коцюрбенко Алексей aka Жерар
Статус: Мастер-Эксперт
Рейтинг: 356
∙ повысить рейтинг » 		Асмик Гаряка
Статус: Советник
Рейтинг: 118
∙ повысить рейтинг » 		Куликов Роман Евгеньевич
Статус: 1-й класс
Рейтинг: 0
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Assembler (Ассемблер)

Номер выпуска:1596
Дата выхода:16.04.2016, 13:51
Администратор рассылки:Лысков Игорь Витальевич (Старший модератор)
Подписчиков / экспертов:18 / 8
Вопросов / ответов:1 / 1

Консультация # 189157: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Мне надо бы сделать "СОРТИРОВКУ СЛОВ ПО ТРЕТЕЙ БУКВЕ". Помогите пожалуйста. очень надоо. smile ...

Консультация # 189157:

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Мне надо бы сделать "СОРТИРОВКУ СЛОВ ПО ТРЕТЕЙ БУКВЕ". Помогите пожалуйста. очень надоо. smile

Дата отправки: 11.04.2016, 13:28
Вопрос задал: yasha190 (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Лысков Игорь Витальевич (Старший модератор):

Здравствуйте, yasha190!
Вот Вам программа. Читайте комментарии, там все описано, как работает smile

Код (Assembler) :: выделить код
	.model   small
	.code         	;сегмент кода 
	.startup      		;инициализация сегментов для выбранной модели памяти 
 
	call	GetString	;вводим строку
	call	ParseString	;разбираем строку на слова
	call	SortWords	;сортируем слова
	call	OutSortWords	;выводим слова

	mov   	ah, 0      	;ждем нажатие на клавишу 
	int   	16h
	.exit  	0 
 
GetString	proc		;вводим строку
	lea   	dx, sEnterString
	mov   	ah, 9      	;выведем строку приглашения 
	int   	21h
   
	lea   	dx, max      	;вводим строку 
	mov   	ah, 0ah
	int   	21h
	ret
GetString	endp	

isLetter	proc		;проверка на букву
	cmp	al, 'A'		;буквы - только английские
	jb	not_letter
	cmp	al, 'Z'
	jbe	yes_letter
	cmp	al, 'a'
	jb	not_letter
	cmp	al, 'z'
	jbe	yes_letter
not_letter:
	stc			;не буква
	ret
yes_letter:
	clc			;буква
	ret
isLetter	endp

ParseString	proc		;разбор строки на слова
	xor	cx, cx		;счетчик слов
	lea	si, String	;адрес введенной строки
	lea	bx, array	;адрес массива, где будем сохранять 
				;  начало каждого слова и длину слова
	xor	di, di		;счетчик букв в слове
Parse_loop:			;цикл разбора
	lodsb			;очередной символ
	cmp	al, 0dh		;символ конца строки (после ф-и 0ah)
	je	Parse_last	;на анализ последнего слова
	call	isLetter	;проверяем на букву
	jc	Parse_word_found;разделитель?
	test	di, di		;первая буква?
	jnz	Parse_next_letter ;нет - на счет букв
	lea	dx, [si-1]	;для первой запоминаем начало слова
Parse_next_letter:
	inc	di		;считаем буквы
	jmp	Parse_loop	;на повтор
Parse_word_found:		;разделитель
	test	di, di
	je	Parse_loop	;букв не было - игнорируем разделители
	mov	[bx], dx	;есть слово - сохраняем начало слова
	mov	[bx+2], di	; и длину
	add	bx, 4		;на следующий элемент массива
	xor	di, di		;обнуляем счетчик букв
	inc	cx		;считаем слова
	jmp	Parse_loop	;на повтор
Parse_last:			;конец строки
	test	di, di		;было ли последнее слово
	je	Parse_ret
	mov	[bx], dx	;сохраняем начало
	mov	[bx+2], di	;длину
	inc	cx		;считаем
Parse_ret:
	mov	count, cx	;сохраним счетчик
	ret
ParseString	endp

;сравнение слов
;аргументы: si - индекс первого элемента массива
;           di - второго
;слова длиной меньшей 3 считаем минимальными, считаем символ нулем
CompWords	proc
	mov	bx, si		;первый
	cmp	word ptr array[bx+2], 3	;длина меньше 3?
	jge	long_word_1	;>=  - считываем третий символ
	mov	al, 0		;иначе = 0
	jmp	from_word_2	;символ второго слова
long_word_1:
	mov	bx, array[bx]	;адрес начала слова
	mov	al, [bx+2]	;третий символ
from_word_2:
	mov	bx, di		;второй
	cmp	word ptr array[bx+2], 3
	jge	long_word_2
	mov	ah, 0
	jmp	cmp_letters
long_word_2:
	mov	bx, array[bx]
	mov	ah, [bx+2]
cmp_letters:			;сравнение символов
	cmp	al, ah
	jl	set_less
	jz	set_equal
set_great:
	mov	ax, 1		;признак >
	ret
set_less:
	mov	ax, -1		;признак <
	ret
set_equal:			;признак =
	xor	ax, ax
	ret
CompWords	endp

SortWords	proc		;сортировка "пузырьком"
	mov	cx, count	;считаем, только если слов > 2
	cmp	cx, 2
	jb	SortWords_ret
				;зададим правую границу цикла 2
	shl	cx, 1
	shl	cx, 1
	mov	dx, cx
	sub	dx, 4		;правая граница цикла 1
	
	xor	si, si		;индекс цикла 1
SortWords_loop1:		;цикл 1
	lea	di, [si+4]	;индекс цикла 2, di = si+1 
				; (+4, т.к элемент массива имеет размер 4 байта)
SortWords_loop2:		;цикл 2
	call	CompWords	;сравниваем элементы si и di
	test	ax, ax		;проверяем результат
	jle	SortWords_next2	;<= ничего не делаем
	mov	ax, array[si]	;меняем местами адрес слова
	xchg	array[di], ax
	mov	array[si], ax
	mov	ax, array[si+2]	;и длину
	xchg	array[di+2], ax
	mov	array[si+2], ax
SortWords_next2:
	lea	di, [di+4]	;на следующий элемент цикла 2
	cmp	di, cx		;дошли до конца?
	jb	SortWords_loop2

	lea	si, [si+4]	;на следующий элемент цикла 1
	cmp	si, dx		;дошли до конца?
	jb	SortWords_loop1
SortWords_ret:
	ret
SortWords	endp

OutSortWords	proc		;вывод отсортированных слов
	lea	dx, sResult	;строка "Sorted words: "
	mov	ah, 9
	int	21h
	
	mov	di, count	;количество слов
	xor	bx, bx		;индекс в массиве элементов массива
	mov	ah, 2		;ф-я вывода символа dl на экран
PrintWords_loop:
	mov	si, array[bx]	;адрес слова
	mov	cx, array[bx+2]	;длина
PrintWord_loop:
	mov	dl, [si]
	inc	si
	int	21h
	loop	PrintWord_loop	;выводим в цикле
	mov	dl, ' '		;отделим пробелом
	int	21h
	add	bx, 4		;на следующий элемент (слово)
	dec	di		;все слова?
	jne	PrintWords_loop
	mov	dl, 0dh
	int	21h
	mov	dl, 0ah		;перевод строки
	int	21h
	ret
OutSortWords	endp
	
	.data 
sEnterString	db   	"Enter string: $"   ;приглашение ввести строку 
sResult		db	0dh,0ah,"Sorted words: $"
				;буфер для ввода строки-вещественного числа 
max   	db   	128		;размер буфера 
len   	db  	?     		;реальная длина 
String 	db	128 dup (?)   	;сама строка 

	even			;выровняем адрес памяти на слово
count	dw	?		;количество слов
array	dw	256 dup (?)	;массив элементов, в которых адрес слова и длина
	end

Консультировал: Лысков Игорь Витальевич (Старший модератор)
Дата отправки: 13.04.2016, 16:14

5
нет комментария
-----
Дата оценки: 14.04.2016, 10:36
Рейтинг ответа:

НЕ одобряю +3 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное