Символьные переменные

При решении различного рода задач наряду с вычислительными операциями с целыми и вещественными числами, широко используется обработка символьных величин. В Qbasic имеется достаточный набор операторов и функций, с помощью которых можно работать с символьными величинами. В этом разделе будут перечислены часто употребляемые операторы.

Функция MID (A$,k, n) — может использоваться для вырезки части текста символьной строки или ее замены, где А$ — имя символьной переменной, к — порядковый номер символа, с которого начинается вырезка или замена, п- количество символов для вырезки или замены.

Предположим А$="ИНФОРМАТИКА"

В$= MID$(A$,3,5) данная запись предполагает, что в символьную переменную В$, переписываются из символьной переменной А$ символы с 3 по 7 включительно.

MID$(A$,8,4) +"ЦИЯ " — данная запись оператора заменяет символы в строке. После этой операции символьная переменная А$ будет иметь значение равное слову "ИНФОРМАЦИЯ"

B$=LEFT (к, А$) переписывает к символов слева из символьной переменной А$ в символьную переменную В$

В$=RIGHT (к, А$) переписывает к символов справа из символьной переменной А$ в символьную переменную В$

N= LEN (А$) данная функция определяет длину символьной переменной А$, возвращает значение равное количеству символов в символьной переменной А$, учитывая и невидимые пробелы. Необходимо помнить, что длина символьной переменной не должна превышать 256 символов.

Примеры решения задач по теме

1. Из слова гастроном получите слова гном, нора, рана.

Решение:

Cis

а$= "гастроном"

b$=mid$ (a$,l,l)+mid$ (а$,7,3)

c$=mid$ (a$,7,2)+mid$ (а$,5,1)+ mid$ (а$,2,1)

d$= mid$ (a$,5,l)+mid$ (a$,2,l)+ mid$ (a$,7,l)+ mid$ (a$,2,l)

6. Символьные переменные

Print; a$,b$,c$

2. Из слов страх, белка, цыпленок получите слово: столбец.

Решение:

Cis

а$= "белка"

Ь$=цыпленок

с$=страх

d$= mid$ (c$,2,2)+mid$ (b$,7,l)+ mid$ (b$,4,l)+ tnid$ (a$,l,2)+ mid$ b$,l,l)

Print d$

3. Посчитайте количествово букв «о» в слове, введенном с клавиатуры.

Решение:

Cis: s=0

Input "введите словоа$

For k = 1 to 1еп(а$)

If mid$ (а$,к,1)= "о" then s=s+l

Next к

Print "кол-во букв o=";S

Составьте программу, переписывающую любое введенное с клавиатуры слово с конца

Пример:

ПОЛК -> КЛОП

Решение:

Cis: s=0

В$=""

Input "введите словоа$

For k= len(a$) to 1 step -1

B$=B$+ mid$ (a$,k,l)

Next k

Print B$

5. Составьте программу, которая введенное с клавиатуры слово выводить в верхней строке экрана, а затем по буквам переставляет в нижнюю (падающие буквы).

Решение:

CLS

INPUT "Введите слово"; А$

CLS : Locate 1, 10: Print A$

For к = 1 to len(A$)

b$ = mid$(a$, k, 1): mid$(a$, k, 1)=" "

Locate 1. 10: Print A$

For n = 2 to 20 step 2

Locate n, к + 10: print b$

For z = 1 to lOOOOiy.next z

Locate n, к + 10: print

next n

Locate 23, к + 10: print b$

next к

 
Посмотреть оригинал
< Пред   СОДЕРЖАНИЕ ОРИГИНАЛ   След >