ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задачи со строками
6 сообщений из 6, страница 1 из 1
Задачи со строками
    #33442708
ria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ria
Гость
Нужно решить 2 задачи:
1. Даны две строки f1 и f2. Строка f1 содержит произвольный текст.
Слова в тексте разделены пробелами и знаками препинания. Строка f2
содержит не более 30 слов, которые разделены запятыми. Эти слова
образуют пары: каждое второе является синонимом первого. Заменить в
строке f1 те слова, которые можно, их синонимами. Результат поместить
в новую строку.

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

Помогите кто-нибудь! Все мои мучения ни к чему не привели, а скоро уже сдавать. Буду безумно благодарна за помощь!
...
Рейтинг: 0 / 0
18.12.2005, 00: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, 10:48:47
| Ответить | Цитировать | Написать  
Задачи со строками
    #33444169
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Как я понял второй вопрос, когда первый раз прочитал. 1 строка - "ИНТЕГРАЛ". Во второй строке должно сгенерироваться слово из имеющихся букв в строке 1. Думаю, вот классная задачка. :)
...
Рейтинг: 0 / 0
19.12.2005, 13:56:32
| Ответить | Цитировать | Написать  
Задачи со строками
    #33444382
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
Пользователь2
практически как детская игра "Слова" (ИМХО для студентов это уж чересчур),
Думаю тут надо просто проверить можно ли составить слово "Б" из букв слова "А"
...
Рейтинг: 0 / 0
19.12.2005, 15:03:10
| Ответить | Цитировать | Написать  
Задачи со строками
    #33444503
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
HandKotДля студентов это уж чересчур. Думаю тут надо просто проверить можно ли составить слово "Б" из букв слова "А".
Я тоже так думаю. Просто она мне так показалась сначала. :)
...
Рейтинг: 0 / 0
19.12.2005, 15:40:55
| Ответить | Цитировать | Написать  
Задачи со строками
    #33445397
ria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ria
Гость
Спасибо за задачу!!! Сейчас буду разбираться... А со второй уже все OK, вопрос отпал))
...
Рейтинг: 0 / 0
20.12.2005, 01:35:06
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задачи со строками
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2166662]:
 0ms
get settings:
 9ms
get forum list:
 22ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 215ms
get topic data:
 11ms
get first new msg:
 5ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 192ms
total:  512ms
созд. / загр.: 512ms
x
x
Закрыть


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