Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 13.05.2011, 22:53   #1
Алексей_1
 
Регистрация: 08.05.2011
Сообщений: 6
По умолчанию В тех словах, которые заканчиваются на ing, заменить это окончание на en.

Дан текст. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. В тех словах, которые заканчиваются на ing, заменить это окончание на en.

Помогите сделать
Алексей_1 вне форума
Старый 13.05.2011, 23:31   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

http://programmersforum.ru/showthread.php?t=34440
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума
Старый 20.01.2012, 18:17   #3
Tdutybq
Новичок
Джуниор
 
Регистрация: 20.01.2012
Сообщений: 1
По умолчанию

на ассемблере:

Код:
; masm dos exe #
.286
.model small
.stack 100h
.data
buf db 80 , ?, 80 dup(' ')
mes1 db 10,13, 'Vvedite text with dollar on the end:', 10,13, '$'

mes2 db 10,13, 'result:', 10,13, '$'

sf db 'the king is sitting on the meeting$'
qcsf = $-sf
sf1 db  qcsf dup (0) 
.code   
start:  mov ax,@data
        mov ds,ax
        mov es,ax
        mov ax,3
        int 10h
        mov ah,9
        lea dx,mes1
        int 21h

mov ah,10
        lea dx,buf
        int 21h
mov bl,buf+1
xor bh,bh
mov buf[bx+2],'$'
mov ah,9
        lea dx,sf1
        ;int 21h


        lea si,buf+2
        lea di,sf1
        mov cx,qcsf
a1:     lodsb
        cmp al,'i'
        jne a2
        cmp word ptr [si],'gn'
        jne a2
        add si,2
        sub cx,2
        mov ax,'de'
        stosw
        jmp a3
a2:     stosb
a3:     loop a1
mov ah,9
        lea dx,mes2
        int 21h

        mov ah,9
        lea dx,sf1
        int 21h
        mov ah,0
        int 16h
        mov ah, 4ch 
        int 21h
end start
Tdutybq вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В тех словах, которые оканчиваются сочетанием букв “ing”, заменить это окончание на “ed”. Sh@rky Паскаль, Turbo Pascal, PascalABC.NET 8 20.12.2015 18:23
при вводе текста нужно выкинуть все слова которые заканчиваются на гласные (С++) dembel11 Помощь студентам 0 10.05.2011 12:48
Найти количество слов которые заканчиваются на заданую букву. Си SeRhy Помощь студентам 11 10.01.2011 00:17
Определить сумму тех веществееных чисел,которые больше Р. [Паскаль] Анна22 Помощь студентам 1 07.12.2010 20:34
скопировать во второй файл слова которые начинаются и заканчиваются на одну букву Екатерина А. Паскаль, Turbo Pascal, PascalABC.NET 2 23.12.2008 15:08