Pascaler
О проекте Теоретический материал Тестирование Архив задач
Войти в личный кабинет



О проекте


Преподавателям


Тема: Перестановка элементов массива.

Перестановка двух элементов

Задача. Поменять местами два элемента массива с номерами k1 и k2.

Рассмотрите процедуру, с помощью которой эта задача легко решается.

Procedure Obmen2(Var m : MyArray; n, k1, k2 : integer;);
Var
  x : integer;
Begin
  x:=m[k1];
  m[k1] := m[k2];
  m[k2] := x;
End;

Перестановка части массива

Задача. Дан одномерный массив А, состоящий из 2n элементов. Поменять местами первую и вторую его половины

Задание. Оформите решение этой задачи, применив процедуру обмена значений Obmen2, рассмотренную выше.

Заметим лишь, что Вы должны поменять местами элементы с номерами 1 и n+1, 2 и n+2 и т.д., последняя пара - n и 2n, а значит, обмен происходит по правилу: элемент с номером i меняется местами с элементом с номером n+i. Эту закономерность следует применить в организации обращения к процедуре обмена. Например, так

for i := 1 to n do
  Obmen2(A, 2*n, i, i+n,);

Задание. Выберите с учителем задачи для самостоятельного решения из предложенного списка:

  1. Поменять местами:
    а) первый элемент и максимальный;
    б) второй и минимальный;
    в) первый и последний из отрицательных чисел.


  2. Дан одномерный массив А, состоящий из 2n элементов. Поменять его половины следующим образом: первый элемент поменять с последним, второй с предпоследним и так далее.


  3. Дан одномерный массив В, состоящий из 2n элементов. Переставить его элементы по следующему правилу:
    а) b[n+1], b[n+2], ..., b[2n],b[1], b[2], ..., b[n];
    b) b[n+1], b[n+2], ..., b[2n],b[n], b[n-1], ..., b[1];
    c) b[1], b[n+1],b[2], b[n+2], ..., b[n], b[2n];
    d) b[2n], b[2n-1], ..., b[n+1],b[1], b[2], ..., b[n];


  4. Дан одномерный массив. Переставить в обратном порядке элементы массива, расположенные между минимальным и максимальным элементами.

Работа с несколькими массивами

В Turbo Pascal можно одним оператором присваивания передать все элементы какого-либо массива другому массиву того же типа, например:

Var
  a, b: array [1 .. 5] of integer;
Begin
  ...
  a:=b;
  ...
End.

После такого присваивания все пять элементов массива a получат значения из массива b.

Рассмотрим одну из типичных задач.

Задача. Найти скалярное произведение двух массивов.

Скалярным произведением двух массивов одинаковой размерности называется сумма произведений соответствующих элементов. Это можно записать так:

a[1]*b[1] + a[2]*b[2] + ... + a[n-1]*b[n-1] + a[n]*b[n],

где n - это количество элементов в массивах (размерность).

Тогда можно составить следующую функцию:

Function Sp (a, b : MyArray; n ; integer) : LongInt;
Var
  i : Integer;
  s : LongInt;
Begin
  s:= 0;
  for i := 1 to n do
    s := s+a[i]*b[i];
    Sp := s;
End;

Задание. Выберите с учителем задачи для самостоятельного решения:

  1. Дан одномерный массив чисел а. Cформируйте такой массив b, который содержит копию положительных элементов массива а.


  2. Скопируйте отрицательные и положительные кратные заданному числу элементы массива А в массив В в обратном порядке.


  3. Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный так же, как исходные массивы.


  4. Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный в обратную сторону.


  5. Дан упорядоченный целочисленный массив. Сформировать второй массив всех таких различных значений, которые в первом массиве встречаются по два и более раза.


  6. Дан упорядоченный целочисленный массив. Сформировать второй массив всех таких различных чисел, которые ни разу в первом массиве не встречаются и имеют величину больше минимального и меньше максимального из чисел первого массива.


  7. Сформировать массив:
    Y[1]=A[1]+A[n]
    Y[2]= A[2]+A[n-1]
    Y[3]= A[3]+A[n-2]
    и т.д. (n - четное)


  8. Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых:
    а) А[i] < B[i]
    б) A[i] = B[i];
    в) A[i] > B[i]


  9. Даны два целочисленных массива одинаковой размерности. Получить третий массив той же размерности, каждый элемент которого равен большему из соответствующих элементов данного массива.


  10. Определить величину максимальной разности между соответствующими элементами двух массивов и записать на то же место в третий массив той же размерности.


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


Вернуться назад
2003—2012 © Группа «Vimedia»
Проект «Pascaler» — лучший на ХI Всероссийской конференции молодых исследователей с международным участием «Шаг в будущее», Россия, Москва, 12 – 16 апреля 2004г.