Основные приемы обработки массивов

Содержание

Слайд 2

Задача 1. Заполнить массив размерностью 10 случайными числами из промежутка [1;100].

Задача 1.

Заполнить массив размерностью 10 случайными числами из промежутка [1;100]. Вывести

на экран минимальный элемент массива.
Слайд 3

CLS REM ПОИСК MIN ЭЛЕМЕНТ МАССИВА DIM С(10) FOR I =

CLS
REM ПОИСК MIN ЭЛЕМЕНТ МАССИВА
DIM С(10)
FOR I = 1 TO 10
С(I)

= INT(RND * 100) + 1
PRINT С(I)
NEXT I
MIN = С(1)
FOR I = 1 TO 10
IF С(I) < MIN THEN MIN = С(I)
NEXT I
PRINT "MIN = “; MIN
END
Слайд 4

Задача 2. В одномерном массиве Y(К) провести следующие преобразования: элементы не

Задача 2.

В одномерном массиве Y(К) провести следующие преобразования: элементы не превышающие

число L оставить без изменения, а остальные заменить на противоположные по знаку.
Слайд 5

CLS REM преобразование INPUT “ввод размерности массива К”; K INPUT “ввод

CLS
REM преобразование
INPUT “ввод размерности массива К”; K
INPUT “ввод числа L”; L
DIM

Y(K)
FOR i=1 TO K
INPUT Y(i)
NEXT I
FOR i=1 TO K
IF Y(i)NEXT I
FOR i=1 TO K
PRINT “Y(“; i; ”)=”; Y(i)
NEXT i
END.
Слайд 6

Задача 3. Для одномерного массива A(N), найдите сумму элементов больших числа Т.

Задача 3.

Для одномерного массива A(N), найдите сумму элементов больших числа Т.


Слайд 7

CLS REM ПОИСК СУММЫ БОЛЬШИХ ЧИСЛА Т INPUT “ВВЕДИТЕ РАЗМЕР МАССИВА”;N

CLS
REM ПОИСК СУММЫ БОЛЬШИХ ЧИСЛА Т
INPUT “ВВЕДИТЕ РАЗМЕР МАССИВА”;N INPUT “ВВЕДИТЕ

ЧИСЛО Т”;T DIM A(N) S=0: Rem ячейка для суммы FOR I=1 TO N INPUT A(I) IF A(I) > T THEN S=S+A(I) NEXT I PRINT”СУММА ЭЛЕМЕНТОВ МАССИВА, БОЛЬШИХ”;T;”РАВНА”;S END
Слайд 8

Задача 4. Дан массив А(N). Заполнить массив случайными числами из промежутка

Задача 4.

Дан массив А(N). Заполнить массив случайными числами из промежутка [-10;60].

Найти количество положительных и отрицательных элементов в данном массиве.
Слайд 9

CLS REM INPUT “ввод размерности массива”; N DIM A(N) FOR i

CLS
REM
INPUT “ввод размерности массива”; N
DIM A(N)
FOR i = 1 TO

N
А(i) = INT(RND * 60)-10
PRINT “А("; i; ")=“; А(i)
NEXT I
REM ПОДСЧЕТ
K1 = 0: K2 = 0: REM K1 счетчик положительных: REM
K2 счетчик отрицательных
FOR I=1 TO N
IF A(I) > 0 THEN K1=K1 +1
IF A (I) < 0 THEN K2 =K2 +1
NEXT I
PRINT” положительных =”; K1, “отрицательных =”; K2
END
Слайд 10

Задача 5. Дан массив А(N). "Сожмите" числовой массив, выбросив из него

Задача 5.

Дан массив А(N). "Сожмите" числовой массив, выбросив из него отрицательные

числа. Измененный новый массив вывести на экран.
Слайд 11

5 CLS 10 INPUT “РАЗМЕР МАССИВА”; N 20 DIM A(N) 30

5 CLS
10 INPUT “РАЗМЕР МАССИВА”; N
20 DIM A(N)
30 K=0
40 FOR I=1

TO N
50 PRINT “ВВЕДИТЕ”;I;“ЭЛЕМЕНТ МАССИВА”
60 INPUT A(I)
70 IF A(I)<0 THEN K=K+1
80 NEXT I
90 M=N-K
100 DIM B(M)
110 FOR J=1 TO M
120 I=J
130 WHILE A(I)<0
I=I+1
WEND
140 B(J)=A(I)
150 NEXT J

160 PRINT “СТАРЫЙ МАССИВ”
170 FOR I=1 TO N
180 PRINT A(I): NEXT I
190 PRINT “НОВЫЙ МАССИВ”
200 FOR J=1 TO M
210 PRINT B(J);
220 NEXT J
230 END

Слайд 12

Задача 6. Дан массив А(N). Заполнить массив случайными числами из промежутка

Задача 6.

Дан массив А(N). Заполнить массив случайными числами из промежутка [1;100].

Написать программу для определения сколько раз число 10 встречается среди элементов одномерного массива.
Слайд 13

CLS INPUT “размер массива”; N DIM A(N) K=0 FOR i=1 TO

CLS
INPUT “размер массива”; N
DIM A(N)
K=0
FOR i=1 TO N
A(i)=INT(RND(1)*100)
IF A(i)=10 THEN K=K+1
PRINT

A(i);
NEXT I
PRINT “количество элементов равных 10”;K
END
Слайд 14

Задача 7. Дан двумерный массив А(N; M). Найти максимальный элемент массива

Задача 7.

Дан двумерный массив А(N; M). Найти максимальный элемент массива и

его индексы

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

Слайд 15

5 CLS 10 REM вывод элементов двумерного массива на экран 20

5 CLS
10 REM вывод элементов двумерного массива на экран
20 INPUT “кол-во

строк=”;N
30 INPUT “кол-во столбцов=”;M
40 DIM А(N, M)
50 FOR i = 1 TO N
60 FOR j = 1 TO M
70 А(i, j) = INT(RND * 20) + 1
80 PRINT А(i, j);
90 NEXT j
100 PRINT
110 NEXT I
200 REM поиск максимального элемента
210 MX= A(1,1): K =1: L=1: REM K,L – номера соответственно строки и столбца
220 FOR I = 1 TO N : REM N – КОЛИЧЕСТВО СТРОК
230 FOR J = 1 TO M: REM М – КОЛИЧЕСТВО СТОЛБЦОВ
240 IF A (I,J) > MX THEN MX =A (I,J)
250 K = I : L = J
260 NEXT J : NEXT I
270 PRINT” MX =”; MX; “( “; K; “,”; L; “)”
280 END
Слайд 16

Дан двумерный массив А(N;M). Заполнить массив случайными числами из промежутка [-40;40].

Дан двумерный массив А(N;M). Заполнить массив случайными числами из промежутка

[-40;40]. Составить программу замены отрицательных элементов таблицы их квадратами.

Задача 8.

Слайд 17

CLS INPUT “кол-во строк=”;N INPUT “кол-во столбцов=”;M DIM A(N,M) FOR i=1

CLS
INPUT “кол-во строк=”;N
INPUT “кол-во столбцов=”;M
DIM A(N,M)
FOR i=1 TO N
FOR j=1 TO

M
A(i,j)=INT(RND(1)*40)-40
PRINT A(i,j);
IF A(i,j)<0 THEN A(i,j)=A(i,j)^2
NEXT j
NEXT I
REM ВЫВОД НА ЭКРАН ИЗМЕННЫЙ МАССИВ
FOR i=1 TO N
FOR j=1 TO M
PRINT A(i,j);
NEXT j
NEXT i
END
Слайд 18

Задача 9. Дан двумерный массив А(10,10). Напишите программу формирования и вывода

Задача 9.

Дан двумерный массив А(10,10). Напишите программу формирования и вывода массива

произвольного размера так, чтобы каждый последующий элемент, начиная со второго, был больше предыдущего на 5. Первый элемент задайте датчиком случайных чисел.
Слайд 19

CLS INPUT “размерность массива =”;N DIM A(N,N) FOR I=1 TO N

CLS
INPUT “размерность массива =”;N
DIM A(N,N)
FOR I=1 TO N
FOR J=1 TO N
IF

I=1 AND J=1 THEN N
IF J=1 AND I>1 THEN A(I,J)=A(I-1,N)+5 ELSE A(I,J)=A(I,J-1)+5
NEXT J
NEXT I
FOR I=1 TO N
FOR J=1 TO N
PRINT A(I,J);
NEXT J:PRINT
NEXT I
END
Слайд 20

Задача 10. Напишите программу формирования массива размером 5*5 датчиком случайных чисел.

Задача 10.

Напишите программу формирования массива размером 5*5 датчиком случайных чисел. Замените

в нем нечетные значения элементов максимальными. Выведите исходный массив и измененный массивы.
Слайд 21

CLS: DIM A(5,5) FOR I=1 TO 5: FOR J=1 TO 5

CLS: DIM A(5,5)
FOR I=1 TO 5: FOR J=1 TO 5
A(I,J)=INT(RND(1)*100)
PRINT

A(I,J);
NEXT J:PRINT:NEXT I
MAX=0
FOR I=1 TO 5
FOR J=1 TO 5
IF A(I,J)>MAX THEN MAX:=A(I,J)
NEXT J
NEXT I
PRINT “МАКСИМАЛЬНОЕ ЧИСЛО МАССИВА =”;MAX
FOR I=1 TO 5
FOR J=1 TO 5
IF A(I,J) MOD 2 <>0 THEN A(I,J)=MAX
PRINT A(I,J);
NEXT J
PRINT
NEXT I
Слайд 22

Домашнее задание: Написать конспект по данной теме Решать следующие задачи: 1)

Домашнее задание:

Написать конспект по данной теме
Решать следующие задачи:
1) В массиве

А1, А2, ..., А50 определить количество нулей. Ввод данных организовать с использованием генератора случайных чисел.
2) В массиве B1, B2, ..., B45 найти сумму отрицательных чисел.
3) Заполнить массив размерностью N случайными числами из промежутка [-50;50]. Найти и вывести на экран максимальный элемент массива.
4) Дан двумерный массив 5х5. Найдите сумму всех отрицательных элементов массива.
5) Заполнить двумерный массив размерностью MхN случайными числами из промежутка [-150;150]. Заменить все положительные значения элементов массива на ноль.