БАТЯЕВА В.Н., ШКОЛА 36, САРАНСК, МОРДОВИЯ МАССИВЫ.

Презентация:



Advertisements
Похожие презентации
МАССИВЫ Решение многих задач на ЭВМ связано с обработкой большого количества численных данных. Эти данные обычно представляются в виде различных таблиц.
Advertisements

Одномерные массивы Введение. I.Описание Массив – это фиксированное кол - во элементов одного и того же типа, объединенных одним именем, каждый элемент.
Тема: Массивы ОДНОМЕРНЫЕ МАССИВЫ. Проверка домашнего задания Найти все 3-х значные числа, заканчивающихся на 2, 4, 8 и делящихся на 6. CLS FOR I = 100.
Дан массив. Найти максимальный и минимальный элементы массива и поменять их местами. Выполнение программы Выполнение программы.
Массивы МОУ СОШ 14 Корниенко В.Н.. Определение МАССИВА Массив – это упорядоченный набор однотипных переменных, имеющий имя. Переменные в массиве называются.
PROGRAM example1; {сдвинуть циклически элементы массива вправо} const m=10; var a : ARRAY [1.. m] of INTEGER; i,k,n: INTEGER; BEGIN randomize; n:=m; WRITELN('Полученный.
ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ С ОДНОМЕРНЫМИ МАССИВАМИ. ЗАДАЧА: Вычислить сумму элементов массива program summa(input,output); var I:integer; T:array[1..5] of.
Массивы Массив это величины объединенные общим именем и различаемые порядковыми номерами. Номера называются индексами. В зависимости от количества индексов.
Способы ввода значений в массив на Паскале 1) Заполнение массива с клавиатуры а) program massiv_1; const n=5; vari: integer; a: array[1..n] of integer;
Массивы в Паскале. Создание массива: var a:array [1..5] of integer; i:integer; begin for i:=1 to 5 do begin write ('a[',i,']='); readln(a[i]); end; end.
29. Дан массив целых чисел. Найти индексы элементов, значения которых больше значения предыдущего элемента (на­чиная со второго). Program a29; Var i,n:integer;
Visual Basic. Двумерные массивы. Глезденев В.И., Удальцова А.И. – учителя информатики СОШ 3 г. Сосновый Бор.
Программирование на Basic МассивыПрограммирование на Basic Массивы.
ОДНОМЕРНЫЙ МАССИВ. Решение задач Разработка: Клинковская М.В. – учитель информатики и ИКТ МОУ гимназии 7 г. Балтийска уч. год.
Массивы Минжесовой Иляны. Содержание Массивы Объявления массивов Заполнение массивов Заполнение с клавиатуры Заполнение с помощью оператора присваивания.
Двумерные массивы. В двумерном массиве каждый элемент фиксируется номером строки и столбца, на пересечении которых он расположен. Положение элемента в.
Основы программирования на Бейсике Массивы. Задание: Найти все 3-хзначные числа, заканчивающихся на 2, 4, 8 и делящихся на 6. Ответ: CLS FOR I=100 TO.
ВВОД 2. ЕСЛИ 3. СЛЕДУЮЩИЙ 4. МАССИВ 5. ВЫВОД.
Задачи заполнения.. Заполните массив размером 10 нулями. DIM A(10) FOR I=1 TO 10 A(I)=0 NEXT I DIM A(10) FOR I=1 TO 10 INPUT A(I) NEXT I.
Двумерные массивы 1. Вид двумерного массива 2. Ввод и вывод двумерного массива 3. Матрица 4. Преобразование матрицы 5. Создание одномерного массива из.
Транксрипт:

БАТЯЕВА В.Н., ШКОЛА 36, САРАНСК, МОРДОВИЯ МАССИВЫ

Решение многих задач на ЭВМ связано с обработкой большого количества численных данных. Эти данные обычно представляются в виде различных таблиц. Часто используются одномерные и двумерные таблицы. х1х2х3...хnхn n Одномерная таблица Х состоит из n элементов. Таблица линейная – Х(n) Двумерная таблица содержит N*M элементов и каждый элемент имеет 2 индекса. Двумерную таблицу называют прямоугольной. A11A12A13A14A15 A21A22A23A24A25 A31A32A33A34A35 Двумерная таблица А (3,5). Первый индекс показывает номер строки, второй номер столбца. Таблицу часто называют массивом. Массив – совокупность величин, при которой доступ к любой из них обеспечивается заданием имени массива и индексов, определяющих положение элементов в массиве. Одномерный массив – список учеников в классе. Многомерный массив – таблица умножения, аттестат зрелости, ж/д билет, классный журнал

Заполнение массива при помощи датчика случайных чисел Задача: Заполнить массив A(22) случайными числами из отрезка [-5,37] и вывести его на экран. Private Sub Command1_Click() DIM A(1 TO 22) AS INTEGER, X AS BYTE RANDOMIZE FOR X=1 TO 22 A(X)= - 5+FIX(RND*(37 - (-5)+1)) PRINT A(X); NEXT X End Sub Формула получения случайного числа из отрезка [N,M] : Z= N+FIX(RND*(M-N+1)) Демонстрация

Private Sub Command1_Click() Dim A(1 To 22) As Integer, I As Byte Randomize c = Fix(Rnd * 15) For I = 1 To 22 A(I) = -5 + Fix(Rnd * (37 - (-5) + 1)) ForeColor = QBColor(c) Print A(I); Next I: Print End Sub

Private Sub Command1_Click() Dim B(1 TO 17) As Byte, X As Byte RANDOMIZE FOR X=1 TO 17 В(X)= 12+FIX(RND*( )) PRINT В(X); NEXT X End Sub Определите имя массива, количество элементов, способ заполнения

Private Sub Command1_Click() Dim С(1 TO 44) As Integer, X As Byte RANDOMIZE FOR X=1 TO 44 С(X)= -34+FIX(RND*(70-(-34)+1)) PRINT С(X); NEXT X End Sub Определите имя массива, количество элементов, способ заполнения ЗАПОЛНЕНИЕ МАССИВОВ ПРОГРАММНЫЙ КОД

Private Sub Command1_Click() Dim К(1 TO 19) As Integer, X As Byte RANDOMISE FOR Y=1 TO 25 А(Y)= -60+FIX(RND*(-10-(60)+1)) PRINT К(Y); NEXT End Sub Найдите ошибки!

Private Sub Command1_Click() Dim К(1 TO 19) As Integer, X As Byte RANDOMIZE FOR X=1 TO 19 К(X)= -60+FIX(RND*(-10-(-60)+1)) With Font.Bold = True.Size = 14 ForeColor = vbRed End With PRINT К(X); NEXT X End Sub

Private Sub Command1_Click() Dim К(1 TO 19) As Integer, X As Byte, S As Integer RANDOMIZE FOR X=1 TO 19 К(X)= -60+FIX(RND*(-10-(-60)+1)) PRINT К(X); NEXT X: PRINT S=0 FOR X=1 TO 19 S=S + K(X) NEXT X PRINT S=;S End Sub

Private Sub Command1_Click() Dim К(1 TO 19) As Integer, X As Byte, S As Integer RANDOMIZE FOR X=1 TO 19 К(X)= -60+FIX(RND*(-10-(-60)+1)) PRINT К(X); NEXT X :PRINT S=0 FOR X=1 TO 19 IF K(X)/2 >< K(X)\2 THEN S=S + K(X) NEXT X PRINT S=;S End Sub

Private Sub Command1_Click() DIM К(1 TO 19) As Integer, Y As Byte, S As Byte RANDOMIZE FOR Y=1 TO 19 К(Y)= -60+FIX(RND*(-10-(-60)+1)) PRINT К(Y); NEXT Y : PRINT S=0 FOR Y=1 TO 19 IF K(Y)/2 >< K(Y)\2 THEN S=S + 1 NEXT Y PRINT S=;S End Sub

Этапы решения задач с массивами: 1. Определить массив. 2. Заполнить массив. 3. Вывести элементы массива на экран. 4. Выполнить требуемое задание.

Private Sub Command1_Click() Dim A(1 To 15) As Integer, I As Byte, MIN As Integer RANDOMIZE FOR I = 1 TO 15 A(I) = -7 + INT(RND * (20 - (-7) + 1)) PRINT A(I); NEXT I: PRINT FOR I = 1 TO 15 IF A(I)/3 = FIX(A(I)/3) THEN PRINT A(I); NEXT I: PRINT PRINT MIN = A(1) FOR I = 2 TO 15 IF A(I) < MIN Then MIN = A(I) NEXT I: PRINT PRINT Минимальный элемент массива = "; MIN PRINT End Sub

Private Sub Command1_Click() Dim К(1 TO 19) As Integer, X As Byte Dim S As Integer, S1 As Integer Dim P As Single, P1 As Single RANDOMIZE FOR X=1 TO 19 К(X)= -60+FIX(RND*(-10-(-60)+1)) PRINT К(X); NEXT X : Print S = 0: S1 = 0: P = 1: P1 = 1 For X = 1 To 19 S = S + K(X) If K(X) / 2 = K(X) \ 2 Then ForeColor = vbBlue: Print K(X);: S1 = S1 + K(X) P = P * K(X) If K(X) / 2 K(X) \ 2 Then ForeColor = vbMagenta: Print K(X);: P1 = P1 * K(X) Next X ForeColor = vbBlack Print «Сумма всех элементов ="; S Print «Сумма четных элементов ="; S1 Print «Произведение всех элементов ="; P Print " Произведение нечетных элементов ="; Р1 End Sub Демонстрация