Действия над элементами одномерного массива
Пример 1. Подсчитать общую сумму 10 чисел, записанных статически в массив и количество отрицательных чисел в этом массиве. DATA 3,4,5,-8,10.67,2.7,765,-6.98,9,-1 DIM A(10) FOR I=1 TO 10 READ A(I) S=S+A(I) IF A(I)<0 THEN N=N+1 NEXT I PRINT " сумма=";S,"N=";N END
Пример 2. Задан массив К(45). Определить минимальный элемент массива и его индекс.
DIM K(45) FOR I=1 TO 45 ' Заполнение массива INPUT K(I) NEXT I MIN=A(1) ' Переменной MIN присваивается первое значение массива FOR I=2 TO 45 IF A(I) < MIN THEN MIN=A(I):K=I NEXT I PRINT "Минимальный элемент=";MIN, "его индекс=";K END
Пример 3. Задан массив A(18). В массиве поменять местами значения 1-го и 2-го элемента, 3-го и 4-го и т.д. Измененный массив вывести на экран. DIM A(18) FOR I=1 TO 18 A(I)=INT(RND(1)*10) PRINT A(I); NEXT I FOR I=1 TO 18 STEP 2 SWAP A(I),A(I+1) ' Меняются местами значения элементов массива NEXT I FOR I=1 TO 18 PRINT A(I); ' Вывод измененного массива NEXT I END
Пример 4. Дан массив М(30). Элементы массива - произвольные числа. Выдать на экран значения каждого пятого элемента. Указанные элементы выдать в строку. DIM M(30) FOR I=1 TO 30 M(I)=INT(RND(1)*15) PRINT M(I); NEXT I FOR I=5 TO 30 STEP 5 PRINT M(I); ' Вывод каждого пятого элемента массива NEXT I
Пример 5. Сформировать из N элементов одномерный массив А и вывести его на печать в виде K столбцов. INPUT " Введите количество элементов массива ";N DIM A(N) FOR I=1 TO N A(I)=INT(RND(1)*10) NEXT I INPUT " Введите количество столбцов ";K FOR I=1 TO N PRINT A(I); IF I MOD K = 0 THEN PRINT NEXT I END Пример 6. Составить программу вычисления и печати значений функции Y=(SIN X+1) COS 4X Значения аргумента заданы статически в массиве X(10). Значения функции записать в массив Y(10) и распечатать в пять строк. DATA 5,6.78,56,7.34,678,89,5,23.9,10,34.7 DIM X(10),Y(10) FOR J=1 TO 10 READ X(J) NEXT J FOR J=1 TO 10 Y(J)=(SIN(X(J))^2+1)*SQR(COS(4*X(J))^2) PRINT Y(J); IF J MOD 2 = 0 THEN PRINT NEXT J END
|
