Помогите написать скрипт на VBScript

[baiba_89]

У меня завтра контрольная по языкам програмирования и мне надо сдать две задачи по VBScript, но я даже не представляю как их сделать....Помогите пожалуйста мне их написать и если можно с пояснением....Условия задачи такие: 1) Найти в строке самое длинное слово и удалить его. 2) Даны действительные числа a1....an. Подсчитать количество локальных экстремумов в локальной последовательности. Заранее спасибо.

[Viper]

Сразу в бан или помучиться?//Или в подфорум Работа?

[Wasup!]

Думаю первый пункт можно сделать так:

Код: Выделить всё

strLongestWord = ""         'самое длинное слово
strTmp = "   asda dgdshsd   asda    dsgs   "   'исходная строка
If strTmp <> "" Then
    a = Split(strTmp)         'разбиваем строку на слова и помещаем в массив
    For i = LBound(a) To UBound(a)   'цикл по всем эл-м массива
        If a(i) <> "" Then      
            If Len(a(i)) > Len(strLongestWord) Then   'если длина текущего слова > самого длинного
                strLongestWord = a(i)               
            End If
        End If
    Next
    strOutput = strTmp
    strOutput = Replace(strTmp, strLongestWord, "",1,1) 'удаляем самое длинное слово, если оно встречается несколько раз, то только первое вхождение
    MsgBox strOutput
Else
    MsgBox "Пустая строка"
End If

Описание функций смотри по F1 в VB.
Это мое мнение, не гарантированное от ошибок, уверен существует еще множество способов, более простых и более сложных.

[AjaxVS]

Подсчитать количество локальных экстремумов в локальной последовательности

omg! Это еще что такое? Типа из разряда "корпускулярно-волнового дуализма" и "крейптлейптонной теории"? =)

[Kovu]

AjaxVS
Шо, никогда не видел как находят экстремумы(для функции)? Наверняка здесь специальная последовательность, члены которой то возрастают, то убывают.

[AjaxVS]

ну вроде, эктремумы - это типа минимальные и максимальные значения.. или нет? но вот рядом - слова "локальные" - в первый раз вижу! в общем, какая-то пугающая фраза =) нет бы, написать - найти min и max на таком-то промежутке.. вечно ученикам жизнь усложняют..

[Viper]

Термин "локальный экстремум" вполне имеет право на существование.

[baiba_89]

Спасибо на счет первой задачи....))) А вот со второй я сам и не понял что там надо найти....))