Главная Контакты Случайная статья Автоматизация Антропология Археология Архитектура Биология Ботаника Бухгалтерия Военная наука Генетика География Геология Демография Деревообработка Журналистика Зоология Изобретательство Информатика Искусство История Кинематография Компьютеризация Косметика Кулинария Культура Лексикология Лингвистика Литература Логика Маркетинг Математика Материаловедение Медицина Менеджмент Металлургия Метрология Механика Музыка Науковедение Образование Охрана Труда Педагогика Полиграфия Политология Право Предпринимательство Приборостроение Программирование Производство Промышленность Психология Радиосвязь Религия Риторика Социология Спорт Стандартизация Статистика Строительство Технологии Торговля Транспорт Фармакология Физика Физиология Философия Финансы Химия Хозяйство Черчение Экология Экономика Электроника Электротехника Энергетика
	Янбр Парт ⇐ ПредыдущаяСтр 2 из 2 Янбр Парт
Июль
Сент	♦ хммххмхххю	cxmot
Нояб
35 40 45		50 55	60 65 ?0

CLS

PRINT " Рост удоев на ферме г.Нью-Васюки" PRINT

FOR Month = 1 ТО 12 STEP 2 READ Month$, Temp

'Вывод Temp-35 звездочек.

PRINT Month$; " +"; STRINGS(Temp - 35

PRINT " |" NEXT Month

'Вывод горизонтальной пинии. PRINT " +"; FOR X = 1 TO 7

PRINT "--- +" ;

NEXT X

PRINT

'Вывод шкалы высоких удоев.

FOR X = 4 ТО 39 STEP 5

PRINT TAB(X); X + 31; NEXT X PRINT

DATA Янвр, 70, Март, 60, Май , 5 0 DATA Июль, 45, Сент, 50, Нояб, 40

INSTR

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

INSTR([начало,]строка!,строка2)

начало — условное смещение от начала строки, устанавливающее позицию начала поиска. Число в пределах 1—32767. Если не зада­но, функция INSTR начинает поиск с первого символа строки!;

• строка1 — строка, в которой производится поиск;

• строка2 — искомая подстрока.

Значение, возвращаемое INSTR зависит от следующих условий:

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

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"                      ■ »

ELSEIF INSTR(Nm$, "MR") > 0 THEN

Sex$ = "M"

ITT CC

¹ Невозможно определить, лучше спросим. DO

INPUT "Введите пол (M/W): ", Sex$

Sex$ = UCASE$(Sex$)

LOOP WHILE Sex$ <> "M" AND Sex$ <> "W" END IF IF Sex$ = "M" THEN PRINT "Джентльмен" ELSE PRINT "Леди"

Введите имя: Mrs. Higgins Леди

Введите имя: Col. Pickering Введите пол (M/W): М Джентльмен

LEFT$

LEFTS — символьная функция, возвращающая строку, со­держащую п левых символов исходной строки.

LEFTS(символьное выражение, п)

• символьное_выражение — исходная строка;

• п — числовое выражение в пределах 0—32767.

Если п = 0, возвращается пустая строка.

Пример:

CLS

А$ = "QuickBASIC Forever ! "

В$ = LEFTS(А$, 5)

PRINT B$

Вывод:

Quick

RIGHTS

RIGHTS — символьная функция, возвращающая правые п символов символьной строки.

RIGHT${символьное_выражение, п)

•, символьное_выражение — исходная строка;

• п — числовое выражение от 0 до 32767, указывающее сколько
символов справа требуется взять. Если п = 0, возвращается пу­
стая строка.

Пример: преобразование имени вида "Имя Фамилия* в форму "Фамилия, Имя".

CLS

LINE INPUT "Имя: "; Nm$ Sppos  = INSTR(1, Nm$, " ")

IF Sppos = 0 THEN

PRINT Nm$  'Введена только фамилия. ELSE

Lastname$ = RIGHTS{Nm$, LEN(Nm$) - Sppos)

Firstname$ ~ LEFT$(Nm$, Sppos - 1)

PRINT Lastname$; " ,"; Firstname$ END IF END

Результат:

Имя: Билл Гейтс Гейтс, Билл

МЮ$ (функция)

МЮ$ — символьная функция, возвращающая фрагмент ука­занной строки.

MID$(символьное_выражение,начало[,длина])

• символьное_выражение — исходная строка;

• начало — числовое выражение от 1 до 32767, начальная сим­
вольная позиция фрагмента данной строки;

• длина — длина фрагмента.

Если длина опущена или количество символов от начала до конца строки меньше длины, то функция М Ю$ возвращает фрагмент от начала до конца строки. Если начало больше, чем длина символьного выражения, МГО$ возвращает пустую строку.

Пример: использований MIDS для преобразования двоич­ного числа в десятичную форму.

CLS

INPUT "Введите двоичное число =", Binary$

Length = LEN(Binary$)

Decimal = 0

FOR k = 1 TO Length

' Извлечение единиц и нулей. Digit$ = MID$(Binary$, k, 1) IF Digit$ = "0" OR Digit$ = "1" THEN ' Преобразование в десятичное число. Decimal = 2 * Decimal + VAL(Digits) ELSE

PRINT "Неверно введено число: "; Digit$ EXIT FOR END IF NEXT k PRINT "Десятичное число = "; Decimal

Введите двоичное число = 10110 Десятичное число = 22

МЮ$ (оператор)

МЮ$ — символьный оператор, заменяющий фрагмент стро­ки на содержимое другой строки.

MID$(строка, начало[,длина]) - символьное„выражение

• строка — символьная переменная, в которой требуется произ­
вести изменения;

• начало — числовое выражение, определяющее начальную по­
зицию в исходной строке, с которой производится замена;

• длина — количество символов из символьного выражения;

• символьное выражение — представляет новые символы.

Аргументы начало и длина — целые выражения. Аргумент строка должен быть только символьной переменной, но сим-

вольное выражение может быть переменной, константой или вы­ражением.

Если длина опущена, то производится замена полным со­держимым символьного выражения. Если длина задана, то про­изводится замена указанным количеством символов слева из символьного выражения. Заменяемый фрагмент не может превы­сить текущей длины переменной.

Пример:

CLS

Те st$ = "Париж, Франция "

PRINT Test$

MID$(Test$, 7, 8)= "шт.Техас"

PRINT Test$

ВЫВОД :

Paris, Франция Paris, шт.Техас

НЕХ$

НЕХ$ — символьная функция, возвращающая шестнадцате-ричное представление десятичного аргумента.

НЕХ$(выражение)

• выражение — любое выражение, имеющее десятичное значение.

Пример:

CLS

INPUT X

А$ = НЕХ$(X)

PRINT X; "в десятичной форме — это"; А$; " в шестнадцате-

ричной"

Вывод:

? 32

32 в десятичной форме — это 20 в шестнадцатеричной

ост$

ОСТ$ — символьная функция, возвращающая символьное представление восьмеричного значения аргумента.

ОСТ$(числовое_выражение)

•   числовое_выражение — может быть любого типа.

STR$

STR$ — символьная функция, возвращает символьное пред­ставление числа или числового выражения.

STRS(числовое_выражение)

Если числовое выражение положительно, строка возвращается с начальным пробелом. Превращение числа в символьное выра­жение позволяет производить над ним те же действия, что и с символьной строкой: складывать, выделять фрагменты числа, за­менять, форматировать и т. д.

Пример:

CLS

Profit% = 50000

PRINT "Прибыль составила" + STR$(Profit%) + ".00 рублей"

Результат.:

Прибыль составила 50000.00 рублей

LEN

LEN — символьная функция, возвращающая количество символов данной строки или количество байт, занимаемых пере­менной.

п = ЬЕЖсимвольное_выражение) n = LEN(переменная)

• символьное_выражение — строка символов;

• переменная — объект любого типа, для которого требуется уз­
нать занимаемый объем памяти.

Пример: определение длины переменных различных типов (байт).

TYPE EmpRec

EmpName AS STRING * 2

EmpNum AS INTEGER END TYPE

DIM A AS INTEGER, В AS LONG, С AS SINGLE, D AS DOUBLE DIM E AS EmpRec

PRINT "Строка символов: "; LEN("Строка")

PRINT "Целое число: "; LEN(A)

PRINT "Длинное целое: "; LEN(В)

PRINT "Обычной точности: "; LEN(C)

PRINT "Двойной точности: "; LEN(D)

PRINT "Запись типа EmpRec: ■; LEN(E)
END

Строка символов:  6

Целое число:      2

Длинное целое:    4

Обычной точности: 4

Двойной точности: 8

Запись типа EmpRec: 22