|
Символьные и
строчные переменные.
Для того,
чтобы использовать такие переменные в программе необходимо их соответствующим
образом объявить. Для этого используется уже известный оператор DIM.
DIM s AS
STRING
s="Cтрока123"
Или
добавлять справа от переменной символ $.
s$="Тоже строка 987"
Пример:
REM Сравнение строк
s1$="abc"
s2$="abc"
s3$="klmn"
IF s1$=s2$ THEN PRINT "Строки равны"
IF s1$=s3$ THEN PRINT "Строки равны"
END
Функции для
работы со строками:
|
LEN(s$)
|
Вычисляет
длину строки (количество символов).
|
|
MID$(s$,n,k)
|
Выделяет
из строки s$ k символов начиная с n-го символа.
|
|
VAL(s$)
|
Преобразует
числовую часть начала строки в число.
|
|
STR$(x)
|
Преобразует
число в символьную форму.
|
|
ASC(s$)
|
Вычисляет
десятичный код символа.
|
|
CHR$(x)
|
Преобразует
код в символ.
|
|
INKEY$
|
Функция
опроса клавиш, нажатых на клавиатуре.
|
Задание для практической работы
Задание 1: составить программу подсчитывающую,
количество букв "а" в предложении.
REM кол-во букв "а"
INPUT "Введите предложение", s$
FOR I=1 TO LEN(s$)
IF MID$(s$,I,1)="а" THEN k=k+1
NEXT
PRINT "Кол-во букв а =", k
END
Задание 2: Заменить все буквы "а" в
предложении на буквы "о".
REM замена букв
ss$=""
INPUT "Введите предложение", s$
FOR I=1 TO LEN(s$)
IF MID$(s$,I,1)="а" THEN
ss$=ss$+"о"
ELSE
ss$=ss$+MID$(s$,I,1)
END IF
NEXT
PRINT "Исправленная строка: ",
ss$
END
Задание 3: Получить предложение в обратном
порядке следования символов.
REM обратный
порядок букв
ss$=""
INPUT "Введите предложение", s$
FOR I=LEN(s$) TO 1 STEP -1
ss$=ss$+MID$(s$,I,1)
NEXT
PRINT "Исправленная строка: ", ss$
END
|