Примеры. В среде QBASIC для обработки символьных данных используются встроенные функции

PRINT ASC(“X”) Результат: 67

PRINT ASC(“K”) Результат: 75

PRINT CHR$(81) Результат: Q

В среде QBASIC для обработки символьных данных используются встроенные функции. Рассмотрим их работу.

Функция LEN

Функция LEN определяет длину символьного выражения (включая пробелы). Общий вид функции:

LEN (текст)

где текст -текстовое выражение или имя переменной.

Пример. Определение длины текстового значения.

CLS

'Работа функции LEN

TP$=” Изучаем QBASIC ”

CRS$= ” На третьем курсе ”

PRINT ”Длина ”; TP$; LEN (TP$)

PRINT ”Курс № ”;CRS$; LEN (CRS$)

END

Результат:

Длина Изучаем QBASIC 14

Курс № На третьем курсе 16

Выделение части текста

Функция: LEFT$

Функция: LEFT$ (символьное выражение, n) выделяет заданное количество (0 < n < 32767) левых символов из строки, заданной символьным выражением.

Функция: RIGHT$

Функция: RIGHT$ (символьное выражение, n) выделяет заданное количество правых символов из строки, заданной символьным выражением.

Функция: MID$

Функция: MID$ (строковая переменная, начало [,длина]) выделяет (или заменяет при использовании слева от знака присваивания) подстроку заданной длины (1 < длина < 32767) из строки, заданной символьным выражением, начиная с заданной позиции начало. Если длина подстроки не задана или больше длины остатка строки, то в подстроку включаются все символы, начиная с заданной позиции до конца символьной строки. Если длина подстроки равна нулю или начальная позиция больше длины строки, то результатом будет пустая подстрока.

Пример. Применение функций LEFT$, RIGHT$, MID$

CLS

EXAMPLE$ = “ХОЧУ ЗНАТЬ QBASIC ОЧЕНЬ ХОРОШО”

PRINT LEFT$ (EXAMPLE$, 10)

PRINT RIGHT$ (EXAMPLE$, 12)

PRINT MID$ (EXAMPLE$, 12, 6)

Результат:

ХОЧУ ЗНАТЬ

ОЧЕНЬ ХОРОШО

QBASIC

Использование функции MID$ для замены в данной строке одной подстроки на другую равной длины.

Пример 1.

A$ = “ЭЛЕКТРОСТАНЦИЯ”

MID$(A$, 7, 8)= “ИфикациЯ”

print A$: END

Результат: ЭЛЕКТРИФИКАЦИЯ

Пример 2.

CLS

TXT$ = “Москва, Россия “

Print TXT$

MID$ (TXT$, 7, 9) =”штат Аляска “

Print TXT$

END

Результат:

Москва, Россия

Москва, штат Аляска

Функция SPACE$

Функция SPACE$ (n) формирует строку пробелов заданной длины (о< n <32767)

Пример.

CLS

FOR I = 1 TO 4

Y$ = SPACE$ (I):Print Y$; I

NEXT I

END

Результат:

 

Функция поиска подстроки в строке

Функция INSTR возвращает позицию первого вхождения одной строки внутри другой. Общий вид функции:

INSTR ([начало,]строковое выражение1, строковое выражение2)

где: начало — задает позицию в строке, с которой начинается поиск. Если этот параметр не задан, то поиск начинается с первой позиции строковое выражение1; начало должно быть в интервале от 1 до 32767;

строковое выражение1 — строка, в которой выполняется поиск;

строковое выражение2 — строка, которая ищется.

Функция INSTR возвращает 0, если:

- строковое выражение2 не найдено;

- если значение параметра начало больше длины текста;

- длина строкового выражения 1 нулевая.

Пример. Использование функции INSTR

CLS

EXAMPLE$ = “КАТЯ, ЖЕНЯ, АНЯ, МАША - МОИ ДРУЗЬЯ”

PRINT “ИМЯ ЖЕНЯ НАЧИНАЕТСЯ С ПОЗИЦИИ”;

INSTR (EXAMPLE$, “ЖЕНЯ”)

END

Результат:

ИМЯ ЖЕНЯ НАЧИНАЕТСЯ С ПОЗИЦИИ 7

Функции различных вариантов написания текста

Функция LCASE$ преобразует все буквы строки в строчные, а функция UCASE$ преобразует все буквы в прописные. Общий вид функций:

LCASE$ (текст);

UCASE$ (текст),

где: текст - текстовое выражение (переменная), предназначенное для изменения регистра.

Эти функции работают только с буквами латинского алфавита.

Пример 1.

CLS

READ WORDS

PRINT LCASE$ (WORDS);

DATA “THIS IS THE STRING IN LOWER CASE “.

END

Результат: this is the string in lower case

Пример 2. Определить пол человека, если дано полное английское написание фамилии.

CLS

DO

INPUT “Введите имя: “, NM$

LOOP UNTIL LEN (NM$) >= 3

NM$ = UCASE$ (NM$)

‘Ищем MS, MRS, или MR для установки SEX$

IF INSTR (NM$, “MS“) > 0 OR INSTR (NM$, ”MRS“)>0

THEN SEX$ =”W”: PRINT “Леди“

ELSE IF INSTR (NM$, ”MR“) >0 THEN SEX$ =”M“:

PRINT “Джентльмен “

Результат:

Введите имя: MRS TEYLOR

Леди

Функции преобразования типа данных

Функция STR$ (числовое выражение) преобразует значение заданного числового выражения в символьную строку.

Функция VAL (строковое выражение) переводит строковое представление числа в число.

Пример.

X$=“126”: S=1

P=S+VAL(X$)

Результат: P = 127