Задачи для самостоятельного решения

Пример 9

Пример 8

Пример 7

Пример 6

Пример 5

'Имя файла Dva_podryad.vbs

'Программа определяет есть ли в строке два одинаковых подряд идущих символа

dim otvet

otvet="нет"

dim str

str=Inputbox("Введите строку","Поиск двух повторяющиеся подряд букв в строке")

dim i

For i=1 to len(str)-1

If Mid(str,i,1)=Mid(str,i+1,1) Then

otvet="есть"

End If

Next

msgbox "В "&str&" "&otvet&" 2 одинак. букв. подр.",,"Результат:"

'Имя файла A_or_B.vbs

'Программа определяет, какая из букв встречается раньше а или б.

option explicit

dim str

str=Inputbox("Введите строку","Кто раньше "&Chr(34)&"а"&Chr(34)&" или "&_ Chr(34)&"б"&Chr(34))

dim rez

rez="Тут нет ни а ни б"

dim i

i=0

str=LCase(str)

Do

i=i+1

If Mid(str,i,1)="а" Then

rez="А встретилось раньше"

End if

If Mid(str,i,1)="б" Then

rez="Б встретилось раньше"

End if

loop until Mid(str,i,1)="а" or Mid(str,i,1)="б" or (i>len(str))

msgbox rez,,"Результат:"

'Имя файла Podslovo.vbs

'Подсчёт сочетаний «Кря» во введенном слове

option explicit

dim str

str=Inputbox("Введите строку","Поиск подслова кря:")

str=LCase(str) ' Переводим элементы строки в нижний регистр

dim i

dim s

dim fstr 'то подслово что ищем

fstr="кря"

s=0

For i=1 to (len(str)-len(fstr)+1)

If mid(str,i,len(fstr))=fstr Then

s=s+1

End If

Next

msgbox fstr&" повторяется в слове "&str&" "&Cstr(s)&" раз"

' Имя файла Cifra_v_chisle.vbs

'Встречается ли цифра в числе

'-------------------------------------

function Poisk(chislo,cifra)

chislo=Cstr(chislo)

cifra=Cstr(cifra)

dim i

poisk=Cbool(false)

i=1

While mid(chislo,i,1)<>cifra and i<=len(chislo)

i=i+1

WEnd

If i<=len(chislo) Then

poisk=Cbool(true)

End If

end function

'--------------------------------------

dim chislo, cifra

msgbox "Программа определяет, встречается ли введённая цифра"&_

" в введённом числе"

chislo=Inputbox("Введите число")

cifra=Inputbox("Какой цифрой Вы интересуетесь")

If IsNumeric(chislo) and IsNumeric(cifra) and len(cifra)=1 Then

chislo=CDbl(chislo)

Cifra=CByte(cifra)

If poisk(chislo,cifra) Then

msgbox "Такая цифра есть"

Else

msgbox "Такой цифры нет"

End If

Else

msgbox "Вы ввели неправильную строку"

End If

' Имя файла Summa_kubov.vbs

'Программа находит все числа не превосходящие суммы кубов цифр

dim ch

ch=Cint(Inputbox("Введите число"))

dim i,j

dim s

dim str

str=""

For i=0 to ch

s=0

For j=1 to Len(Cstr(i))

s=s+Cint(Mid(Cstr(i),j,1))^3

Next

If Cint(s)=Cint(i) Then

str=str+Cstr(i)+"; "

End If

Next

msgbox str

Дата добавления: 2014-12-29