Описание в программе одномерного массива

Массивы описываются в разделе описания переменных Var.

Общий вид описания одномерного массива:

где имя — имя переменной-массива; array — ключевое слово, обозначающее, что переменная является массивом; нижний_индекс и верхний_индекс — целые числа, определяющие диапазон изменения индексов (номеров) элементов массива и, неявно, количество элементов (размер) массива; тип — тип элементов массива.

Общий вид описания двумерного массива:

где Имя — имя массива; array — слово языка Pascal, показывающее, что описываемый элемент данных — массив; m1, m2, n1, n2 — константы или выражения типа INTEGER, определяющие диапазон изменения индексов и, следовательно, число элементов массива; Тип — тип элементов массива.

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

Под вводом массива понимается ввод значений элементов массива. Ввод удобно реализовать при помощи инструкции FOR. Чтобы пользователь программы знал, ввода какого элемента массива ожидает программа, следует организовать вывод подсказок перед вводом очередного элемента массива. В подсказке обычно указывают индекс элемента массива. Заполнение массива можно производить:

ИНФОРМАТИКА 9 класс: Массивы в Паскале | Одномерные массивы. Описание, заполнение вывод массива

1) с клавиатуры: For i:=1 to n do readln(a[i]);

2) через датчик случайных чисел: Randomize; For i:=1 to n do begin а[i]:=random(i);

Если требуется, чтобы значения элементов массива выбирались из определенного интервала [a,b], то a+Random(b-a+1);

3) через оператор присваивания (по формуле): For i:=1 to n do а[i]:=i*3;

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

Если в программе необходимо вывести значения всех элементов массива, то для этого удобно использовать инструкцию FOR, переменная-счётчик которой может быть реализована как индекс элемента массива. Например, For i:=1 to n do writeln(a[i]);

Удаление элементов из одномерного массива.

Для того, чтобы удалить из массива k-ый элемент нужно: найти номер элемента k; сдвинуть все элементы, начиная с k-го, на один элемент влево; последнему элементу присвоить значение, равное 0; уменьшить количество элементов массива на единицу.

Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:

Источник: studopedia.ru

Теория

При решении практических задач данные часто объединяются в различные структуры данных, например в массивы. В языках программирования массивы используются для реализации таких структур данных, как последовательности и таблицы.
Массив-это поименованная упорядоченная совокупность однотипных элементов, упорядоченных по индексам (номерам), которые определяют его местоположение в массиве .
Массивы могут быть одномерными (вектора), двумерными(матрицы или таблицы) и многомерными.
Каждая переменная массива называется элементом массива. Каждый массив имеет имя, что дает возможность обращаться к ним по именам.

Описание массива

Перед использованием в программе массив должен быть описан, т.е. должно быть указано имя массива, количество элементов в массиве и их тип. Это необходим для того, чтобы выделить участок памяти нужного размера для хранения массива требуемого типа.

Что такое массив. Примеры. Теория. Array. Одномерный массив. Синтаксис. C++. Урок #25.

Общий вид описания массива:

Var : array [ X . . Y ] of < тип элементов >;

Имя переменной (имя массива)

a rray —

тип переменной (массив)

значение нижнего индекса

Значение верхнего индекса

byte, shortint, integer, word, longint, string, char, array

Пример : Массив имеет имя Chisla

Элементы массива : (45 , 5 , 874 , 4 , -7 , 0)
Индексы : 1 2 3 4 5 6
Описание :Var Chisla: array [ 1..6 ] of integer;
Chisla[ 1 ] =45; Chisla[ 3 ]=874
Ззначение нижнего индекса может быть отличным от 1, например :
Элементы массива : (45 , 5 , 874 , 4 , -7 , 0)
Индексы : 0 1 2 3 4 5, тогда
Var Chisla: array [ 0..5 ] of integer;
Chisla[ 0 ] =45; Chisla[ 2 ]=874

Внимание! Чтобы правильно описать количество элементов массива( k ) и значения нижнего( I 1) и верхнего индексов( I 2) следует помнить: I 2= I 1+ k -1

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

o значений, полученных при вычислении выражения

o случайных чисел в заданном диапазоне

• В блоке описания через const

Ввод с клавиатуры:

Var A:array[1.. 6] of byte;

For I:= 1 to 6 do

Writeln (‘ Введите ’ , I , ‘- ый элемент ’); < Вывод на экран приглашения « Введите I-

Readln( A[ I ] )

Присваиванием значений :

Var B :array[1 .. 3] of byte;

B [1]:=67;

B [2]:=120;

Присваиванием значений, полученных при вычислении выражения:

Var С :array[1 .. 33] of Integer;

For I:= 1 to 33 do

Источник: www.sites.google.com

Обработка одномерного массива в Паскале

Познакомимся на уроке по информатике для 10 класса с темой «Обработка одномерных массивов».

Полное описание

Повторение, пройденной темы «Массивы». Изучение новой темы «Обработка одномерных массивов». Алгоритмы обработки данных. Найти сумму и произведение нечетных элементов, кратных 3. Найти количество тех элементов, значения которых положительны и не превосходят заданного натурального числа А. Найти номера четных элементов массива, стоящих на нечетных местах.

Дан одномерный массив Х1, Х2, …, Хn. Найти минимальный элемент и его порядковый номер среди элементов, расположенных на четных местах. В целочисленном массиве найти отрицательный элемент. Решение задач.

Никитина Валентина Георгиевна, учитель информатики высшей категории

Содержимое разработки

Обработка одномерных массивов в Паскале

Никитина В. Г. , учитель высшей категории, Якутской городской гимназии, г. Якутска

Что такое массив?

• Как ввести 10000 переменных?

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

• выделять память
• записывать данные в нужную ячейку
• читать данные из ячейки

Описание одномерных массивов

• Var
• Имя переменной:Array[тип индекса (ов)]Ofтип элементов;
• Здесь
• Array – служебное слово (в переводе с английского означает «массив»);
• Of – служебное слово (в переводе с английского означает «из»).
• Тип индекса – любой порядковый тип, кроме типов integer, longint.
• Тип же самих элементов может быть любым, кроме файлового типа.

Ввод одномерных массивов

• Program Primer_1;
• Var i: integer;
• X: array [1..30] of Integer;
• Begin
• i := 1;
• While i Do
• Begin
• Read (X[i]);
• i := i + 1
• End;
• Readln
• End.
• В первом варианте ввод массива Х
• в программе осуществляется с использованием
• цикла с предусловием .

30; Readln End. Массив X введен с использованием цикла с постусловием. » width=»640″

Ввод одномерного массива

• Program Primer_2;
• Var i: integer;
• X: array [1..30] of Integer;
• Begin
• i := 1;
• Repeat
• Read (X[i]); i := i + 1
• Until i 30;
• Readln
• End.
• Массив X введен с использованием цикла с постусловием.

Ввод одномерного массива

• Program Primer_3;
• Var i: integer;
• X: array [1..30] of Integer;
• Begin
• For i := 1 to 30 do
• Read (X[i]);
• Readln
• End.
• Массива Х вводится с помощью цикла с
• Параметром , где в качестве параметра используется индекс элемента массива (i).

Вывод одномерных массивов в Паскале

• Вывод одномерного массива осуществляется также поэлементно.
• Например, выведем одномерный массив Х1, Х2, …, Хn, состоящий из элементов вещественного типа.
• Для вывода массива можно использовать любой цикл.

Приведем два возможных способа вывода массива:

• 1) For i := 1 To n Do Write (X[i],’ ‘)
• 2) For i := 1 To n Do Writeln (x[i])

Заполнение массива случайными числами в диапазоне от 100 до 200

• For i := 1 to n do begin
• A[ i ] := 100 +random(100);
• Write(A[ i ] : 4];
• End;

Перебор элементов

Примеры решения задач

Дан целочисленный одномерный массив, состоящий из n элементов. Найти сумму и произведение нечетных элементов, кратных 3.

• Program Primer1_1;
• Var A: Array [1..20] Of Integer;
• i, n, s, p: Integer;
• Begin
• Write (‘n=’); Readln (n);
• For i:=1 To n Do Readln (A[i]);
• s:= 0; p:=1;
• Fo r i:=1 To n Do
• If (A[i] mod 2 0) and (A[i] mod 3 = 0) Then
• Begin s:=s+A[i]; p:= p*A[i]
• End;
• Writeln (‘s=’, s, ‘p=’, p);
• Readln End.

0) and (X[i] Then k:=k + 1; Writeln (‘k=’, k); Readln End. » width=»640″

Дан массив целых чисел. Найти количество тех элементов, значения которых положительны и не превосходят заданного натурального числа А.

Найти номера четных элементов массива, стоящих на нечетных местах.

• Program Primer3_1;
• Var X: Array[1..20] Of Integer;
• i, n: Integer;
• Begin
• Write (‘n=’); Readln (n);
• For i:=1 To n Do Readln (X[i]);
• For i:=1 To n Do
• If (X[i] mod 2 = 0) and (i mod 20) Then Write (i:5);
• Readln
• End.

Дан одномерный массив Х 1 , Х 2 , …, Х n . Найти минимальный элемент и его порядковый номер среди элементов, расположенных на четных местах.

Дан целочисленный одномерный массив. Есть ли в нем отрицательный элемент?

• Program Primer4_3;
• Const n=10;
• Var X: Array[1..n] Of Integer;
• i, k: Integer;
• Begin
• For i:=1 To n Do Readln (X[i]);
• k:= 0;
• For i:=1 To n Do
• If X[i]
• If k 0 Then Writeln (‘yes’)
• Else Writeln (‘no’);
• Readln End.

В19.1 В программе используется одномерный целочисленный массив А, с индексами от 0 до 10. Дан фрагмент программы, в котором значения элементов сначала задаются, а затем меняются

• for I := 0 to 10 do
• A[i] := I;
• for I := 0 to 10 do
• begin
• A[10 – i] := A [i];
• A[i] := A [10 – i];
• end;

B19.2 В программе используется одномерный целочисленный массив А, с индексами от 0 до 9. Дан фрагмент программы, в котором значения элементов сначала задаются, а затем меняются

• for I := 0 to 9 do
• A [i] := I;
• for I := 9 downto 0 do
• A [9 – i] := A [i];

Задания для самостоятельной работы

• Дан целочисленный одномерный массив, состоящий из n элементов. Подсчитать количество его положительных, отрицательных и нулевых элементов.
• Дан одномерный массив Х1, Х2, …, Хn. Найти максимальный элемент и его порядковый номер.
• Дан одномерный массив Х1, Х2, …, Хn. Есть ли в массиве положительные элементы, кратные k (k вводить с клавиатуры)?
• Дан одномерный массив Х1, Х2, …, Хn. Найти все элементы, кратные 3 или 5. Сколько их?

Для работы с массивами нужно в первую очередь научиться;

• Выделить память нужного размера под массив;
• Записывать данные в ячейку памяти массива;
• Читать данные из ячейки массива;

Спасибо за внимание!

-80%

Источник: videouroki.net