Задания для самостоятельного выполнения лабораторной работы 12.

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

2. Разработайте программу, которая будет вводить с клавиатуры 25 ре­альных чисел и сохранять их в некотором одномерном массиве. Затем у пользователя запрашивается ввод ещё одного "контрольного" числа. Программа должна проверить, содержится ли последнее введённое число среди введённых раннее элементов массива, и выдать соответс­твующее сообщение на экран.

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

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

5. Напишите программу, которая вводит с клавиатуры 15 целых чисел, ор­ганизовывает их хранение в одномерном массиве, а затем определяет среднее арифметическое элементов массива. Результат выдаётся на эк­ран пользователя.

6. Напишите программу, которая вводит с клавиатуры 20 реальных чисел, организовывает их хранение в одномерном массиве, а затем определяет индекс и значение максимального элемента массива. Результат выдаёт­ся на экран пользователя.

7. Напишите программу, которая вводит с клавиатуры 30 символов, органи­зовывает их хранение в одномерном массиве, а затем выводит содержи­мое массива в обратном порядке с указанием индекса (номера) каждого элемента.

8. Напишите программу, которая вводит с клавиатуры 20 реальных чисел, организовывает их хранение в одномерном массиве, а затем определяет среднее арифметическое элементов с чётными индексами, и среднее арифметическое элементов с нечётными номерами. Результат выдаётся на экран пользователя.

Лабораторная работа 13.

Методы обработки массивов

Массивы - наиболее часто применяемый тип данных при обработке большого количества информации, различного рода статистических данных и т.д. Это объясняется не столько удобством хранения информации в па­мяти компьютера в виде массива, сколько возможностью легко производить различного рода обработку массивов.

В настоящей лабораторной работе описаны наиболее простые и часто встречающиеся ситуации при обработке информации в массивах. Все они достаточно просты, и поэтому снабжены не подробными комментариями, а конкретными примерами. Рекомендуем Вам самостоятельно разобрать каждый из предложенных примеров. Не переходите к следующему разделу (примеру программы), если Вам не понятно назначение каждой строки предыдущего примера программы.

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

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

FROGRAMM ех_1;

VAR

m : ARRAY [1..30] of real; {декларация массива}

i : integer;   {параметр цикла FOR}

s : real; {сумма элементов}

BEGIN

FOR i:=l TO 30 DO {заполнение массива}

Begin

Write (‘Введите элемент последовательности’);

Readln(m[i]);

End;

s:=0; {обнуление счётчика суммы}

FOR i:=l TO 30 DO s:=s+m[i]; {вычисление суммы}

Write(‘Сумма элементов последовательности равна ‘,s);

Readln; { пауза }

END.

Число положительных элементов массива

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

FROGRAMM ex 2;

VAR

m:ARRAY[1..30] of real; n, i: integer;

{декларация массива} {параметр цикла FOR} {счётчик положительных эл-ов}

{заполнение массива}

BEGIN FOR i:=l ТО 30 DO Begin

Write(‘Bведите элемент последовательности ‘); Readln(m[i]);

End;

n:=0; {обнуление счётчика п. эл-ов}

FOR i:=l TO 30 DO

if m[i]>=0 then n:=n+l;     {вычисление количества п. эл-ов}

Write('Последовательность содержит ',n, ' положительных эл-ов'); Readln; { пауза }

END.

Определение максимального элемента

Пример программы, которая сначала вводит 30 реальных чисел, затем организовывает их хранение в массиве, определяет значение и индекс (номер) максимального элемента этого массива и выдаёт сообщение на эк­ран.

FROGRAMM ех_3;

VAR

m: ARRAY[1..30] of real; {декларация массива}

i: integer;    {параметр цикла FOR}

max: real;   {значение максимального элемента}

t: integer; {индекс (номер) макс, элемента}

BEGIN

FOR i:=l ТО 30 DO {заполнение массива}

Begin

write('введите элемент последовательности ',i);

Readln(m[i]);

End;

max:=m[1]; {допустим, что 1-й элемент - максимален}

t:=l;
FOR i:=l ТО 30 DO

if m[i]>max then    {проверка нашего утверждения}

begin

max: =m[i];

t: =i;

end;

Writeln ('Максимальный элемент последовательности равен ', max);

Writeln('Номер максимального элемента ',t);

Readln; { пауза }

END.

Поиск элемента в неупорядоченном массиве

Пример программы, которая сначала вводит 30 реальных чисел, орга­низовывает их хранение в массиве, затем запрашивает так называемое "контрольное число". После этого проверяет, есть ли в массиве элемент, который равен контрольному числу.

PROGRAMM ех_4;

VAR

m: ARRAY[1..30] of real; {декларация массива}

i: integer;    {параметр цикла FOR}

р: real; {значение искомого элемента}

t: integer; {индекс (номер) иском. элемента}

BEGIN

FOR i:=l ТО 30 DO {заполнение массива}

Begin

Write('Bведите элемент последовательности ',i);

Readln(m[i]);

End;

Write('Bведите контрольное число ');

Readln(р);

t:=0; {допустим, что в массиве нет такого элемента}

FOR i:=l ТО 30 DO

if m[i]=p then {проверка нашего утверждения}

begin

t: =i;

write('Эл. N ',i,' равен искомому');

end;

if t=0 then write ('B массиве нет такого элемента');

Readln; { пауза }

END.

Контрольные вопросы.

1 Опишите порядок действий при вычислении суммы элементов массива.

2 Опишите порядок действий при вычислении числа положительных элемен­тов в массиве.

3 Опишите порядок действий при определении максимального элемента в массиве.

4 Опишите порядок действий при поиске элемента в неупорядоченном мас­сиве.