Тема урока Тема урока Массивы

Массив – это именованный набор с фиксированным количеством однотипных данных. В массивы объединены результаты экспериментов, списки фамилий сотрудников, различные сложные структуры данных. Так, список из классного журнала 10 «А» является массивом. В массиве могут быть одинаковые данные, поэтому элементы массива различаются по своим порядковым номерам.

Если каждый элемент имеет один порядковый номер, то такой массив называется одномерным. Двумерным массивом называется совокупность данных, каждое значение которых, зависит от его положения в строке и в столбце. Одномерный массив может быть числовой последовательностью с известным количеством членов. Так же, как и в последовательности, в массиве можно указать элемент с конкретным номером, например а 5, или записать общий вид элемента, используя в качестве индекса переменную и указывая диапазон ее изменения: а, i = 1, 2,..., n.

Чтобы решить задачу с массивом с использованием языка программирования Паскаль, необходимо выполнить следующее: 1) определить, какие числа даны: целые или вещественные, если об этом конкретно не сказано, то лучше считать их вещественными; 2) назвать весь массив одним именем, которое будет использоваться для каждого элемента, только к нему добавится номер этого элемента (индекс); 3) описать массив в разделе переменных VAR, тем самым отведя место в памяти для массива; 4) ввести данные в память.

В описании массива имеется специальное слово array (массив), после которого в квадратных скобках через две точки указывается диапазон изменения номеров элементов, затем слово of (из) и пишется тип данных массива. Пример 1: const n=10; var а: array [ 1.. n ] оf real; Пример 2: var а: array [ ] оf real;

Для ввода данных в память необходимо организовать цикл. Поскольку число повторений ввода данных известно, удобно использовать цикл пересчет. Ввод описанного массива а может иметь вид: Пример: Write (Введите элементы массива через пробел); For i:=1 to n do Begin Read (a [i]); End;

Пример program zvezda; uses CRT, GraphABC; var a, b, d, e, f: integer; x, y, c: array [1..100] of integer; begin floodfill (10, 10, clblack); for b:=1 to 100 do begin x [b]:= random (640); y [b]:= random (400); c [b]:= random ( ); end; repeat for b:=1 to 100 do begin SetPenColor (clblack); Circle (x [b], y [b], 2); Floodfill (x [b], y [b], clblack); X [b]:= random (640); Y [b]:= random (400); C [b]:= random ( ); Delay (25); Setpencolor (c [b]); Circle (x [b], y [b], 2); Floodfill (x [b], y [b], c [b]); end; until keypressed end.