Программирование на языке qbasic

жүктеу/скачать 479.5 Kb.

бет	6/13
Дата	28.06.2016
өлшемі	479.5 Kb.
	#163119

1 2 3 4 5 6 7 8 9 ... 13

Вспомогательные функции

Символьные функции.

К этим функциям относятся функции, аргументом которых является текст.

ASC

Функция ASC. Даёт значение функции в кодах ASCII .

Пример:

PRINT ASC("A")

CHR$

Функция, обратная функции ASC. Аргументом является значение кода символа, а значением символ.

Пример:

PRINT CHR$(81)

INSTR

Функция, позволяющая найти подстроку из строки и указать место, где она находится.

Пример:

Программа ищет место, где находится знак @

'если знака @ нет, то значение функции0
INPUT "Введи свой электронный адрес"; email$

S = INSTR(email$, "@")

PRINT "Знак @ находится на месте"; S

LCASE$

Функция превращает символьную строку в строку, написанную маленькими буквами.

Пример:

PRINT LCASE$("JOOSEP@KUSKIL.EE")

LEFT$

Аргументом функции является символьная строка и число. Выбирает слева столько символов, сколько указано в числе.

Пример:

a$ = "Microsoft QBASIC"

PRINT LEFT$(a$, 5)'Получаем: Micro

LEN

Аргументом ввляется символьная строка. Функция показывает сколько символов содержит строка.

Пример:

INPUT "Введи своё имя"; N$

PRINT "В твоём имени "; LEN(N$); "букв"

LTRIM$

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

Пример:

a$=" BLAH"

PRINT LTRIM$(a$)

MID$

Аргументами является символьная строка и два числа. Функция выбирает из символьной строки с заданного места указанное число символов.

Пример:

a$ = "Информатика"

PRINT MID$(a$, 3, 5) 'Результатом будет -форма

Замечание:

Функцию можно использовать и для замещения.
Пример:

A$ = "Mann Potik"

PRINT "Фамилия до брака "; A$

MID$(A$, 6, 5) = "Kuusk"

PRINT "Фамилия после брака: "; A$

RIGHT$

Аналогична функции LEFT$. Выбирает справа столько знаков, сколько указано в числе.

Пример:

a$ = "Microsoft QBASIC"

PRINT RIGHT$(a$, 5) 'Результатом будет: BASIC

RTRIM$

Функция убирает справа в символьной строке все пустые места.

Пример:

a$="BLAH "

PRINT RTRIM$(a$)

STR$

Функция превращает число с символьную строку.

Пример:

ARV=45*2+5

TEKST$="WINDOWS "+STR$(ARV)

PRINT TEKST$

UCASE$

Функция превращает символьную строку в строку, написанную большими буквами.

Пример:

PRINT UCASE$("as siil ruudus")

VAL

Превращает символьную строку в число, если это возможно. Иначе даёт значение 0.

Пример:

Tekst$ = "100" 'Это текст

Arv = VAL(Tekst$) 'превращаем текст в число

PRINT 2 * Arv 'число можно умножать

Вспомогательные функции

DATE$

Функция даты. Аргументов нет. Выдаёт сегодняшнее число в виде символьной строки.

Пример:

PRINT DATE$

.

TIME$

Функция времени. Аргументов нет. Выдаёт значение времени в виде символьной строки.

Пример:

PRINT TIME$

Замечание: С помощью этой функции можно менять время на компьютере.
TIMER

Функция указывает количество секунд, которые прошли с 12 часов ночи. Используется при генерации случайных чисел.

Пример: (эту программу надо самим прерывать с помощью CTRL+BREAK

DO

LOCATE 1, 1 'курсор на позицию 1,1

PRINT TIMER

LOOP

INKEY$

Функция читает нажатые клавиши. Нет аргументов. Если клавиша не нажимается. Значением является пустая символьная строка.

Пример: (типичный случай "press any key to continue..." )

PRINT "Нажми клавишу для продолжения....."
'цикл продолжается. Пока значением 'inekey$ не будет пустая строка

DO

LOOP UNTIL INKEY$ <> ""

жүктеу/скачать 479.5 Kb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7 8 9 ... 13