Информатика

Всё о сервере, форум!
Основы программирования
ИНФОРМАЦИОННО-РАЗВЛЕКАТЕЛЬНЫЙ ПОРТАЛ

ИНФОРМАТИКА: ЕГЭ, ТЕОРИЯ, ПРАКТИКА, ТЕСТЫ

QBasic
Символьные и строчные переменные

Строки - последовательность алфавитно-цифровых символов.
Используется оператор DIM.
DIM s$
s$="Cтрока123"
Пример: Эта программа выводит на экран две строки.
DIM stroka AS STRING
stroka="Один"
stroka2$="Два"
PRINT stroka
PRINT stroka2$
END
Функции для работы со строками:
LEN(s$)
Вычисляет длину строки (количество символов).
MID$(s$,n,k)
Выделяет из строки s$ k символов начиная с n-го символа.
VAL(s$)
Преобразует числовую часть начала строки в число.
STR$(x)
Преобразует число в символьную форму.
ASC(s$)
Вычисляет десятичный код символа.
CHR$(x)
Преобразует код в символ.
INKEY$
Функция опроса клавиш, нажатых на клавиатуре.
Пример: составить программу подсчитывающую, количество букв "а" в предложении.
REM ‘кол-во букв "а"
INPUT "Введите предложение", s$
FOR I=1 TO LEN(s$)
IF MID$(s$,I,1)="а" THEN k=k+1
NEXT I
PRINT "Кол-во букв а =", k
END
Пример: Заменить все буквы "а" в предложении на буквы "о".
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)
NEXT i
PRINT "Исправленная строка: ", ss$
END
Пример: Получить предложение в обратном порядке следования символов.
REM ‘обратный порядок букв
ss$=""
INPUT "Введите предложение", s$
FOR I=LEN(s$) TO 1 STEP -1
ss$=ss$+MID$(s$,I,1)
NEXT
PRINT "Исправленная строка: ", ss$
END


При копировании материала с сайта активная ссылка обязательна!
Сайт управляется SiNG cms © 2010-2015