Советы, трюки и секреты для Blogger.com блоггеров. Все для Blogspot. Советы, трюки и секреты для Blogger.com блоггеров. Все для Blogspot.

Работа с одномерными массивами BASIC

17 октября 2008, 00:50

Пример № 1: В массиве действительных чисел b1, b2, …,bn поменяйте местами максимальный и минимальный элементы.

Решение:
10 CLS
20 Input “Введите размерность массива”; N
30 Dim a(N)
40 For i=1 TO N
50 Input a(i)
60 Next i
70 min=a(1)
80 i1=1
90 max=a(1)
100 i2=1
110 For i=1 TO N
120 If a(i)<=min THEN min=a(i) : i1=i
130 If a(i)>=max THEN max=a(i) : i2=i
140 Next i
150 Print “max=”; max, “Инд=”; i2
160 Print “min=”; min, “Инд=”; i1
170 Swap a(i1), a(i2)
180 Print “a(min)=”; a(i1)
190 Print “a(max)=”; a(i2)
200 End

Пример № 2: В массиве A(m) хранятся различные вещественные числа. Найдите сумму квадратов отрицательных элементов и сумму положительных. Подсчитайте количество положительных, отрицательных и нулевых элементов.

Решение:
10 CLS
20 INPUT "Vvedite m"; m
30 DIM A(m)
40 FOR i = 1 TO m
50 PRINT "Vvedite A("; i; ")="
60 INPUT A(i)
70 NEXT i
80 SP = 0: SO = 0
90 FOR i = 1 TO m
100 IF A(i) > 0 THEN
110 SP = SP + A(i)
120 ELSE
130 SO = SO + A(i)
140 END IF
150 NEXT i
160 PRINT "SСумма положительных элементов="; SP; "Сумма отрицательных элементов="; SO
170 END

Пример № 3: Дан массив С(N) натуральных чисел. Найдите сумму элементов, кратных данному числу k.

Решение:
10 CLS
20 Input “Введите размерность массива:”; N
30 Input “Введите число K:”; K
40 Dim C(N)
50 Sum=0
60 For i=1 to N
70 Input “Введите элемент массива A(i)”; A(i)
80 If A(i) MOD K=0 Then
90 Sum=Sum+A(i)
100 End IF
110 Next i
120 Print “Сумма элементов =”; Sum, “кратных числу”; K
130 End

Пример № 4: Дана последовательность чисел a1, a2,…,an. Укажите наименьшую длину числовой оси, содержащую все эти числа.

Решение:
10 cls
20 Input “n=”; n
30 Dim a(n)
40 For i=0 to n
50 Print “a(“;i;”)=”; “”
60 Input a(i)
70 If i=0 then min=a(i)
80 max=a(i)
90 If a(i)100 If a(i)>max then max=a(i)
110 Next i
120 Print “Наименьшая длина числовой оси:” ma0x-min
130 End

Пример № 5: Дано четное число n, действительные числа а1, а2, а3,…, аn. Найдите сумму элементов, расположенных правее последнего отрицательного элемента.

Решение:
10 CLS
20 INPUT n
30 lasti = 0
40 FOR i = 1 TO n
50 INPUT a(i)
60 IF a(i) < 0 THEN lasti = i
70 NEXT i
80 IF lasti > 0 AND lasti < n THEN
90 FOR i = lasti + 1 TO n
100 a(i) = 0
110 NEXT i
120 END IF
130 FOR i = 1 TO n
140 PRINT a(i)
150 NEXT i
160 END
 
 
Работа с одномерными массивами BASIC