Функции для работы с текстами
Функция 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$ 'Вывод: Париж, Сиэтл
|
