Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
Функции для работы с текстами
|
|
Функция 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
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$ 'Вывод: Париж, Сиэтл
|
|