Массив тақырыбы

Массив – жалпы атпен және типпен біріккен, нөмірлері бойынша реттелген мәндер жиынтығы.

Массивке сипаттама.

Массив құру кезінде компьютер бірдей аттары бар, бірінен соң бірі орналасқан ұяшықтар тізбегін бөліп береді.

Массив элементтері нөмірленеді. Элементтің нөмірі (индексі) – массив басына қатысты элементтің орналасуын көрсетеді.

Оператор

Жол формасы

DIM

Аты

DIM массив аты (максимал индекс)

Тағайындалуы

Оператор массив өлшемі

ЭЕМ жадысында массивті орналастырады

QBASIC-те массивтер DIM операторының

көмегімен сипатталады:

Сызықтық массив

  DIM   A(I), B(J),..., Z(N)

  Мыс-лы: DIM ˜A(5), RS(10), J1(15)

DATA және READ.

DIM A(5)

DATA 1, 2, 3, 4, 5

READ A(1), A(2), A(3), A(4), A(5)

Этот способ лучше использовать, если в задаче заданы конкретные значения элементов массива.

INPUT.

DIM B(I)

FOR I=1 TO 4 STEP 1

    INPUT B(I)

NEXT I

о очереди В(1), В(2), В(3), В(4).

А(10)массив элементінде теріс сандарды шығару [-100,100].

DIM A(10)                                

FOR I=1 TO 10 STEP 1            

   A( I )= INT (200 *RND-100)  

   PRINT USING”####”;A( I ); 

NEXT I                                         

N=0                                       

FOR I=1 TO 10 STEP 1

   IF A( I )

PRINT  N;

END

FOR I=1 TO 3                   

FOR J=1 TO 4

PRINT  A(I,J);

NEXT  J

PRINT

NEXT I

Пернетақтадан енгізілген бас орыс әрпін массивтен іздейтін және оның реттік нөмірін шығаратын программа құрыңыз.

QBASIC – те массивтің элементін бинарлық іздеу программасын мысалға келтірейік:

REM бинарлық іздеу

CLS

DIM massiv$(31)

FOR i=0 TO 31

massiv$(i)=CHR$(128+i)

NEXT i

INPUT «Введите заглавную букву русского алфавита для поиска»; a$

nachalo=0

konec=31

middle=konec\2

DO

IF a$

konec=middle

middle=middle\2

A(k) THEN X = A(i): A(i) = A(k): A(k) = X  NEXT k  NEXT i  PRINT "Наибольшее="; X  END  " width="640"

ВЫЧИСЛЕНИЕ МАКСИМАЛЬНОГО ЭЛЕМЕНТА МАССИВА"

CLS  INPUT "Введите число элементов "; N  DIM A(N)  FOR i = 1 TO N  PRINT "Введите элемент";  INPUT A(i)  NEXT i  FOR i = 1 TO N - 1  FOR k = i + 1 TO N  IF A(i) A(k) THEN X = A(i): A(i) = A(k): A(k) = X  NEXT k  NEXT i  PRINT "Наибольшее="; X  END 

Бір өлшемді массивтер

INPUT "vvedite kolichestvo elementov N ",n

DIM a(n)

FOR i=1 to N

input "vvedite element ",a(i)

next

print "massiv"

FOR i=1 to N

print a(i);

next

Екі өлшемді массивтер

INPUT"vvedite kolichestvo strok M ",m

INPUT"vvedite kolichestvo stolbcov N ",n

DIM a(m,n)

FOR i=1 to m

FOR j=1 to n

input "vvedite element ",a(i,j)

next

next

print "matrica "

FOR i=1 to m

FOR j=1 to n

print a(i,j);

next

print

next