Бейсик тіліндегі программалар.

2.1. Массивтен ең үлкен және ең кіші элементтерді анықтау.

10 REM Массивтен ең кіші және ең үлкен

20 REM элементтерін табу

30 INPUT “n=”, N: DIM A(N)

40 FOR K=1 TO N: READ A(K): NEXT

50 MIN=A(1): L1=1; MAX=A(1): L2=1

60 FOR K=2 TO N

70 IF A(K)<MIN THEN MIN=A(K): L1=K

80 IF A(K)>MAX THEN MAX=A(K): L2=K

90 NEXT

100 PRINT “min=”; MIN; “номер=”; L1

110 PRINT “max=”; MAX; “номер=”; L2

120 DATA 5, 8.2, 4, 10, 2.3, 9.7

 

2.2. Көпмүшеліктің мәнін Горнер схемасы бойынша

Есептеу.

10 REM Горнер схемасы

20 INPUT “n, x=”; N, X: DIM A(N): Y=0

30 FOR K=0 TO N

40 PRINT “a(“K”)=”: INPUT A(K)

50 Y=Y*X+A(K)

60 NEXT K

70 PRINT “Y(“ X ”)=”; Y

END

Массив элементтерін реттеу.

(Өсу бойынша реттеу)

10 REN Өсу бойынша реттеу

20 INPUT “n, x=”; N: DIM A(N)

30 FOR I=0 TO N: READ A(I): NEXT

40 FOR K=0 TO N-1

50 M=A(K): L=K

60 FOR J=K+1 TO N

70 IF A(J)<M THEN M=A(J): L=J

80 NEXT J

90 A(L)=A(K): A(K)=M

100 NEXT K

110 FOR K=1 TO N: PRINT A(K);: NEXT

120 DATA 5, 8.2, 4, 10, 2.3, 9.7

130 END

 

2.4. Матрицаны матрицаға көбейту.

10 REN Матрицаны матрицаға көбейту

20 INPUT “n, x=”; N: DIM A(N, N), B(N, N), C(N, N)

30 FOR K=0 TO N: FOR J=0 TO N

40 READ A(K, J), B(K, J): NEXT J, K

50 FOR K=0 TO N: FOR I=0 TO N

60 C(K, I)=0

70 FOR J=0 TO N

80 C(K, I)=C(K, I)+A(K, J)*B(J, I)

90 NEXT J

100 PRINT USING “####”; C(K,I);

110 NEXT I: PRINT: PRINT: NEXT K

120 DATA 3, 1, 1, 2, 2, 0, 4, 3, 0, 1, 5, 5, 2, -4, 1, 0, 1, 7, 2

 

2.5. Матрицаны векторға көбейту.

10 REN Матрицаны векторға көбейту

20 INPUT “n, x=”; N: DIM A(N, N), B(N), C(N)

30 FOR K=0 TO N: FOR J=0 TO N

40 READ A(K, J): NEXT J, K

50 FOR K=0 TO N

60 READ B(K): NEXT K

70 FOR K=0 TO N

80 C(K)=0

90 FOR J=0 TO N

100 C(K)=C(K)+A(K, J)*B(J)

110 NEXT J

120 PRINT USING “####”; C(K);

130 NEXT K

140 DATA 3, 1, 1, 2, 2, 0, 4, 3, 0, 1, 5, 5, 2

 

2.6. Көбейту кестесін орындау.

10 REM A ны B ға көбейту

20 INPUT “A=”; A

30 INPUT “B=”; B

40 PRINT A; “ны ”;B; “ға көбейтіп, жауапты жаз”

50 INPUT C

60 IF C=A*B THEN 90

70 PRINT “қате”

80 GOTO 100

90 PRINT “дұрыс”

100 END

2.7. Шеңбер ішінде толық жатушы ақ және қара квадраттар санын анықтау.

Мәселенің қойылуы. Квадраттар саны nхn болған шахмат тақтасы берілген. Осы шахмат тақтасының ортасына R радусты шеңбердің ортасы дәл келтіріп жатқызылған. Шеңбер астына толығымен кірген ақ және қара квадраттарның санын анықтаушы программа жазылсын.

Программа төмендегіше:

10 Rem talgat1

20 input “N= “;N

30 input “R= “;R

40 ak=0:kappa=0

50 a=N/2:b=N/2

60 for i=1 to N

70 for j=1 to N

80 k=0

90 if ((i-1)-a)^2+((j-1)-b)^2<=R^2 then k=k+1

100 if (i-a)^2+((j-1)-b)^2<=R^2 then k=k+1

110 if ((i-1)-a)^2+(j-b)^2<=R^2 then k=k+1

120 if (i-a)^2+(j-b)^2<=R^2 then k=k+1

130 if (k=4) and (i=int(i/2)*2) and (j<>(int(j/2)*2)) then ak=ak+1

140 if (k=4) and (i<>(int(i/2)*2)) and (j<>(int(j/2)*2)) then kappa=kapa+1

150 if (k=4) and (i=int(i/2)*2) and (j=(int(j/2)*2)) then kappa=kappa+1

160 if (k=4) and (i<>(int(i/2)*2)) and (j=int(j/2)*2) then ak=ak+1

170 next j

180 next i

190 print “kapa= “; kapa

200 print “ak= ”; ak

210 end

2.8. n+m дәрежелі теңдеулердің бүтін мәнді шешімдер санын анықтау.

Мәселенің қойылуы. Берілген Xⁿ+Y^m =A теңдеудің бүтін санды шешімдер санын анықтау керек. Бұл жерде n, m және A оң бүтін сандар. X және Y оң бүтін сандар. Осы теңдеудің оң бүтін мәнді шешімдер санын анықтаушы программа жазылсын.

Программа төмендегіше:

10 rem talgat2

20 input “n= “; n

30 input “m= “; m

40 input “a= “; a

50 L=0

60 for i=1 to 100

70 for j=1 to 100

80 if i^n+j^m = a then L=L+1: print “(“; i; j; ”);”

90 next j

100 next i

110 print “L= “; L

120 end

Мысалы n=2, m=2, a=50 болғанда яғни X²+Y² =50 теңдеудің бүтін санды шешімдер саны үшеу болып, олар мыналар: (1,7), (7,1) және (5,5).

 

2.9. Шеңбер бойында бірдей қашықтықта жайласқан n нүктелерді жылжыту.

Мәселенің қойылуы. N нүктелерді шеңбердің жоғарғы нүктесінен бастап, сағат стрелкасы бойынша бірдей қашықтықта шеңбер үстіне орналастырамыз. Нүктелер саны - n және әректтер саны -m бүтін сандар.

+Х - оң жаққа (сағат тілінің бағытымен) Х орынға айналдыру.

-Х - сол жаққа (сағат тіліне қарама-қарсы бағытымен) Х орынға айналдыру.

*Х – Y позициясының айналасында айналдыру.

Бұл жерде: 0<=N, М <= 10⁵, 0<=<=10⁹, 1<=Y <=N.

Үш әрекет орындалады:

1 - әрекет +Х (мысалы, +2);

2 - әрекет -Х (мысалы, -3);

3 - әрекет *Х (мысалы, *3) Х позициясының айналасында айландыру.

Программа төмендегіше:

10 rem talgat3

20 input “n= “; n

25 input “m= “; m

26 dim a(n)

27 for i=1 to n

28 input “a(i)= “; a(i)

29 next i

30 for k= 1 to m

40 input “d$= “; d$

60 if len(d$)<>2 then 350

62 f1$=mid$(d$,1,1)

64 if f1$<>”+” and f1$<>”-“ and f1$<>”*” then 350

95 n1=val(mid$(d$,2,1))

100 if f1$=”+” then 200

110 if f1$=”-” then 250

120 k1=int((n-1)/2)

130 for j=1 to k1

140 k2 = n1+j

145 if k2>n then k2=k2-n

150 k3 = n1-j

160 if k3<1 then k3=n-k3

170 s=a(k2):a(k2)=a(k3)

175 a(k3)=s

180 next j

190 goto 300

200 for j=1 to n1: s=a(n)

210 for i=n to 2 step -1

220 a(i)=a(i-1)

230 next i

240 a(1)=s

242 next j

244 goto 300

250 for j=1 to n1: s= a(1)

255 for i=1 to n-1

260 a(i)=a(i+1)

265 next i

270 a(n)=s

275 next j

300 for i= 1 to n

305 print a(i);

310 next i

320 next k

350 end

Мысалы шеңбер бойына 1, 2, 3, 4 және 5 сандары жайластырылған.

Осы сандар +2 әрекеттен соң шеңбер бойында былай орналасып қалады: 4, 5, 1, 2, 3.

Соң -3 әрекетен соң олар шеңбер бойында былай орналасып қалады: 2, 3, 4, 5, 1.

Бұл сандар *3 әрекетен соң олар шеңбер бойында былай орналасып қалады: 1, 5, 4, 3, 2.

2.10. Сұрақ жауап тесті.

5 RUN tect (abs)

10 print “сен 10 сыныпта оқисың ба? (Y/N)

15 input A$

20 if A$=”Y” then k=k+1

30 print “ сен жұмыс істейсің ба? (Y/N)

35 input A$

40 if A$=”Y” then k=k+1

50 print “сен банкте істейсің ба? (Y/N)

55 input A$

60 if A$=”Y” then k=k+1

70 print “сенің қарындасың бар ма? (Y/N)

75 input A$

80 if A$=”Y” then k=k+1

90 print “өлең оқуды жақтырасың ба? (Y/N)

95 input A$

100 if A$=”Y” then k=k+1

110 print “сен қазір отырсың ба? (Y/N)

115 input A$

120 if A$=”Y” then k=k+1

130 print “сенде компьютер бар ма? (Y/N)

135 input A$

140 if A$=”Y” then k=k+1

150 print “сенде кітап көп па? (Y/N)

155 input A$

160 if A$=”Y” then k=k+1

170 print “сен музыканы ұнатасың ба? (Y/N)

175 input A$

180 if A$=”Y” then k=k+1

190 print “жалғастыруды қалайсың? (Y/N)

195 input A$

200 if A$=”Y” then k=k+1

210 print “ия саны = ”; k

220 print “жоқ саны = ”; 10-k

230 end

2.11. Мәтіндегі әріп санын анықтау.

X шамада берілген мәтінде Y шамада анықталған әріптің санын анықтайтын программа төмендегіше:

10 RUN мәтіндегі әріп санын анықтау

20 input “мәтінді енгіз”; X$

30 input “әріпті енгіз”; Y$

40 k=len (X$)

50 L=0

60 for i= 1 to k

70 if mid$(x$,i,1) = Y$ then L=L+1

80 next i

90 print “әріп саны”; L

100 end

2.12. Ондық сандардың екілік санау жүйесіндегі өрнегін анықтау.

Программа төмендегіше

5 RUN Санның екіліктегі өрнегі (aid2)

10 input “n= “;n

20 X$=””: m=n

30 if m<2 then 80

40 if (m-int(m/2)*2)=1 then X$ = X$+”1”

50 if (m-int(m/2)*2)=0 then X$ = X$+”0”

60 m=int(m/2)

70 if m>2 then 30

80 if m=1 then X$ = X$+”1”

90 if m=0 then X$ = X$+”0”

100 k = len (X$): Y$=””

110 for i = k to 1 step -1

120 Y$ = Y$+mid$(X$,i,1)

130 next i

140 print “n= “; n

150 print “Y$= “; Y$

160 end

Сумманы есептеу.

көріністегі сумманы есептеу прогаммасы төмендегіше болады:

10 REM сумма

20 input “n= “;n

30 s=0

40 for i = 1 to 2*n-1 step 2

50 s=s+(i^2)/((i+1)^3)

60 next i

70 print “s= “;s

80 end

 

2.14. Аспан және сағатты бейнелеу.

Бұл программада аспан көрінісі немесе сағаттың есептелуі экранда алынады.

10 REM Аспан немесе сағат

20 input “ Аспан немесе сағат”; A$

25 if A$=” аспан” goto 85

30 if A$=” сағат” goto 40

40 for k= 1 to 1

50 for s=0 to 59

55 print tab(30): print tab(1)

60 print k; “:”; s; “ “

62 for k= 1 to 99999!: next i

67 next s

70 next k

75 goto 150

85 for t= 1 to 100

90 B$ = “.”

95 x=int(rnd(1)*45)

100 y=int(rnd(1)*56)

110 if x=0 or y=0 goto 95

120 print tab(x): print tab(y)

130 print B$

140 next t

150 end

 

2.15. Арифметикалық амалдардың орындалуын сынау.

5 REM Азайту және бөлу амалдардын орындауын сынау

10 r=0

15 a$ = ”-“: b$ = “:”: c$ = “=”

20 x=int(rnd(1)*10)

25 y=int(rnd(1)*10)

30 if x<y then t=y: y=x: x=t

35 gosub 100

55 r=r+1

60 if r<4 goto 20

70 end

100 s=x-y

110 print x; a$; y; c$

115 input z

116 if z=s then print “дурыс”

117 if z<>s then print “кате”

120 s=x/y

130 print x; b$; y; c$

135 input q

137 if q=s then print “дурыс”

139 if q<>s then print “кате”

140 return

 

2.16. Жалақы және салықтарды есептеу.

10 REM жалақы

20 input “аты жөніңді енгіз”; f$

30 input “жұмыска шыққан күндер”; rd

40 input “қосымша табыс”; d

45 input “бір күндік орташа табыс”; s1

50 input “жасау минимумы”; m

60 z=rd*s1

70 nas=z+d

80 pe=nas*1/10

90 pr=nas*2.5/100

100 if nas<=5*m then 140

110 if nas>5*m and nas<=10*m then 160

120 pn =5*m*13/100

121 pn =pn+5*m*21/100

122 pn =pn+(nas-10*m)*30/100

130 goto 170

140 pn =nas*13/100

150 goto 170

160 pn =5*m*13/100+(nas-5*m)*21/100

170 nar =nas-(pe+pr+pn)

175 print “жалақының жалпы жазылуы”; nas

180 print “зейнет ақы”; pe

190 print “кәсіп одақ взносы”; pr

200 print “табыстан салық”; pn

210 print “қолға алатын жалақы”; nar

220 end

2.17. Тармақталу командасын қолдану.

Берілген

функцияны есептеу программасы төмендегіше:

5 REM тармақталу командасына мысал

10 input “x= “;x

20 if x<=2 then 40

30 if x>2 then 60

40 y=x^2+x

50 goto 70

60 y=x^3+sqr(x)+7

70 print “y= “;y

80 input “жалғастырасыз ба (Y/N)?”; a$

85 if a$<>”Y” and a$<>”N” goto 80

90 if a$=”Y” goto 10

100 print “қош болыңыз”

110 end

 

2.18. Екілік санау жүйесінен ондық санау жүйесіне өткізу.

5 REM Екіліктен ондыққа өту

10 input “екілік санды енгізіңіз”; x$

20 k=len(x$)

30 s=0: n=k

40 for i=1 to k

50 n=n-1

60 if mid$(x$,i,1)=”1” then s=s+1*2^n

70 next i

80 print “x$= ”; s

90 end

 

2.19. Екі санды бөліп нәтижені символ көрінісінде шығару.

10 REM Екі санды бөлу

20 input “алымындағы сан”; x

30 input “бөліміндегі сан”; y

40 s = x/y

50 s1= int(s*1000)

60 r$ = str$(s1)

70 k = len(r$)

80 r$ = str$(s1/1000)

90 ptint x; “: “; y; “ = “;

100 for i=1 to k+1

110 k1$ = mid$(r$,i,1)

120 print k1$

130 next i: end

2.20. Тест құру.

10 REM Тест құру (test)

20 Print “Алғашқы ЭВМ қалай аталады”

30 Print “а) ПРОЛОГ, б) ЭНИАК, с) БЭСМ”

40 Input T$

50 if T$=”б” then Print “дұрыс” else Print “қате”

60 Print “2. Ақпараттың ең кіші өлшем бірлігі”

70 Print “а) килобайт, б) байт, с) бит”

80 Input T$

90 If T$=”c” then Print “дұрыс” else Print “қате”

100 End

ON K GOTO операторы.

5 REM Арифметикалық амалдарды орындау

10 input “1,2,3,4”; k

15 a$=”-“: b$= “=”

20 c$=”+”: r=1

30 d$ =”*”: f$ = “:”

40 x=int(rnd(1)*100)

50 y=int(rnd(1)*100)

55 if x<y then y=x: x=y

57 on k goto 60, 63, 70, 75

60 s=x-y

62 print x; a$; y; b$: goto 85

63 s=x+y

64 print x; c$; y; b$: goto 85

70 s=x*y

73 print x; d$; y; b$: goto 85

75 s=x/y

83 print x; f$; y; b$: goto 85

85 input z

90 if z=s then print “дұрыс”

95 if z<>s then print “қате”

98 if z<>s goto 85

100 r=r+1

110 if r<2 goto 40

120 end

 

2.22. CIRCLE операторын қолдану.

10 REM Жұлдызды аспан

20 SCREEN 9

30 for c=1 to 100

40 x=rnd(1)*600

50 y=rnd(1)*300

60 CIRCLE (x,y),r,c

70 paint (x,y)c

80 next c

90 end

2.23. TAB операторын қолдану.

10 rem кестені шығару

20 dim a$(3)

30 a$(1)=”дүниеде ең үлкен өзен”

40 a$(2)=”Қытай халқының саны”

50 a$(3)=”Алғашқы ЭВМ қалай аталады”

60 for i=1 to 3

70 print TAB(20): print TAB(12)

80 print a$(i)

90 input n

100 next i

110 end

 

2.24. DATA, READ операторларын қолдану.

10 REM Екі санның қосындысын есептеу

20 dim a(10): dim b(10)

30 DATA 90, 80, 70, 60, 50, 40, 30, 20, 10, 100

40 for i=1 to 5: READ a(i): next i

50 for i=1 to 5: READ b(i): next i

60 input i

70 s=a(i)+b(i)

80 print s

90 end

 

10 REM кесте элементтеріне мән беру

20 dim a(3,4)

20 DATA 1,6,8,4,2,9,1,2,4,5,6,7

30 for i=1 to 3

40 for j=1 to 4

50 READ a(i,j)

60 print a(i,j)

70 next j

80 print

90 next i

100 end

 

5 REM кесте формасын жарату

10 s=8

15 dim a$(s)

20 DATA “ “, A, B, C, D, E, F, G, H

30 for i=1 to 8

40 READ a$(i)

50 print “ “; a$(i);

60 next i

70 print

80 for j=1 to 8

90 print; j;

92 for k=1 to 8

93 print “F”;

94 next k

95 print j;

98 print

100 next j

110 for i=1 to 8

120 print “ “; a$(i)

130 next i

140 end

 

10 REM DATA, READ операторлары арқылы тест құру

20 t=0: s=5

30 dim d$(s), k$(3*s)

40 ms=0

50 DATA 1.қатарыңыздағылар сізді сүйеді ме, а.ия, в.жоқ, с.білмеймін, 2. дүниедегі барлық нәрселердің құны бар деп ойлайсыз ба, а.жоқ, в.ия, с.білмеймін.

3.тағдырыңыз сіз ойлағандай ма, а.білмеймін, в.ия, с.жоқ,

4.дауыстап сөйледі ме, а.ия, в.жоқ, с.білмеймін, 5.кітап оқығанды жақсы көресіз бе, а.жоқ, в.ия, с.білмеймін,

60 for i=1 to s

70 READ d$(i)

80 print d$(i)

90 print: “-------“

100 print: print: print

110 for j=1 to 3

120 READ k$(j)

130 print kk$(j)

140 next j

150 input f$

160 if f$=”а” then m=1

170 if f$=”б” then m=2

180 if f$=”с” then m=3

190 print M “балов”

200 ms=ms+m

210 next i

220 print “Жалпы балл= ”; mc

230 end

 

2.25. GOSUB операторларын қолдану.

10 REM Герон формуласы

20 dim a(12), b(12), c(12)

30 for i=1 to 12

40 read a(i)

50 next i

60 for j=1 to 12

70 read b(j)

80 next j

90 for k=1 to 12

100 read c(k)

110 next k

120 data 3,4,5,6,7,5,7,6,2,1,3,4

130 data 2,3,2,4,1,2,4,5,6,3,4,4

140 data 2,3,4,6,7,5,4,5,6,3,2,3

150 i=1

160 GOSUB 200

170 i=i+1

180 if i>12 goto 160

190 goto 160

200 REM s – үшбұрыш ауданы

210 aa=a(i): bb=b(i): cc=c(i)

220 p=(aa+bb+cc)/2

230 s=sqr(p*(p-aa)*(p-bb)*(p-cc))

240 print “p= ”; p, “s= “; s, “i= “; i

250 return

260 end

 

2.26. Бейсик тілінде программалауға тапсырмалар.

Тапсырма.

1. Паралепипедтің А, В, С қабырғалары берілгенде. Оның көлемін есептеу программасы жазылсын.

2. Пернетақтадан Х саны енгізіліп, бұл санның квадрат түбірі есептелетін программа жазылсын.

3. А, В сандар енгізілген, олардың қосындысы және көбейтіндісі есептелетін программа жазылсын.

4. А, В сандар енгізілген, олардың квадраттарының косындысының түбірі есептелетін программа жазылсын.

5. R радиусты L ұзындықтағы ағаш берілген. Ағаштың көлемін есептейтін программа жазылсын.

6. Экватордың ұзындығы 40 мың шақырым. Жердің диаметрін есептейтін программа жазылсын.

7. Үшбұрыштың қабырғалары а, в, с берілген. Үшбұрыштың ауданын есептейтін программа жазылсын.

8. Көбейту кестесін есептейтін программа жазылсын.

9. А және Р сандары енгізілген. А ның Р процентіне тең мәнін есептейтін программа жазылсын.

10. Кассаға қойылған ақша S теңге. Бұл ақша N жылдан кейін қаншаға көбейуін есептейтін программа жазылсын. Ақшаның бір жылдық өсімі 4 процент деб алынсын.

11. Жұмысшының жалақысы S теңге болса. Профсоюз 1%, пенсия 10%, дараматқа салық 5% деп есептелсе, жұмысшының қолына алатын ақшасын есептейтін программа жазылсын.

12. Бір цифрлы сан енгізілген. Бұл санды әріппен баспаға түсіретін программа жазылсын.

13. Y=a x +bx+c көпмүшелік х=1, 2, 3, 4, 5 мәндерде есептеліп нәтиже кесте көрінісінде алынатын программа жазылсын a=2, b=4, c=6.

14.. Y=a x функция көпмүшелік х=1, 2, 3, 4, 5 мәндерде есептеліп нәтиже кесте көрінісінде алынатын программа жазылсын a=2.

15. А, Н, В, Р, С, О әріптерін бірер кестенің элементтері деп қарап, АСАНОВ АНВАР сөзін құрастырушы программа жазылсын.

 

2- т апсырма.

1. S=1+2+3+…+n сумманы есептеу программасы жазылсын.

2. 3 – ке бөлінуші (n - ге дейінгі сандардан) сандар тізбегін алушы программа жазылсын.

3. S=1+3+5+…+2n-1 сумманы есептеу программасы жазылсын.

4. S=2+4+6+…+2n сумманы есептеу программасы жазылсын.

5. S=1х2+2х3+3х4+…+nх(n+1) сумманы есептеу программасы жазылсын.

6. S=1+1/2+1/3+1/4+…+1/n сумманы есептеу программасы жазылсын.

7. S=1х1+2х2+3х3+…+nхn сумманы есептеу программасы жазылсын.

8. S=1х1+3х3+5х5+…+(2хn-1) сумманы есептеу программасы жазылсын.

9. S=2х2+4х4+6х6+…+2nх2n сумманы есептеу программасы жазылсын.

10. S=n! Фактариалды есептеу программасы жазылсын.

11. С =n!/(n-m)! Фактариалдар өрнегін есептеу программасы жазылсын.

12. Орта арифметикалық мәнді есептеу программасы жазылсын.

13. Екі бүтін санның ең үлкенортақ бөлгіші анықтаушы программа жазылсын.

14. sign(x) функциясын есептеу программа жазылсын.

15. Берілген саннан бүтін және бөлшек бөлігін ажрататын программа жазылсын.

 

 

3 -т апсырма

1. A(n) кесте элементтерінен с1<=A(n)<=c2 шартын қанағаттандырушы элементтерін анықтаушы программа жазылсын.

2. A(n) кесте элементтерінен ең үлкен және ең кіші элементтерді анықтаушы программа жазылсын.

3. A(100) кесте элементтерін В(10,10) кестеге жайластырушы программа жазылсын.

4. A(n) кесте элементтерінен теріс, оң, ноль элементтер санын анықтаушы программа жазылсын.

5. A(n) кесте элементтерін өсіп бару тәртібімен реттеуші программа жазылсын.

6. A(n) кесте элементтерін кемейіп бару тәртібімен реттеуші программа жазылсын.

7. A(n, n) кестенің ноль болмаған диагонал элементтерінің санын анықтаушы программа жазылсын.

8. A(n), В(n) кестелердің сәйкес элементтерінің көбейтіндісінен С(n) кестесін құру программа жазылсын.

9. A(n), В(n) кестелердің сәйкес элементтерінің қосындысынан С(n) кестесін құру программа жазылсын.

10. A(n, n) матрицаның транспонирленген матрицасын анықтаушы программа жазылсын.

11. A(n, n) матрицаның кері матрицасын анықтаушы программа жазылсын.

12. A(10,10) кесте элементтерін В(100) кестесіне орналастыру программасы жазылсын.

13. A(n) кестеден жұфт мәнді элементтерді В(n) кестеге көшіру программа жазылсын.

14. A(n, n) матрицаның В(n) векторға көбейту программасы жазылсын.

15. A(n, n) матрицаның В(n, n) матрицаға көбейту программасы жазылсын.

3. VISUAL BASIC ОРТАСЫНЫҢ СИПАТТАМАСЫ