Лекции по Turbo Pascal (стр. 8 )

Примеры объявления массивов:

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)  Оператор присваивания.

А[1]:=3;

А[2]:=4;

........

или

B[1]:=’Иванов’;

B[2]:=’Петров’;

........

Такой способ задания значений используется, если массив небольшой.

2) Оператором ввода с клавиатуры.

For i:=1 to 10 do

begin

Writeln(‘введите ’,i,’-ый элемент массива’);

Readln(a[i]);

{в качестве индекса используется параметр цикла }

end;

Этот способ задания значений также используется для небольших массивов.

3) Заполнение массива с использованием генератора случайных чисел.

.......

RANDOMIZE;

For i:=1 to 10 do

a[i]:=Random(x);

…....

{массив заполнится целыми числами в диапазоне от 0 до Х}

4) Заполнение по формуле.

Каждый элемент массива должен быть рассчитан по формуле (например ai=sin i - cos i)

for i:=1 to 10 do

a[i]:=sin(i)-cos(i);

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

For i:=1 to 10 do writeln(a[i]);

Вывод пятого элемента массива записывается так : write(a[5]);

Алгоритмы работы с массивами

1) Сумма элементов массива.

Program symma;

var a: array [1..10] of integer;

i, s : integer;

begin

s:=0;

for i:=1 to 10 do

begin

readln(a[i]);

s:=s+a[i];

end;

writeln (‘Сумма= ’,s);

еnd.

2) Сумма положительных чисел.

Program symma2;

var a: array [1..10] of integer;

i, s : integer;

begin

s:=0;

for i:=1 to 10 do

begin

readln(a[i]);

if a[i]>0 then s:=s+a[i];

end;

writeln (‘Сумма положительных чисел = ’,s);

еnd.

3) Сумма и количество положительных чисел.

Program symma-kol;

var a: array [1..10] of integer;

i, s, k : integer;

begin

s:=0; k:=0;

for i:=1 to 10 do

if a[i]>0 then begin k:=k+1; s:=s+a[i]; end;

writeln (‘Сумма ’,s, ‘ количество’, k);

еnd.

4) Поиск заданного элемента в массиве.

Найти элементы массива большие числа 5.

Program elem;

var a: array [1..10] of integer;

i : integer;

begin

for i:=1 to 10 do

if a[i]>5 then writeln(a[i]);

еnd.

5) Поиск наибольшего (наименьшего) элемента в массиве.

Program mm;

var a: array [1..10] of integer;

i, max, min : integer;

begin

for i:=1 to 10 do readln(a[i]);

max:=a[1]; min:=a[1];

for i:=1 to 10 do

begin

if a[i]>max Then max:=a[i];

if a[i]<min Then min:=a[i];

end;

writeln (‘ max=’,max,’ min=’, min);

еnd.

6) Упорядочение массива

Упорядочение (сортировка) - это расположение значений элементов массива в порядке возрастания или убывания их значений.

Некоторые типичные действия с массивами:

·  вывод массива;

·  ввод массива;

·  поиск в массиве заданного элемента;

·  поиск в массиве минимального или максимального элемента;

·  сортировка массива.

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

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

var

a: array [1..20] of integer;

i, n: integer;

begin

clrscr;

for i:=1 to n do

writeln (a[i]); {вывод в столбик}

либо write (a[i],’ ‘); {вывод в строчку}

либо writeln (‘a[‘,i,’]=’,a[i]); {вывод с пояснениями}

readln;

end

Задание:

1.  В массиве хранятся значения роста двадцати человек. С помощью датчика случайных чисел заполнить массив целыми значениями, лежащими в диапазоне от 50 до 100 включительно.

2.  Заполнить массив из двенадцати элементов следующим образом:

1

2

…

12

3.  Заполнить массив из двадцати элементов следующим образом:

20

19

…

1

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

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

var

a: array [1..20] of integer;

i, n: integer;

begin

clrscr;

writeln (’Введите количество элементов массива’); readln (n);

for i:=1 to n do begin

write (‘a[‘,i,’]=’);

readln (a[i]);

end;

Пример: Найти сумму элементов массива.

var

a: array [1..20] of integer;

i, n, s: integer;

begin

clrscr;

s:=0;

writeln (’Введите количество элементов массива’); readln (n);

for i:=1 to n do begin

write (‘a[‘,i,’]=’);

readln (a[i]);

s:=s+a[i];

end;

writeln (‘Сумма элементов массива=’,s);

readln;

end.

Задание:

1.  Заполнить массив:

а) десятью первыми членами арифметической прогрессии с известным первым членом прогрессии a и ее разностью p;

б) двадцатью первыми членами геометрической прогрессии с известным первым членом прогрессии a и ее знаменателем z.

2.  Дан массив. Все его элементы:

а) уменьшить на 20;

б) умножить на последний элемент;

в) увеличить на число b.

3.  Определить:

а) сумму всех элементов массива;

б) произведение всех элементов массива;

в) сумму квадратов всех элементов массива;

г) сумму шести первых элементов массива;

д) сумму элементов массива с k1-го по k2-й (значения k1 и k2 вводятся с клавиатуры; k2>k1);

е) среднее арифметическое всех элементов массива;

ж) среднее арифметическое элементов массива с s1-го по s2-й (значения s1 и s2 вводятся с клавиатуры; s2>s1).

4.  Дан массив. Напечатать:

а) все неотрицательные элементы;

б) все элементы, не превышающие числа 100.

5.  Дан массив целых чисел. Напечатать:

а) все четные элементы;

б) все элементы, оканчивающиеся нулем.

6.  Дан массив натуральных чисел. Напечатать:

а) все элементы массива, являющиеся двузначными числами;

б) все элементы массива, являющиеся трехзначными числами.

7.  Дан массив. Напечатать:

а) второй, четвертый и т. д. элементы;

б) третий, шестой и т. д. элементы.

Поиск в массиве.

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

Для организации поиска в массиве могут быть использованы различные алгоритмы. Наиболее простой – это алгоритм простого перебора. Поиск осуществляется последовательным сравнением элементов массива с образцом.

Например:

·  Определить сколько раз в массиве встречается число а.

var

b: array [1..20] of integer;

i, n, k, a: integer;

begin

clrscr;

k:=0;

writeln (‘Введите искомое число’); readln (a);

writeln (’Введите количество элементов массива’); readln (n);

for i:=1 to n do begin

write (‘b[‘,i,’]=’);

readln (b[i]);

if b[i]=a then inc(k);

end;

writeln (‘Количество элементов равных ’,a,’ в массиве ’,k);

readln;

end.

Задачи:

1.  Выяснить, верно ли, что сумма элементов массива есть неотрицательное число.

2.  Дан массив целых чисел. Выяснить:

а) верно ли, что сумма элементов массива есть четное число;

б) верно ли, что сумма квадратов элементов массива есть пятизначное число.

3.  Определить количество положительных и количество отрицательных элементов массива.

4.  Дан массив. Найти:

а) сумму элементов массива, значение которых не превышает 20;

б) сумму элементов массива, больших числа a.

5.  Дан массив целых чисел. Найти:

а) сумму нечетных элементов;

б) сумму элементов, кратных заданному числу;

в) сумму элементов массива, кратных a или b.

6.  Определить сумму второго, четвертого, шестого и т. д. элементов массива.

7.  Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов.

8.  Дан массив целых чисел. Определить количество четных элементов и количество элементов, оканчивающихся на цифру 5.

9.  Определить количество элементов массива, принадлежащих промежутку от a до b (значения a и b вводятся с клавиатуры; b>a).

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

11.  Найти число пар ''соседних'' элементов массива, оканчивающихся нулем.

12.  Найти число элементов массива, которые больше своих ''соседей'', т. е. предшествующего и последующего.

13.  Найти среднее арифметическое элементов массива, больших числа 10.

14.  Найти средние арифметические положительных и отрицательных элементов массива.

15.  Дан массив вещественных чисел.

а) Каждый отрицательный элемент заменить на его абсолютную величину.

б) Все элементы с нечетными номерами заменить на их квадратный корень.

в) Из всех положительных элементов вычесть элемент с номером k1, из остальных - элемент с номером k2.

г) Все элементы с нечетными номерами увеличить на 1, с четными - уменьшить на 1.

д) Из всех положительных элементов вычесть элемент с номером k1, из всех отрицательных - число n. Нулевые элементы оставить без изменения.

е) Ко всем нулевым элементам прибавить n, из всех положительных элементов вычесть a, ко всем отрицательным прибавить b.