Question

Даны три последовательности чисел: а1, а2, ..., а8; b1, b2, ..., b8; с1, с2 , ..., с8. Составить новую последовательность, в которой чередовались бы числа всех трех последовательностей, т.е. d1 = a1; d2=b1; d3 = c1; d4 = a2; d5 = b2; d6 = c2. Паскаль. Срочно очень

Answer 1

#include <iostream>

#include <vector>

#include <array>

#include <iterator>

#include <algorithm>

int main()

{

const size_t size_array = 8;

std::array<int, size_array>

 posled1{1, 2, 3, 4, 5, 6, 7, 8},

 posled2{9, 10, 11, 12, 13, 14, 15, 16},

 posled3{17, 18, 19, 20, 21, 22, 23, 24};

std::vector<int> posled4;

posled4.reserve(size_array*3);

for(int i = 0; i < size_array; i++)

{

 posled4.push_back(posled1[i]);

 posled4.push_back(posled2[i]);

 posled4.push_back(posled3[i]);

}

std::copy(posled4.begin(), posled4.end(), std::ostream_iterator<int>(std::cout, " "));

std::cout << std::endl;

}

Answer 2

Для составления новой последовательности, в которой чередуются числа трех данных последовательностей a1, a2, ..., a8; b1, b2, ..., b8; с1, с2 , ..., с8, можно использовать следующий алгоритм на языке Паскаль:

pascalCopy code
program MergeSequences;
const
  N = 8; // Размерность последовательностей
var
  a: array[1..N] of Integer; // Последовательность a
  b: array[1..N] of Integer; // Последовательность b
  c: array[1..N] of Integer; // Последовательность c
  d: array[1..N*3] of Integer; // Результирующая последовательность d
  i, j: Integer;

begin
  // Ввод значений последовательностей a, b, c
  writeln('Введите последовательность a:');
  for i := 1 to N do
    readln(a[i]);

  writeln('Введите последовательность b:');
  for i := 1 to N do
    readln(b[i]);

  writeln('Введите последовательность c:');
  for i := 1 to N do
    readln(c[i]);

  // Формирование новой последовательности d
  j := 1; // Индекс элемента в последовательности d

  for i := 1 to N do
  begin
    d[j] := a[i];
    j := j + 1;

    d[j] := b[i];
    j := j + 1;

    d[j] := c[i];
    j := j + 1;
  end;

  // Вывод результирующей последовательности d
  writeln('Результирующая последовательность d:');
  for i := 1 to N*3 do
    writeln(d[i]);
end.

Программа запрашивает у пользователя значения последовательностей a, b и c, а затем формирует новую последовательность d, чередуя числа из a, b и c. Например, для введенных последовательностей:

makefileCopy code
a: 1 2 3 4 5 6 7 8
b: 9 10 11 12 13 14 15 16
c: 17 18 19 20 21 22 23 24

Результирующая последовательность d будет:

makefileCopy code
d: 1 9 17 2 10 18 3 11 19 4 12 20 5 13 21 6 14 22 7 15 23 8 16 24

Надеюсь, это поможет! Если у вас возникнут дополнительные вопросы или потребуется еще помощь, не стесняйтесь спрашивать. Удачи!