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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.01.2014, 16:55
Ответы с готовыми решениями:

Как объединить два массива в один?
Вот к примеру есть два массива: int A={1,2,3,4}; int B={5,6,7,8}; Как создать третий массив С...

Как объединить два одномерных массива в один двумерный?
Приветствую! В JavaScript разбираюсь не особо сильно... в процессе освоения... Столкнулся с...

Как объединить два одномерных массива в один двумерный массив?
можно ли как нибудь объединить два массива в один ДВУМЕРНЫЙ МАССИВ? Заранее спсибо void...

Два исходных массива объединить в один, включив элементы второго массива между K и (K+1) элементами первого массива.
Ребят, помогите, пожалуйста, сделать задачи, так как сама в этом ничего не соображаю.. 1. Дан...

2
Супер-модератор
6108 / 2847 / 1299
Регистрация: 04.03.2013
Сообщений: 5,738
Записей в блоге: 1
17.01.2014, 17:07 2
Лучший ответ Сообщение было отмечено DIMANKRIK как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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.
1
0 / 0 / 0
Регистрация: 17.01.2014
Сообщений: 2
17.01.2014, 18:21  [ТС] 3
Большое спасибо, очень помогли))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.01.2014, 18:21
Помогаю со студенческими работами здесь

Объединить два массива в один
Помогите кто чем может, не получается объединить два массива в один, оч надо посмотрите кто может...

Объединить два массива в один
Помогите с переводом pascal кода в C++ program prog0523b; uses crt; var x, y: array of...

Объединить два массива в один
Имеется два строковых массива. Требуется их объединить в один, но чтобы между элементами ставилось...

Объединить два массива в один
Есть два массива: ... $users1 = array(&quot;name&quot; =&gt; &quot;Иван&quot;, &quot;age&quot; =&gt; &quot;20&quot;, &quot;registered&quot;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru