Структурированный тип данных массив.
Ввод и вывод элементов массива
Массив и его основные понятия
Имя — одно для всей последовательности элементов, посредством которого можно ссылаться на него как на единое целое;
Индекс элемента, посредством которого осуществляется доступ к элементу (индекс массива не всегда является его номером);
Массив является структурированным (составным) типом данных, т. е. состоит из конечного числа других величин.
Элементы массива могут использоваться как обычные переменные.
Примеры описаний массива:
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.