Пример 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.

Составьте программу для нахождения нескольких автоморфных чисел.