Паскаль
<<  Понятие массива Массивы  >>
Массивы
Массивы
Решение многих задач на ЭВМ связано с обработкой большого количества
Решение многих задач на ЭВМ связано с обработкой большого количества
Заполнение массива при помощи датчика случайных чисел
Заполнение массива при помощи датчика случайных чисел
Private Sub Command1_Click() Dim A(1 To 22) As Integer, I As Byte
Private Sub Command1_Click() Dim A(1 To 22) As Integer, I As Byte
Private sub command1_click() dim B(1 TO 17) as byte, X as byte
Private sub command1_click() dim B(1 TO 17) as byte, X as byte
Private sub command1_click() dim С(1 TO 44) as integer, X as byte
Private sub command1_click() dim С(1 TO 44) as integer, X as byte
Private sub command1_click() dim К(1 TO 19) as integer, X as byte
Private sub command1_click() dim К(1 TO 19) as integer, X as byte
Private sub command1_click() dim К(1 TO 19) as integer, X as byte
Private sub command1_click() dim К(1 TO 19) as integer, X as byte
Private sub command1_click() dim К(1 TO 19) as integer, X as byte, S
Private sub command1_click() dim К(1 TO 19) as integer, X as byte, S
Private sub command1_click() dim К(1 TO 19) as integer, X as byte, S
Private sub command1_click() dim К(1 TO 19) as integer, X as byte, S
Private sub command1_click() DIM К(1 TO 19) as integer, Y as byte, S
Private sub command1_click() DIM К(1 TO 19) as integer, Y as byte, S
Этапы решения задач с массивами: 1. Определить массив
Этапы решения задач с массивами: 1. Определить массив
Private Sub Command1_Click() Dim A(1 To 15) As Integer, I As Byte, MIN
Private Sub Command1_Click() Dim A(1 To 15) As Integer, I As Byte, MIN
Private Sub Command1_Click() Dim К(1 TO 19) As Integer, X As Byte Dim
Private Sub Command1_Click() Dim К(1 TO 19) As Integer, X As Byte Dim

Презентация: «Массивы». Автор: Батяева В.Н.. Файл: «Массивы.ppt». Размер zip-архива: 57 КБ.

Массивы

содержание презентации «Массивы.ppt»
СлайдТекст
1 Массивы

Массивы

Батяева в.Н., Школа № 36, саранск, мордовия

2 Решение многих задач на ЭВМ связано с обработкой большого количества

Решение многих задач на ЭВМ связано с обработкой большого количества

численных данных. Эти данные обычно представляются в виде различных таблиц. Часто используются одномерные и двумерные таблицы.

Одномерная таблица Х состоит из n элементов. Таблица линейная – Х(n)

Двумерная таблица содержит N*M элементов и каждый элемент имеет 2 индекса. Двумерную таблицу называют прямоугольной.

Двумерная таблица А (3,5). Первый индекс показывает номер строки, второй номер столбца. Таблицу часто называют массивом.

Массив – совокупность величин, при которой доступ к любой из них обеспечивается заданием имени массива и индексов, определяющих положение элементов в массиве. Одномерный массив – список учеников в классе. Многомерный массив – таблица умножения, аттестат зрелости, ж/д билет, классный журнал

Х1

Х2

Х3

.

.

.

Хn

A11

A12

A13

A14

A15

A21

A22

A23

A24

A25

A31

A32

A33

A34

A35

1 2 3 n

3 Заполнение массива при помощи датчика случайных чисел

Заполнение массива при помощи датчика случайных чисел

Формула получения случайного числа из отрезка [N,M] : Z= N+FIX(RND*(M-N+1))

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

Задача: Заполнить массив A(22) случайными числами из отрезка [-5,37] и вывести его на экран.

Демонстрация

4 Private Sub Command1_Click() Dim A(1 To 22) As Integer, I As Byte

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

5 Private sub command1_click() dim B(1 TO 17) as byte, X as byte

Private sub command1_click() dim B(1 TO 17) as byte, X as byte

RANDOMIZE FOR X=1 TO 17 В(X)= 12+FIX(RND*(55-12+1)) PRINT В(X); NEXT X end sub

Определите имя массива, количество элементов, способ заполнения

6 Private sub command1_click() dim С(1 TO 44) as integer, X as byte

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

Определите имя массива, количество элементов, способ заполнения

Программный код

Заполнение массивов

7 Private sub command1_click() dim К(1 TO 19) as integer, X as byte

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

Найдите ошибки!

8 Private sub command1_click() dim К(1 TO 19) as integer, X as byte

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

9 Private sub command1_click() dim К(1 TO 19) as integer, X as byte, S

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

10 Private sub command1_click() dim К(1 TO 19) as integer, X as byte, S

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

11 Private sub command1_click() DIM К(1 TO 19) as integer, Y as byte, S

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

12 Этапы решения задач с массивами: 1. Определить массив

Этапы решения задач с массивами: 1. Определить массив

2. Заполнить массив. 3. Вывести элементы массива на экран. 4. Выполнить требуемое задание.

13 Private Sub Command1_Click() Dim A(1 To 15) As Integer, I As Byte, MIN

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

14 Private Sub Command1_Click() Dim К(1 TO 19) As Integer, X As Byte Dim

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

Демонстрация

«Массивы»
http://900igr.net/prezentacija/informatika/massivy-228753.html
cсылка на страницу

Паскаль

38 презентаций о Паскале
Урок

Информатика

130 тем
Слайды