| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
помогите задачу решить
223001 © (2007-12-22 18:24:00)входной файл содержит строку Р состоящую из букв и других символов. Длина строки не привышает 2000 символов. На 2 строке задается слово s длиной не более 15 символов выходной файл должен содержать сообщение о том есть ли в предложении Р все буквы входящие в s
palva (2007-12-22 18:53:00) [1]Можно с множествами. Берем пустое множество, Добавляем по очереди все символы строки s в множество, а потом вводим строку P посимвольно и вычитаем каждый символ из множества. Если осталось пустое множество, то ответ "есть".
TUser (2007-12-22 18:38:00) [2]читаешь обе строки
сортируешь их, например, Россия -> иоРсся
выкидываешь повторы иоРсся -> иоРся
потом пробегаешь обе строки в цикле типа
j := 1
for i := 1 to length of second do
while j <= length of first do
if first[j] = second[i] then
break
else inc j
if j > length of first or first[j] <> second[j] then
return false
return true
| |
