Поиск подстроки в строке

@Kaisten · Регистрация: 02.10.2013

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

Ввести строку символов, длиной до 20 байт. Ввести слово, размером до 10 байт. Содержит ли данная строка символ

Для начала организовал просто поиск одной буквы(код уже переделан от исходного),теперь пытаюсь найти слово,не могу понять,помогите пожалуйста.

Assembler
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
.model small
.stack 100h
.data
stroka db '4 prakti4eskaya SP',13,10,'$'  
slovo db 'SP'
naideno db 'Slovo naideno!!!P',13,10,'$' 
nenaideno db 'Slovo ne naideno!!!P',13,10,'$'
.code 
start:
mov ax,@data
    mov ds,ax
    mov es,ax
    mov ah,9
    
lea di,stroka
lea si,slovo   
 
   
mov dx,offset stroka
int 21h
   mov ah,9
 
cld
mov cx,20
 
repne scasb
 
jz konec
mov dx,offset nenaideno   
jmp exit                  
konec:
mov dx,offset naideno   
exit:
  
 
int 21h  
 
mov ax,4c00h
int 21h

@Kaisten · 26.11.2014, 22:52 **[ТС]**

Хелпаните плиз,догнать не могу вообще как

@Полный 30h · 27.11.2014, 18:51

FASM

Assembler
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
use16
org 100h
 
cld
mov si,slovo
mov di,stroka
mov al,byte[si]
mov cx,lng_str
 
Scan_bukv:
repne scasb
je Bukva_ok 
jcxz Net_slova 
jmp Scan_bukv
;
Bukva_ok:
inc cx
 
cmp cx,lng_slovo
jb Net_slova
 
dec di
mov cx,lng_slovo
repe cmpsb 
jnz Net_slova 
mov dx,naideno
jmp To_write
 
 
Net_slova:
mov dx,nenaideno
 
To_write:
mov ah,09h
int 21h  
 
mov ax,4c00h
int 21h
 
stroka db '4 prakti4eskaya SP',13,10,'$'
lng_str = $-stroka-3 
slovo db 'SP',13,10,'$'
lng_slovo = $-slovo-3
naideno db 'Slovo naideno!!!',13,10,'$' 
nenaideno db 'Slovo ne naideno!!!',13,10,'$'

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Kaisten 6 / 6 / 3 Регистрация: 02.10.2013 Сообщений: 183
	26.11.2014, 22:52 [ТС]
	Хелпаните плиз,догнать не могу вообще как 0

Поиск подстроки в строке

Решение