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



Скачать 48.76 Kb.
Дата24.04.2016
Размер48.76 Kb.
Одномерные массивы

Массив - это упорядоченный набор однотипных элементов, с быстрым доступом по индексу. Индекс – это значение порядкового типа. Когда описываем массив, указываем границы индексов.

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

var Number: array [1..N] of byte; {массив Number из N элементов целого типа}

var А:array [1..N] of integer; {массив А из N элементов целого типа}

var T: array [0..12] of real; {массив Т из 13 элементов вещественного типа}

var B: array [1..N] of char; {массив В из N элементов символьного типа}

var slovo: array [0..5] of string; {массив slovo из 6 элементов строкового типа}


Массив может быть одновременно объявлен и заполнен с помощью раздела описания констант.
program Zadacha;

const N: array [0..4] of integer =(2,6,13,0,1);

var i:integer;

begin


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

Заполнение одномерного массива возможно тремя способами:

1. С клавиатуры;

2. С помощью генератора случайных чисел;

3. По формуле.


1) с клавиатуры

2) случайным образом

for i:=1 to n do

begin


writeln ('Введи', i , 'элемент');

readln (a[i]);

end;


randomize;

for i:=1 to n do

begin

a[i]:=random (50);



writeln a[i];

end;





3) по формуле




for i:=1 to n do

begin


a[i]:= sqr (i);

writeln a[i];

end;



Функция получения случайных чисел из интервала [a, b] имеет вид random (b-a+1)+a
Образец решения задачи:


  1. Сформируйте и выведите на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале [-23, 34].

program Z1; { заголовок программы}

const N=10; { раздел описания констант}

var a: array[0..N-1] of integer; { раздел описания переменных}

i: integer;

begin


randomize; { генератор случайных чисел}

for i:=0 to n-1 do




Операторные скобки
begin

a[i]:= random (58)-23; { присвоение элементу массива случайного значения}

writeln (a[i],' ' ); { вывод значения элемента массива}

end;


end. {окончание программы}

Нахождение минимального (максимального) элемента массива


max:=a[1]; {считаем, что первый элемент – максимальный,}

imax:=1; {а номер максимального – индекс первого элемента}

for i:=2 to n do {проверяем все остальные элементы массива, сравнивая попарно}

if a[i] > max then {если находим новый максимальный элемент}

begin

max:=a[i]; imax:=i; {то, присваиваем его значение переменной max, а его индекс – imax}



end;

writeln ('Максимальный элемент ', max,' Его индекс ' , imax);

readln;

end.


min:=a[1]; {считаем, что первый элемент – минимальный,}

imin:=1; {а номер минимального – индекс первого элемента}

for i:=2 to n do {проверяем все остальные элементы массива, сравнивая попарно}

if a[i] < min then {если находим новый минимальный элемент}

begin

min:=a[i]; imin:=i; {то, присваиваем его значение переменной max, а его индекс – imax}



end;

writeln ('Минимальный элемент ', min,' Его индекс ' , imin);

readln;

end.


Образец решения задачи:
2. Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти максимальный элемент. Размер произвольный.
program Zadacha2;

const n=8;

var b:array [1..n] of integer;

i, max: integer;

begin

for i:= 1 to n do



begin

b[i]:= random (104)-37;

writeln (b[i]);

end;


max:= b[i];

for i:=2 to n do

if b[i] > max then max:= b[i];

writeln ('max=' , max);

end.

Нахождение суммы (произведения) элементов массива


s:=0;

for i:=1 to n do

s:=s + a[i];

writeln ('Сумма ', s);



p:=1;

for i:=1 to n do

p:=p * a[i];

writeln (‘Произведение’, p);




Образец решения задачи:
3. Известно количество осадков, выпавших в январе. Определите среднемесячную температуру января и самый холодный день.
program Zadacha3;

const n=5;

var t:array [1..n] of integer;

i, s, min, imin: integer; x: real;

begin

for i:= 1 to n do



begin

writeln ('Введи температуру' , i , 'января');

readln (t[i]);

end;


s:=0;

for i:= 1 to n do

s:= s + t[i];

x:= s / n;

min:= t[1]; imin:= 1;

for i:=2 to n do

if t[i] < min then

begin


min:= t[i]; imin:= i;

end;


writeln ('Среднемесячная температура = ' , x);

writeln ('Самый холодный день ' , imin , ' января');



end.
Каталог: files
files -> Методические рекомендации «Организация исследовательской деятельности учащихся»
files -> Актуальность исследования
files -> Рабочая программа дисциплины
files -> Программа курса предназначена для учащихся 9-11 класса и рассчитана на 128 часов. Периодичность занятий 1 раз в неделю по 4 учебных часа
files -> Предоставление максимально широкого поля возможностей учащимся, ориентированным на высокий уровень образования и воспитания, с учетом их индивидуальных потребностей
files -> Методические рекомендации по организации исследовательской и проектной деятельности младших школьников
files -> Программы
files -> Выпускных квалификационных работ


Поделитесь с Вашими друзьями:


База данных защищена авторским правом ©psihdocs.ru 2017
обратиться к администрации

    Главная страница