Стандартные функции Basic

Функции языка Basic

Константы, переменные и стандартные

Язык программирования QBasic

Алфавит языка включает в себя все буквы от A до Z латинского алфавита, цифры от 0 до 9, знаки арифметических операций (+, –, *, /, \, ^), знаки операционных отношений (=, >, <, >=, <=). Знаки препинания и разделители (,.;:).

Кроме этих символов используются более 200 зарезервированных слов, включая ключевые слова, операторы, встроенные команды, встроенные функции, метакоманды.

Лекция 7

Константы – это заранее определенные величины, которые при выполнении заданной программы не меняются. Существует два типа констант: числовые и строковые.

Переменная – это величина, значение которой может меняться в процессе выполнения программы. Для обозначения переменной используется имя, содержащее от 1 до 40 алфавитно-цифровых символов, начиная с буквы. Различают простые переменные и переменные с индексами. Переменные с индексами называются массивами. Простая переменная обозначается идентификатором, а массивы задаются именем и списком индексов, заключающихся в круглые скобки. Индексы разделяют запятыми, принимая целые значения, а если они не целые, то они округляются до ближайшего целого числа.

sin x = SIN(X)

cos x = COS(X)

tg x = TAN(X)

arctg x = ATN(X)

arcos x = ACOS(X)

ln x = LOG(X)

e^x = EXP(X)

|x| = ABS(X)

x^a = X^A

x^1/4 = X^(1/4)

DEF FNF(X,Y)

Операторы цикла с условиями в начале и в конце цикла

а) DO WHILЕ (условие)

операторы

LOOP

б) DO (условие)

WEND

в) DO

оператор

LOOP [WHILE условие]

1. Дан массив х_i [-1, 2, 4, -7, 8, -9]

Напечатать порядковые номера отрицательных элементов

CLS

DIM X(6)

DATA -1, 2, 4, -7, 8, -9

FOR I = 1 TO 6

READ X(I)

IF X(I)<0 THEN PRINT I

NEXT I

END

2. Дан массив х_i [-1, 2, 4, -7, 8, -9]

Организовать два разных массива y_k и z_l, состоящих из отрицательных и положительных элементов и вывести на печать эти два массива.

y [-1, -7, -9] y(3)

z [2, 4, 8] z(3)

CLS

DIM X(6), Y(6), Z(6)

DATA -1, 2, 4, -7, 8, -9

FOR I=1 TO 6

READ X(I)

l=0, k=0

FOR I=1 TO 6

IF X(I)<0 THEN

k=k+1

Y(k)=X(I)

ELSE

l=l+1

Z(l)=X(I)

END IF

NEXT I

FOR I=1 TO k

PRINT Y(I)

NEXT I

FOR I=1 TO l

PRINT Z(I)

NEXT I

END

3. Дан массив x_i [-1, 2, 4, -7, 8, -9]

Найти наибольший отрицательный элемент.

CLS

DIM X(6)

DATA -1, 2, 4, -7, 8, -9

FOR I=1 TO 6

READ X(I)

NEXT I

FOR I=1 TO 6

IF X(I)<0 THEN max=X(I)

NEXT I

FOR I=1 TO 6

IF X(I)<0 AND X(I)>max THEN

max=X(I)

END IF

NEXT I

PRINT "max="; max

4. Дан массив х_i [-1, 2, 4, -7, 8, -9]

Расставить этот массив по возрастающей.

INPUT N

DIM X(N), b(N)

DATA -1, 2, 4, -7, 8, -9

FOR I=1 TO 6

READ X(I)

PRINT X(I)

NEXT I

FOR I=1 TO N

FOR J=1 TO N-1

IF X(Y)>X(Y+1) THEN

b(1)=X(J+1)

b(2)=X(Y)

X(Y)=b(1)

X(J+1)=b(2)

END IF

NEXT J

NEXT I

FOR I=1 TO N

PRINT X(I)

NEXT I

5. Дан массив из целых чисел C_ij, i=, j=.

Найти максимальный элемент в каждой строке и заменить их элементом, который стоит на пересечении главных диагоналей.

C₆₆=

CLS

INPUT N

DIM C(N,N), Z(N,N)

DATA 6, -1, 2, 4, 7, 5

DATA

DATA

DATA
DATA

DATA 4, 1, 11, 7, 2, 3

FOR I=1 TO N

FOR J=1 TO N

READ C(I,J)

PRINT C(I,J)

NEXT J

PRINT

NEXT I

DIM max (N)

FOR I=1 TO N

max(I)=C(I,J)

FOR J=1 TO N

IF C(I.J)>max=(I) THEN max(I)=C(4,4)

NEXT О

NEXT I

FOR I=1 TO N

FOR J=1 TO N

IF С(I,J)=max(I) THEN Z(I,J)=С(4,4)

ELSE Z(I,J)=C(I,J)

END IF

PRINT Z(I,J)

NEXT I

PRINT

NEXT J

6. Дан массив х_i [1, 4, 7, 5, 9, 2]

Найти производные двух соседних элементов и организовать новый массив z_i из полученных данных

DIM X(6), J(5)

DATA 1, 4, 7, 5, 9, 2

FOR I=1 TO 6

READ X(I)

NEXT I

FOR I=1 TO 6

Z(I)=X(I)*X(I+1)

PRINT Z(I)

NEXT I

Лекция 8

Дата добавления: 2014-01-06