 |
8. 4 задачи для самостоятельного решения
|
|
|
|
Пример 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 одинак. букв. подр. ",, " Результат: "
Пример 6
'Имя файла 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,, " Результат: "
Пример 7
'Имя файла 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)& " раз"
Пример 8
' Имя файла 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
Пример 9
' Имя файла 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
8. 4 ЗАДАЧИ ДЛЯ САМОСТОЯТЕЛЬНОГО РЕШЕНИЯ
Модификаторы
1. Напишите программу замены в слове X всех букв " а" на сочетание " ку".
2. Напишите программу, записывающую слово X в обратном порядке.
3. Напишите программу замены всех сочетаний " ку" в слове X на букву " а".
4. Напишите программу, выделяющую в слове Х все буквы " о" символами " пробел". Например, слово " сосна" должно быть преобразовано в " с о сна".
5. Напишите программу, удваивающую каждую букву слова Х.
6. Напишите программу, выделяющую в слове Х каждую букву " о" с помощью буквы " -" слева и справа.
7. Замените в слове Х все буквы " а" на сочетание " ку", а сочетание " ку" на букву " б".
8. В слове Х перед каждой буквой " к", которой предшествует буква" с", вставить букву " н".
9. Напишите программу циклической перестановки букв в слове X так, что i-я буква слова становится (i+1)-ой, а последняя - первой.
10. В слове X замените букву " а" на букву " е", если " а" стоит на чётном месте, и замените букву " б" на сочетание " ак", если " б" стоит на нечётном месте.
11. Напишите программу, заменяющую в слове X все буквы " а" и " я" на сочетание " йа".
|
|
|
12. Напишите программу, исправляющую следующую ошибку в математическом тексте: tg(x)=cos(x)/sin(x).
13. Напишите программу, заменяющую окончание " ing" каждого слова, встречающегося в заданном предложении, на " ed".
14. Город Гжатск получил новое название - " Гагарин". Напишите программу, осуществляющую в тексте замену слова " Гжатск" словом " Гагарин" (учесть, что слова имеют разную длину! )
15. Реализуйте двухместную операцию, называемую в языке программирования APL вращением, которая берет первые К символов слова X и помещает их в конец этого слова.
16. Дана последовательность слов, в каждом из которых от до 10 латинских букв; между соседними словами - не менее одного пробела.
Напечатайте все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: (1) перенести первую букву в конец слова; (2) перенести последнюю букву в начало слова.
17. Отредактируйте заданное предложение, удаляя из него все слова с нечётными номерами и переворачивая слова с чётными номерами. Например, текст " How do you do" должен преобразоваться в " od od".
18. Напишите программу, которая в заданном тексте меняет все вхождения символа " а" на " б" и " б" на " а". Например, текст " шайба" преобразуется в текст " шбйаб".
19. Измените предыдущую программу так, чтобы она заменяла по указанному правилу любые два различные символа.
20. Напишите программу, которая удаляет в данном тексте все лишние пробелы.
21. Составьте программы для перевода арабских чисел в римские и для обратной операции. Например, 55=CCLV=сто+сто+пятьдесят+пять.
Замечание
Подобными алгоритмами перевода чисел из одной системы в другую мы пользуемся в тех случаях, когда ведем денежные расчеты. Сумма денег- это арабское число, которому соответствует определенный набор банкнот и монет (аналоги римских цифр).
22. Автоморфными числами называются числа, которые содержатся в последних разрядах их квадрата. Например: 5·5=25, 25·25=625.
Составьте программу для нахождения нескольких автоморфных чисел.
|
|
|
