Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Одномерные массивы.
|
|
Массив – это упорядоченный набор однотипных элементов, имеющих общее имя.
Объявление массива.
Перед использованием массив, как и любая переменная, должен быть объявлен в разделе объявления переменных. В общем виде объявление массива выглядит так:
имя: array [нижний_индекс..верхний_индекс] of тип; где
имя – имя переменной – массива.
array – ключевое слово, обозначающее, что переменная является массивом;
нижний_индекс и верхний_индекс – целые числа, определяющие диапазон изменения индексов (номеров) элементов массива и, неявно, количество элементов (размер) массива;
тип – тип элементов массива.
| Примеры объявления массивов: | Примеры заполнения массивов |
| t: array[1..31] of real; k: array[0..2] of integer; n: array[1..30] of longint; Чтобы в программе использовать элемент массива, надо указать имя массива и номер элемента (индекс), заключив его в квадратные скобки. индекс может быть константой или выражением целого типа. Например: t[1]: =1.22; d: =k[1]*k[1]-4*k[2]*k[1]; readln (n[i+1]); writeln (t[m]); Оператор присваивания. А[1]: =3; или B[1]: =’Иванов’; B[2]: =’Петров’; Такой способ задания значений используется, если массив небольшой. Вывод массива. For i: =1 to 10 do writeln(a[i]); Вывод пятого элемента массива записывается так: write(a[5]); | 1) Оператором ввода с клавиатуры. For i: =1 to 10 do begin Writeln(‘введите ’, i, ’-ый элемент массива’); Readln(a[i]); end; {в качестве индекса используется параметр цикла } Этот способ задания значений используется для небольших массивов. 2) Заполнение массива с использованием генератора случайных чисел. RANDOMIZE; For i: =1 to 10 do a[i]: =Random(x); {массив заполнится целыми числами в диапазоне от 0 до Х} 3) Заполнение по формуле. Каждый элемент массива должен быть рассчитан по формуле (например ai=sin i - cos i) for i: =1 to 10 do a[i]: =sin(i)-cos(i); |
Алгоритмы работы с массивами
| 1) Сумма элементов массива. s: =0; for i: =1 to 10 do begin s: =s+a[i]; end; writeln (‘Сумма=’, s); | 2) Сумма положительных элементов. s: =0; for i: =1 to 10 do if a[i]> 0 then s: =s+a[i]; writeln (‘Сумма положительных элементов = ’, s); | 3) Сумма и количество четных элементов. s: =0; k: =0; for i: =1 to 10 do if a[i] mod 2=0 then begin k: =k+1; s: =s+a[i]; end; writeln (‘Сумма ’, s, ‘ количество’, k); |
| 4) Поиск заданного элемента в массиве. Найти элементы массива большие числа 5. for i: =1 to 10 do if a[i]> 5 then writeln(a[i]); | 5) Поиск наибольшего элемента в массиве. max: =a[1]; for i: =1 to 10 do begin if a[i]> max Then max: =a[i]; end; writeln (‘max=’, max); | 6) Сортировка массива q: =n-1; For i: =1 to n-1 do begin For i: =1 to q do begin If a[i]> a[i+1] then begin w: =a[i]; a[i]: =a[i+1]; a[i+1]: =w; end; end; q: =q-1; end; |