ТЕКСТОВЫЕ (СТРОКОВЫЕ) ВСТРОЕННЫЕ ФУНКЦИИ

Рассмотрим основные текстовые функции

Функция LEN (T $)

Определяет длину текстовой переменной T$, т.е. количество

содержащихся в ней символов.

A$=”ФУТБОЛ”

C=LEN(A$)

PRINT “C=”;C

Ответ C=6

 

Функция INSTR(n,T$,SL$)

Определяет номер позиции первого вхождения текста SL$ в текст T$.

Поиск начинается с позиции n текста T$. Если текст SL$ не содержится в

тексте T$, возвращается значение 0.

T$,SL$ - текстовые константы или переменные,

n – число, переменная или арифметическое выражение.

A$=”ФУТБОЛ”

B$=”БОЛ”

Y=INSTR(1,A$,B$)

PRINT Y

Ответ: 4

 

Функция MID $( T $, n , k )

Копирует k символов текста T$, начиная с n-го, где T$ - константа или

переменная текстовая, n,k – числа, переменные или арифметические

выражения.

D$=”ПОБЕДА”

C$=MID$(D$,3,4)

PRINT “C=”;C

Ответ С=БЕДА

 

Функция LEFT$(T$,k), RIGHT$(T$,k)

Копирует k левых (правых) символов текста T$.

Рассмотрим теперь применение этих функций при решении задач.

ПРИМЕР 1. В предложении из 20 символов «Петя неплохой ученик»

удалить частицу «не».

INPUT “Введите текст”; T$

L=LEN(T$) ‘определение длины текста

Y=INSTR(1,T$,”не”) ‘определение положения «не» в тексте

T$=MID$(T$,1,Y-1)+MID$(T$,Y+2,L-Y-1)

PRINT T$

END

Ответ: Петя плохой ученик

 

ПРИМЕР 2.

В тексте, содержащем n символов (n<255), выделить каждое предложение и вывести его с новой строки. Известно, что любое предложение заканчивается точкой.

Входные данные: текстовые переменные T$ - текст, B$ - разделитель

предложений (точка).

Промежуточные данные: Y – номер позиции очередной искомой точки в

тексте, А – номер позиции предшествующей точки.

Выходные данные: преобразованный текст R$.

Метод решения. Определить Y – номер позиции первой точки,

скопировать символы текста с 1 по Y в R$ и вывести их на экран, определить

номер позиции второй точки, скопировать символы текста между 1-й и

второй точками, вывести их на экран и т.д.

CLS

INPUT “Введите текст “; T$

INPUT “Введите разделительный знак”;B$

A=0

40 IF INSTR(A+1,T$,B$)=0 THEN GOTO 90

Y=INSTR(A+1,T$,B$)

R$=MID$(T$,A+1,Y-A)

PRINT R$

A=Y

GOTO 40

90 PRINT “Конец текста”

END

 

Сводная таблица операторов и функций обработки символьных объектов

 

Функция	Пример	Результат
Соединение (конкатенация)слов в Бейсике обозначается знаком «+».	В$=”радио”+”приемник” С$=”12”+”3”	Радиоприемник
Количество символов в строке LEN(A$)	LEN(“МИР”)
Выделение подстроки (части слова) MID$ (А$,I,K) А$ - исходная строка I – с какого символа выделять К – сколько символов выделять	Е$=MID$(“КОЛЕСО”,3,3)	ЛЕС
Левая часть строки LEFT$(A$,K)	D$=LEFT$(“КОЛЕСО”,3)	КОЛ
Правая часть строки RIGHT$(A$,K)	B$=RIGHT(”КОЛЕСО”,3)	ЕСО
Выделение числа из строкиVAL(A$)	VAL(“r12nm”)
Место первого вхождения подстроки в строке INSTR(A$,B$)	INSTR(“КОЛЕСО”,”О”)
Машинный код символа ASC(“…”)	ASC(“A”)
Указание символа по кодуCHR$(N)	CHR$(193)	A

Решение типовых задач по теме «Обработка символьных переменных».

1. Дана символьная фраза (Международный женский день - 8 Марта).

Разбить ее на отдельные слова и вывести их на экран в столбик. Выделить числовой символ и перевести его из символьного в числовой формат.

Решение:

Cls

a$= «Международный женский день - 8 Марта»

print left$ (a$,13)

print mid$ (a$,15,7)

print mid$ (a$,23,4)

print mid$ (a$,28,1)

print mid$ (a$,30,1)

print mid$ (a$,32,5)

b$=mid$ (a$,30,1)

print val(b$)

End

 

2. Дана символьная фраза (Международный женский день - 8 Марта).

Записать слова в фразе в обратном порядке.

 

 

Решение:

Cls

a$= «Международный женский день - 8 Марта»

print mid$ (a$,32,5)+ « »+ mid$ (a$,30,1)+ « »+ mid$ (a$,28,1)+« »+ mid$ (a$,23,4)+« »+ mid$ (a$,15,7)+« »+ left$ (a$,13)

End

 

3. Дана символьная фраза (Международный день - 8 Марта). Вставить

слово в середину фразы по смыслу (женский).

Cls

a$= «Международный день - 8 Марта»

print left$(a$,13)+ «женский»+ right$(a$,15)

End

4. Дана символьная фраза (Международный женский день - 8 Марта). Удалить слово из середины фразы по смыслу (женский).

Cls

a$= «Международный женский день - 8 Марта»

print left$(a$,13)+ right$(a$,15)

End

5. Дана символьная фраза (Международный женский день - 8 Марта).

Подсчитать количество пробелов в этой фразе.

Cls

a$= «Международный женский день - 8 Марта»

for i=1 to len(a$)

if mid$(a$,i,1)= « » then k=k+1

Next i

Print «В исходной фразе»;к; «пробелов»

End

6. Дана произвольная символьная фраза (вводится с экрана). Подсчитать количество пробелов и символов в этой фразе.

Cls

input «Введите фразу »,a$

k=0

for i=1 to len(a$)

if mid$(a$,i,1)= « » then k=k+1

Next i

Print «В исходной фразе»;к; «пробелов»

End

7. Дана произвольная символьная фраза (вводится с экрана).

Подсчитать количество повторений буквы «П» в этой фразе.

Cls

input «Введите фразу »,a$

k=0

for i=1 to len(a$)

if mid$(a$,i,1)= «П» then k=k+1

Next i

Print «В исходной фразе»;к; «повторений буквы П»

End

8. Подсчитать число вхождений в текст (вводится с клавиатуры) заданного символа, вводимого с клавиатуры.

Cls

input «Введите фразу »,a$

input «Введите какой символ надо искать », b$

k=0

for i=1 to len(a$)

if mid$(a$,i,1)= b$ then k=k+1

Next i

print «В исходной фразе»;к; «раз встречается символ»;b$

End

9. Дана произвольная символьная фраза (вводится с экрана). Запрашивается с экрана какое слово надо найти в этой фразе. Подсчитать количество повторений этого слова в этой фразе.

Cls

input «Введите фразу »,a$

input «Количество какое слово искать »,В$

k=0

for i=1 to len(a$)

if mid$(a$,i,len(B$))= В$ then k=k+1

Next i

print «В исходной фразе»;к; «повторений слова »; В$

End

10*. Дана произвольная символьная фраза (вводится с экрана). Разбить ее на отдельные слова и записать их в столбик.

Cls

input «Введите фразу »,a$

m=1

for i=1 to len(a$)

if mid$(a$,i,1)= « » then dl=i-m: print mid$(a$,m,dl):m=i+1

Next i

End

11. Задано произвольное число (вводится с экрана). Подсчитать сумму цифр этого числа.

Cls

input «Введите число »,a$

s=0

for i=1 to len(a$)

b$=mid$(a$,i,1)

s=s+val(b$)

Next i