Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Функции для работы с текстами
|
|
Функция LEN предназначена для определения длины символьного выражения
Формат:
LEN (текст)
Функция определяет длину значения строкового выражения.
Например:
T$=”Москва”
K=LEN(T$)
PRINT “длина текста = “; K
< На экране появится: длина текста = 6>
В QBASIC существует несколько функций, позволяющих выделять символы из текстового выражения.
Функция LEFT$ возвращает строку символов из n левых символов
Формат:
LEFT$ (текст, n)
Например:
T$=”контрабас”
A$=LEFT$(T$, 6)
? A$
< На экране появится: контра>
Функция RIGHT$ возвращает строку символов из n правых символов
Формат:
RIGHT$ (текст, n)
Например:
T$=”контрабас”
A$=RIGHT$(T$, 3)
? A$
< На экране появится: бас>
Если число n больше длины текста, то обе функции возвращают весь исходный текст.
Функция MID$ (возвращает фрагмент из текста: n символов, начиная с k-го символа.
Формат:
MID$ (текст, k, [n])
К – порядковый номер символа.
N – количество символов, подлежащих обработке.
Например:
T$=”информатика”
A$=MID(T$, 3, 5)
? A$
< На экране появится: форма>
Если n не указано, то функция возвращает символы начиная с к-го и до конца текста.
Например:
T$=”Москва, Париж и Лондон”
A$=MID(T$, 9)
? A$
< На экране появится: Париж и Лондон>
Пример 1. Задан текст. Подсчитать каких букв в тексте больше “а” или “о” и на сколько.
LINE INPUT “введите текст”; T$
L=LEN(T$)
KA=0: KO=0
FOR I=1 TO L
IF MID$(T$, I, 1)=”A” OR MID$(T$, I, 1)=”a” THEN KA=KA+1
IF MID$(T$, I, 1)=”O” OR MID$(T$, I, 1)=”o” THEN KO=KO+1
NEXT I
IF KA> KO THEN PRINT “Букв а больше, чем о на “; KA-KO
IF KO> KA THEN PRINT “Букв o больше, чем a на “; KO-KA
IF KA=KO THEN PRINT “Букв а и о равное количество “
Пример 2. Задан текст. Подсчитать сколько предложений в тексте.
LINE INPUT “введите текст”; T$
L=LEN(T$)
К=0
FOR I=1 TO L
IF MID$(T$, I, 1)=”.” OR MID$(T$, I, 1)=”! ” OR MID$(T$, I, 1)=”? ” THEN K=K+1
— Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
— Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
— SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Зарегистрироваться и Начать продвижение
NEXT I
PRINT “В тексте “; K; ” предложений”
Пример 3. Дано слово “информатика”. Составить из букв этого слова 3 новых слова.
T$=”информатика”
T1$=MID$(T$, 3, 3)+MID$(T$, 7, 1)
T2$=MID$(T$, 5, 1)+LEFT$(T$, 1)+MID$(T$, 3, 1)+MID$(T$, 6, 2)
T3$=MID$(T$, 2, 1)+MID$(T$, 4, 2)+RIGHT$(T$, 2)
PRINT T1$; ”, “; T2$; ”, “; T3$
< на экране появится: фора, рифма, норка>
Пример 4. Дано слово. Выяснить является ли это слово перевертышем, то есть читается слева направо и наоборот одинаково. Например “казак”.
LINE INPUT “Введите слово”; T$
M$=””
FOR I=LEN(T$) TO 1 STEP -1
M$=M$+MID$(T$, I, 1)
NEXT I
IF T$=M$ THEN PRINT “Да является” ELSE PRINT “Нет не является”
Для самостоятельного решения:
Задание1:
Задано слово “энциклопедия”. Кто составит больше слов из букв этого слова и кто составит самое длинное слово
Задание 2:
Задано слово. Напечатать это слово в обратном порядке.
Задание 3:
Задан текст. Напечатать каждое предложение этого текста с новой строки.
Функция INSTR ищет подстроку в строке начиная с позиции n. Если n не задано, то поиск осуществляется с первой позиции. Функция INSRT дает номер позиции, начиная с которой заданная подстрока появляется в исходной строке. Функция возвращает 0, если подстрока не найдена в строке.
Формат:
INSTR ([n], текст, подстрока)
Например:
T$=”информатика”
A$=”форма”
N=INSTR(1, T$, A$)
? N
< На экране появится: 3>
Пример 1. Задан текст. Подсчитать сколько раз в тексте встречается словосочетание “кот”.
1 способ:
LINE INPUT “Введите текст”; T$
L=LEN(T$)
FOR I=1 TO L
IF MID(T$, I, 3)=”кот” THEN K=K+1
NEXT I
? “Количество словосочетаний кот = ”; K
2 способ:
LINE INPUT “Введите текст”; T$
T=INSTR(1, T$, ”кот”)
WHILE T< > 0
K=K+1
T=INSTR(T+1, T$, ”кот”)
WEND
? “Количество словосочетаний кот = ”; K
Пример 2. Задан текст, в котором есть несколько двоеточий. Напечатать текст между первыми двумя двоеточиями.
LINE INPUT “Введите текст”; T$
T1=INSTR(1, T$, ”: ”)
T2=INSTR(T1+1, T$, ”: ”)
PRINT MID$(T$, T1+1, T2-T1-1)
Пример 3. Задан текст. Подсчитать количество слов в первом предложении. Слова разделены пробелом.
1 способ
LINE INPUT “Введите текст”; T$
K=1
PT=INSTR(T$, ”.”)
FOR I=1 TO PT
IF MID$(T$, I, 1)=” “ THEN K=K+1
NEXT I
PRINT”Количество слов в первом предложении=”; K
2 способ
LINE INPUT “Введите текст”; T$
K=1
I=1
WHILE MID$(T$, I, 1)< > ”.”
IF MID$(T$, I, 1)=” “ THEN K=K+1
I=I+1
WEND
PRINT”Количество слов в первом предложении = ”; K
— Разгрузит мастера, специалиста или компанию;
— Позволит гибко управлять расписанием и загрузкой;
— Разошлет оповещения о новых услугах или акциях;
— Позволит принять оплату на карту/кошелек/счет;
— Позволит записываться на групповые и персональные посещения;
— Поможет получить от клиента отзывы о визите к вам;
— Включает в себя сервис чаевых.
Для новых пользователей первый месяц бесплатно. Зарегистрироваться в сервисе
Пример 4. Задан текст. Подсчитать количество слов «ученик» в последнем предложении.
LINE INPUT “Введите текст”; T$
K=0
I= Len(T$)-1
WHILE MID$(T$, I, 1)< > ”.”
B$= MID$(T$, I, 8)
IF B$=” ученик “ OR B$=” Ученик “ THEN K=K+1
I=I-1
WEND
PRINT”Количество слов ученик в последнем предложении = ”; K
Оператор MID$ замещает часть строковой переменной другой строкой.
MID$(строк_переменная$, k[, n])=строк_выражение$
строк_выражение$ - строка, из которой функция MID$ возвращает подстроку, или строка замещения, используемая в операторе MID$. Может быть любым строковым выражением.
K - позиция первого возвращаемого или замещаемого символа в строке.
N - число символов в подстроке. Если длина опущена, MID$ возвращает или замещает все символы справа от начальной позиции.
строк_переменная$ - строковая переменная, изменяемая оператором MID$.
Пример:
Text$ = " Париж, Франция"
PRINT Text$ 'Вывод: Париж, Франция
MID$(Text$, 8) = " Сиэтл "
PRINT Text$ 'Вывод: Париж, Сиэтл
|
|