Выполнить перестановку элементов последовательности - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Выполнить перестановку элементов последовательности А, так, чтобы последний элемент последовательности поменялся с первым, предпоследний со вторым и тд. Одномерный массив создать при помощи генератора случайных чисел.

Решение задачи: «Выполнить перестановку элементов последовательности»

textual
Листинг программы
const
  n = 20;
var
  a: array[1..n] of integer;
  i, t: integer;
begin
  // создаем массив с помощью генератора случайных чисел
  randomize;
  writeln('Array A:');
  for i := 1 to n do
  begin
    a[i] := random(100);
    write(a[i]:4);
  end;
  writeln;
  
  // изменяем порядок следования элементов массива
  for i := 1 to n div 2 do
  begin
    t := a[i]; // здесь t - временная переменная
    a[i] := a[n - i + 1]; // a[n-i+1] - зеркальный элемент для a[i]
    a[n - i + 1] := t;
  end;
  
  // выводим измененный массив на экран
  writeln('Changed Matrix A:');
  for i := 1 to n do
    write(a[i]:4);
  readln;
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

  • n - количество элементов в массиве (равное 20 в данном случае);
  • a - массив для хранения чисел;
  • i - индекс текущего элемента массива;
  • t - временная переменная для хранения зеркального элемента;
  • randomize - инициализация генератора случайных чисел;
  • write - функция для вывода числа на экран;
  • readln - функция для чтения числа с экрана. Код выполняет следующие действия:
    1. Генерирует случайные числа для каждого элемента массива и выводит их на экран.
    2. Изменяет порядок следования элементов массива путем обмена элементов через временную переменную t.
    3. Выводит измененный массив на экран.

Оцени полезность:

8   голосов , оценка 3.375 из 5
Похожие ответы