Как объединить два массива 3х3 в один 3х6?

@DIMANKRIK · Регистрация: 17.01.2014

Ребята подскажите, пожалуйста как решить такую задачу?
Заданы два двумерных массива K и L размером 3х3. Сформировать из них массив Q размером 3х6, включая в первые 3 столбца массив K, а в следующие массив L. Построить алгоритм и составить программу на языке Pascal. Буду очень признателен)

@ildwine · 17.01.2014, 17:07

Pascal

const
  n = 3;
var
  K, L : array [1..n, 1..n] of integer;
  Q : array [1..n, 1..2*n] of integer;
  i, j : integer;
begin
  randomize;
  writeln('массив K:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      K[i,j] := random(100) - 50;
      write(K[i,j]:5)
    end;
    writeln
  end;
  writeln('массив L:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      L[i,j] := random(100) - 50;
      write(L[i,j]:5)
    end;
    writeln
  end;
  {формируем массив Q}
  writeln('массив Q:');
  for i := 1 to 3 do
  begin
    for j := 1 to 2 * n do
    begin
      if j <= n then Q[i,j] := K[i,j] else Q[i,j] := L[i, j-n];
      write(Q[i,j]:5)
    end;
    writeln
  end;
  readln
end.

@DIMANKRIK · 17.01.2014, 18:21 **[ТС]**

Большое спасибо, очень помогли))

@DIMANKRIK 0 / 0 / 0 Регистрация: 17.01.2014 Сообщений: 2
		1
	Как объединить два массива 3х3 в один 3х6? 17.01.2014, 16:55. Показов 1219. Ответов 2 Метки нет (Все метки) Ребята подскажите, пожалуйста как решить такую задачу? Заданы два двумерных массива K и L размером 3х3. Сформировать из них массив Q размером 3х6, включая в первые 3 столбца массив K, а в следующие массив L. Построить алгоритм и составить программу на языке Pascal. Буду очень признателен) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@DIMANKRIK 0 / 0 / 0 Регистрация: 17.01.2014 Сообщений: 2
	17.01.2014, 18:21 [ТС]	3
	Большое спасибо, очень помогли)) 0

Опции темы

Как объединить два массива 3х3 в один 3х6?

Решение