Структурированный тип данных массив.

Ввод и вывод элементов массива

Массив и его основные понятия

  1. Имя — одно для всей последовательности элементов, посредством которого можно ссылаться на него как на единое целое;

  2. Индекс элемента, посредством которого осуществляется доступ к элементу (индекс массива не всегда является его номером);

  3. Массив является структурированным (составным) типом данных, т. е. состоит из конечного числа других величин.

  4. Элементы массива могут использоваться как обычные переменные.

Примеры описаний массива:

Var

  • a, b: array [1..20] of integer;

  • x, y: array [-10..12] of real;

  • h, j: array [1..9, 0..10] of integer;

Const A: array[1..8] of integer =

= (2, 3, 5, 7, 11, 13, 17, 19);


Заполнения массива путем ввода чисел с клавиатуры:

  • For i:=1 to 20 do Read(a[i])

Заполнение массива случайными целыми числами:

  • Fo i:=1 to 100 do a[i]:= random(-15,50);

Вывод массива:

  • For i:=1 to 30 do write(a[i]);

Пример программ:

Array1. Дано целое число N(> 0). Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, … .

var

A: array[1..20] of word; { <== Массив размера 20 }

N, i: byte;

begin

write('N = ');

readln(N); { <-- Вводим количество элементов массива }

{ ФОРМИРУЕМ ЭЛЕМЕНТЫ МАССИВА: }

a[1] := 1; { <-- Минимальное нечетное число }

{ Далее учитываем, что каждое следующее нечетное число (начиная со второго) на 2 больше предыдущего: }

for i := 2 to N do

a[i] := a[i - 1] + 2; { <-- Вычисляем i-й нечетный элемент }

{ ВЫВОДИМ ЭЛЕМЕНТЫ МАССИВА: }

writeln(' Массив из первых ', N, ' нечетных чисел: ');

for i := 1 to N do

write(' ', a[i]);

readln

end.


Array3. Дано целое число N(> 1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии:

A, A + D, A + 2·D, A + 3·D, … .

var

M: array[1..100] of integer;

A, D: integer;

N, i: byte;


begin

{ВВОДИМ ДАННЫЕ:}

write('N = ');

readln(N); {<-- количество членов арифметической прогрессии}

write('A = ');

readln(A); {<-- первый член}

write('D = ');

readln(D); {<-- разница арифметической прогрессии}

{ФОРМИРОВАНИЕ ЭЛЕМЕНТОВ МАССИВА:}

m[1] := A; {<-- Инициализируем первый член арифметической прогрессии}

{Каждый член арифметической прогрессии (начиная со второго) на D больше предыдущего. Выводим все остальные элементы массива:}

for i := 2 to N do

m[i] := m[i - 1] + D; {<-- Вычисляем i-й элемент массива (прогрессии)}

{ВЫВОД ЭЛЕМЕНТОВ МАССИВА:}

writeln('Первые ', N, ' членов арифметической прогрессии');

writeln('с первым членом ', A, ' и разницей ', D, ':');

for i := 1 to N do

write(m[i], ' '); {<-- Выводим элементы через пробел}

readln

end.


Упражнения

Составь программу. Повторение.

Выполните задание из файла

Загрузите архив файла Структурированный тип данных массив, распакуйте его и выполните задания, указанные в файле.

Отформатируйте код программы решения ниже представленной задачи, добавив необходимые пробелы и разрывы строк.

Дано целое число N(> 0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8, 16, … .

Код программы:

varA:array[1..15]ofword;N,i:byte;beginwrite('N=');readln(N);a[1]:=2;fori:=2toNdoa[i]:=a[i-1]*2;writeln('Первые ',N,' степеней двойки: ');fori:=1toNdowrite(' ',a[i]);readlnend.