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

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

а) Каждый элемент, больший 10, заменить на его квадратный корень.

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

в) Ко всем отрицательным элементам прибавить элемент с номером m1, к остальным - элемент с номером m2.

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

д) Ко всем отрицательным элементам прибавить элемент с номером a1, из всех нулевых вычесть число b. Положительные элементы оставить без изменения.

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

17.  Дан массив целых чисел.

а) Все элементы, оканчивающиеся цифрой 4, уменьшить вдвое.

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

в) Четные элементы увеличить на a, а из элементов с четными номерами вычесть b.

18.  Дан массив целых чисел.

а) Все элементы, кратные числу 10, заменить нулем.

б) Все нечетные элементы удвоить, а четные уменьшить вдвое.

в) Нечетные элементы уменьшить на m, а элементы с нечетными номерами увеличить на n.

Самостоятельная работа на ввод и вывод массива.

Поиск в массиве минимального или максимального элемента.

Алгоритм поиска минимального (максимального) элемента массива довольно очевиден: делается предположение, что первый элемент массива является минимальным (максимальным), затем остальные элементы массива сравниваются с этим элементом. Если обнаруживается, что проверяемый элемент меньше (больше) принятого за минимальный (максимальный), то этот элемент принимается за минимальный (максимальный) и продолжается проверка остальных элементов.

Найти минимальный элемент массива и его индекс.

var

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

i, n, k, min, nmin: integer;

begin

clrscr;

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

for i:=1 to n do begin

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

readln (a[i]);

end;

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

for i:=2 to n do

if min>b[i] then begin

min:=b[i];

nmin:=i;

end;

writeln (‘Минимальный элемент массива ’, min, ‘ его индекс ’, nmin);

readln;

end.

Задачи:

1.  Дан массив. Определить:

а) максимальный элемент;

б) минимальный элемент;

в) на сколько максимальный элемент больше минимального;

г) индекс максимального элемента;

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

2.  Дан массив. Определить:

а) количество максимальных элементов в массиве;

б) количество минимальных элементов в массиве.

3.  Изменить знак у максимального по модулю элемента массива. Минимальный элемент массива при этом не определять.

4.  Дан массив. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального элементов массива, и напечатать их номера.

5.  Найти элемент, наиболее близкий к среднему значению всех элементов массива.

6.  Дан массив. Скопировать все его элементы в другой массив такого же размера:

а) в том же порядке расположения элементов;

б) в обратном порядке расположения элементов.

7.  Дан массив. Переписать его второй, четвертый и т. д. элементы в другой массив такого же размера:

а) расположив элементы на тех же местах, что и в исходном массиве;

б) расположив элементы подряд с начала массива.

8.  Из элементов массива A сформировать массив B того же размера по правилу: если номер i элемента массива A четный, то Bi = Ai2, в противном случае Bi = 2·Ai.

9.  Из элементов массива A, заполненного целыми числами, сформировать массив B того же размера по правилу: четные элементы массива A удвоить, нечетные оставить без изменения.

10.  Даны два массива одного размера. Получить третий массив, каждый элемент которого равен:

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

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

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

11.  Даны два массива одного размера, в которых нет нулевых элементов. Получить третий массив, каждый элемент которого равен 1, если элементы заданных массивов с тем же номером имеют одинаковый знак, и равен нулю в противном случае.

12.  Дан массив целых чисел.

а) Напечатать все элементы, предшествующие первому элементу с заданным значением n. Если элементов, равных n, в массиве нет, то должны быть напечатаны все элементы.

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

13.  Найти количество различных элементов в массиве.

14.  Дано натуральное число n. Определить количество различных цифр в нем. Например, в числе 1234 количество различных цифр равно 4, в числе 22424 - 2, в числе 333 - 1.

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

а) номер первого нечетного элемента. Если нечетных элементов в массиве нет, то должно быть напечатано соответствующее сообщение;

б) номер первого элемента, кратного числу 13. Если нечетных элементов в массиве нет, то должно быть напечатано соответствующее сообщение;

16.  Дан массив вещественных чисел. Определить, есть ли в нем отрицательные числа. В случае положительного ответа:

а) определить номер первого из них и напечатать все следующие за ним элементы;

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

Самостоятельная работа на поиск в массиве.

Обмены и перестановки. Для перестановки элементов вводят вспомогательную переменную, которой присваивают значение первого элемента, после чего первому элементу присваивают значение второго элемента, а второму – значение вспомогательной переменной.

Задачи:

1.  Дан массив. Поменять местами:

а) второй и пятый элементы;

б) m-й и n-й элементы;

в) третий и максимальный элементы. Если элементов с максимальным значением несколько, то в обмене должен участвовать первый из них;

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

2.  Дан массив из четного числа элементов. Поменять местами:

а) его половины;

б) первый элемент со вторым, третий - с четвертым и т. д.;

в) его половины следующим способом: первый элемент поменять с последним, второй - с предпоследним и т. д.

3.  Дан одномерный массив из 20 элементов. Переставить первые три и последние три элемента, сохранить порядок их следования.

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

В задачах под удалением элемента массива следует понимать:

1) исключение этого элемента из массива путем смещения всех следующих за ним элементов влево на 1 позицию;

2) присваивание последнему элементу массива значения 0.

5.  Удалить из массива:

а) третий элемент; б) k-й элемент.

6.  Удалить из массива, в котором все элементы различны:

а) максимальный элемент; б) минимальный элемент.

7.  Удалить из массива:

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

б) удалить последний четный элемент (если четные элементы в массиве есть).

8.  Удалить из массива:

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

б) все элементы, большие данного числа n;

в) все элементы, начиная с n1-го по n2-й (n1£n2).

9.  Дан массив целых чисел. Удалить из него:

а) все четные элементы, стоящие на нечетных местах;

б) все элементы, кратные 3 и 5.

10.  Удалить из массива все повторяющиеся элементы, оставив их первые вхождения, то есть в массиве должны остаться только различные элементы.

В задачах под вставкой числа n в массив после k-го элемента следует понимать:

1) увеличение размера массива на 1;

2) смещение всех элементов, начиная с (k+1)-го, вправо на 1 позицию;

3) присваивание (k+1)-му элементу массива значения n.

11.  Вставить в массив:

а) число 10 после второго элемента; б) число 100 после m-го элемента.

12.  Вставить заданное число в массив целых чисел:

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

б) перед последним четным элементом.

13.  Вставить заданное число в массив целых чисел:

а) перед всеми элементами, кратными числу a;

б) после всех отрицательных элементов.

Контрольная работа на массивы.

8 класс.

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

Под сортировкой массива подразумевается процесс перестановки элементов с целью упорядочивания их в соответствии с каким-либо критерием. Например, если имеется массив а - целых чисел, то после сортировки по возрастанию должно выполняться условие: a[1]£a[2] £…£a[n], где n – верхняя граница индекса массива.

Существует много методов сортировки массивов. Но наиболее часто используемые это:

·  метод прямого выбора (метод главного элемента);

·  метод прямого обмена(метод пузырька).

Метод главного элемента.

Алгоритм сортировки массива по возрастанию методом прямого выбора или методом главного элемента может быть представлен так:

1.  Просматривая массив от первого элемента, найти минимальный и поместить на место первого элемента, а первый на место минимального.

2.  просматривая массив от второго элемента, найти минимальный и поместить его на место второго элемента, а второй на место минимального.

3.  И так далее до предпоследнего элемента.

Ниже представлена программа сортировки массива целых чисел по возрастанию.

program vosr;

uses crt;

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

i, j, k, n, m, c: integer;

begin

clrscr;

writeln (‘’); readln (n);

for i:=1 to n do begin

write (i,’:’); readln (a[i]);