Cтрока: Найти количество слов, в которых первый и последний символ совпадают.

@Asya_inter · Регистрация: 14.11.2014

Author24 — интернет-сервис помощи студентам

Прошу помощи! Уже извели эти задачи. На ум ничего хорошего не приходит. Подскажите, пожалуйста с реализацией такой задачи:
Найти количество слов, в которых первый и последний символ совпадают.
Также есть желание использовать следующие команды(суть их знаю, но применить не получается): movs, scas, lods, cmps, stos.

@Jin X · 28.01.2017, 10:28

Есть у нас строка и размер строки:

Assembler

1 2	String db 'Hello goog and yay world! ' lString = $-String ; длина строки

И дальше поиск:

Assembler

  xor dx,dx  ; dx = 0 - кол-во найденных слов
  lea di,String
  mov cx,lString+1  ; cx должен быть на 1 больше реальной длины строки, иначе на последней итерации [di-2] будет указывать на предпоследний символ последнего слова (если только в конце нет пробелов)
  mov al,' '  ; слова разделяются пробелами (знаки препинания являются частью слова!)
@@repeat:
  mov ah,[di]  ; первый символ
  repne scasb  ; сканируем не более cx символов, пока es:[di] <> al
  ; здесь мы имеем: либо cx=0 (значит это конец строки) и di=следующий за последним символ (поэтому cx изначально должен быть на 1 больше реальной длины строки),
  ; либо di указывает на следующий после пробела символ
  cmp [di-2],ah  ; сравниваем последний символ с первым
  jne @@notequal  ; прыгаем, если не равны
  inc dx  ; равны, увеличиваем счётчик кол-ва найденных слов
@@notequal:
  repe scasb  ; пропускаем все пробелы (вдруг их несколько подряд)
  jcxz @@finish  ; если конец строки, сразу выходим (это нужно делать здесь, а не строкой выше, т.к. String может содержать пробелы в конце, и тогда после inc cx мы бы сделали ещё один "лишний" цикл)
  dec di  ; т.к. scasb захватит 1 лишний символ, уменьшаем di на 1
  inc cx  ; и счётчик тоже увеличиваем (он же сработал для этого символа)
  jnz @@repeat  ; если cx <> 0, продолжаем поиски
@@finish:
  ; в финале dx = кол-во таким строк

@Asya_inter · 29.01.2017, 14:21 **[ТС]**

Jin X, большое вам спасибо! Строки дались мне сложновато. Целых два дня возится пришлось с уже готовым решением , так как проблема заключалась в том, что у меня вначале было неправильное занесение в регистр:

Assembler

1
2
3

mov dx,[edi]
     repne scasb
     cmp dx,[edi-2]

Глупая ошибка. Нельзя было использовать dx.
Так как мне нужно на встроенный ассемблер, то это переделанный немного вариант:

Assembler

program z_V;
{$asmmode intel}
var
  s : string[255];
  l : longint;
  k, res : integer;
begin
  readln(s);
  l := length(s);
 asm
  mov ecx,l;
  inc ecx
  lea edi,[s]
  mov al,' '
  inc edi
  @repeat:
     mov dl,[edi]
     repne scasb
     cmp dl,[edi-2]
     jne @land
         inc k
     @land:
        repe scasb
        jcxz @finish
        dec edi
        inc ecx
        cmp ecx,0
        jne @repeat
     @finish:
 end;
 writeln('k = ', k);
end.

Спасибо!!!

@Jin X · 29.01.2017, 17:16

Сообщение от Asya_inter

jcxz @finish

jecxz правильнее будет (хотя, jcxz тоже будет работать для строк до 65536 байт, но лучше заменить).

Сообщение от Asya_inter

Assembler

26
27
28

        inc ecx
        cmp ecx,0
        jne @repeat

cmp здесь не нужен, т.к. inc уже выставит флаги как надо (он не влияет только на флаг cf).

Сообщение от Asya_inter

Assembler

13
14
15

  lea edi,[s]
  mov al,' '
  inc edi

можно упростить до:

Assembler

1 2	lea edi,[s+1] mov al,' '

Ещё я не знаю, что тут за паскаль конкретно, но обычно ebx, esi, edi нужно сохранять при изменении? т.е. добавить в начало push edi, в конец - pop edi.

Добавлено через 3 минуты

Сообщение от Asya_inter

l := length(s);
asm
mov ecx,l;
inc ecx

Это тоже можно сделать вот так:

Assembler

1 2	movzx ecx,byte ptr [s] inc ecx

ФедосеевПавел · 29.01.2017, 18:56

Не по теме:

Asya_inter, вы опять "сметаете" все регистры и опять рискуете получить SOS! Магия с assembler + pascal.
В Windows всё сильнее ограничено нежели в DOS.

@Asya_inter 7 / 7 / 0 Регистрация: 14.11.2014 Сообщений: 166
		1
	Cтрока: Найти количество слов, в которых первый и последний символ совпадают. 27.01.2017, 18:13. Показов 1404. Ответов 4 Метки ассемблер, задача (Все метки) Прошу помощи! Уже извели эти задачи. На ум ничего хорошего не приходит. Подскажите, пожалуйста с реализацией такой задачи: Найти количество слов, в которых первый и последний символ совпадают. Также есть желание использовать следующие команды(суть их знаю, но применить не получается): movs, scas, lods, cmps, stos. 0

ФедосеевПавел
	29.01.2017, 18:56 Cтрока: Найти количество слов, в которых первый и последний символ совпадают. #5
	Не по теме: Asya_inter, вы опять "сметаете" все регистры и опять рискуете получить SOS! Магия с assembler + pascal. В Windows всё сильнее ограничено нежели в DOS. 0

Cтрока: Найти количество слов, в которых первый и последний символ совпадают.

Решение