Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задачи со строками / 6 сообщений из 6, страница 1 из 1
18.12.2005, 00:48:47
    #33442708
ria
ria
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачи со строками
Нужно решить 2 задачи:
1. Даны две строки f1 и f2. Строка f1 содержит произвольный текст.
Слова в тексте разделены пробелами и знаками препинания. Строка f2
содержит не более 30 слов, которые разделены запятыми. Эти слова
образуют пары: каждое второе является синонимом первого. Заменить в
строке f1 те слова, которые можно, их синонимами. Результат поместить
в новую строку.

2. Даны две строки A и B. Составьте программу, проверяющую, можно ли
из букв, входящих в A, составить B (буквы можно использовать не более
одного раза и можно переставлять). Например, A: ИНТЕГРАЛ; B: АГЕНТ –
составить можно; В: ГРАФ – нельзя.

Помогите кто-нибудь! Все мои мучения ни к чему не привели, а скоро уже сдавать. Буду безумно благодарна за помощь!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2005, 10:48:47
    #33443537
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачи со строками
вероятно так, но лучше проверить

Код: plaintext
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.
Public Function ChangeWord(f1 As String, f2 As String) As String
    Dim A() As String
    Dim i As Integer
    Dim strTmp As String
    
    strTmp = f1
    A = Split(f2, ",")
    
    For i =  0  To UBound(A) -  1  Step  2 
        strTmp = Replace(strTmp, A(i), A(i +  1 ), , , vbTextCompare)
    Next i
    
    ChangeWord = strTmp
End Function


Public Function WordInWord(A As String, B As String) As Boolean
    Dim i As Integer
    Dim strTmp As String
    
    strTmp = A
    For i =  1  To Len(B)
        strTmp = Replace(strTmp, Mid(B, i,  1 ), "", ,  1 , vbTextCompare)
    Next i
    
    WordInWord = (Len(strTmp) = Len(A) - Len(B))

End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2005, 13:56:32
    #33444169
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачи со строками
Как я понял второй вопрос, когда первый раз прочитал. 1 строка - "ИНТЕГРАЛ". Во второй строке должно сгенерироваться слово из имеющихся букв в строке 1. Думаю, вот классная задачка. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2005, 15:03:10
    #33444382
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачи со строками
Пользователь2
практически как детская игра "Слова" (ИМХО для студентов это уж чересчур),
Думаю тут надо просто проверить можно ли составить слово "Б" из букв слова "А"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2005, 15:40:55
    #33444503
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачи со строками
HandKotДля студентов это уж чересчур. Думаю тут надо просто проверить можно ли составить слово "Б" из букв слова "А".
Я тоже так думаю. Просто она мне так показалась сначала. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2005, 01:35:06
    #33445397
ria
ria
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачи со строками
Спасибо за задачу!!! Сейчас буду разбираться... А со второй уже все OK, вопрос отпал))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задачи со строками / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 531ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2166662]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 223ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 214ms
total:  531ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]