| Вопрос: Помогите с программами по VB Script!!! Please | Добавлено: 21.11.06 02:21 |
Автор вопроса:  hv2003
|
|
Помогите написать две программы (или киньте ссылочку на сайт с похожими). По идее, должны были быть фигнёй, но в институте препод ничего толком объяснить не может.
1)Найти наибольшую подпоследовательность, заключённую между двумя нечётными цифрами. 2)Вывести из предложения слово, содержащее наименьшее число латинских гласных букв. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 22.11.06 16:41 |
|
Что-то типа
maxc = 0
maxci = 0 for i = 1 to n if a(i) mod 2 = 0 then c = c + 1 if c > maxc then maxc = c maxci = i - c + 1 end if else c = 0 end if next и a = split(p, " "
for i = 0 to ubound 
d = 0 for j = 1 to len(a(i)) c = mid(a(i), j, 1) if c="A" or c="E" or c="O" or c="I" or c="U" then d = d + 1 end if if i = 0 then mind = d w = a(i) else if d < mind then mind = d w = a(i) end if next next |
||
Страница: 1 |