Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 02.04.2014
Сообщений: 14
1

Вставка в матрицу заданного одномерного массива на k-ю строку, со сдвигом следующих строк вниз

05.06.2014, 11:08. Показов 1182. Ответов 1
Метки нет (Все метки)

вставка в массив заданного одномерного массива на k-ю строку со сдвигом k-й, (k+1)-й,(k+2)-й т.д. строк на одну позицию вниз
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2014, 11:08
Ответы с готовыми решениями:

Вставка в матрицу заданного одномерного массива на k-ю строку
1.Вставка в матрицу заданного одномерного массива на k-ю строку (перезапись в новую матрицу)

Вставка строки со сдвигом вниз
Next i Dim v As Integer Dim pro As Range For i...

Вставка в массив заданного числа на k-е место со сдвигом
2.Вставка в массив заданного числа на k-е место со сдвигом k-го, (k + 1)-го, (k + 2)-го и т. д....

Из заданного одномерного массива сформировать квадратную матрицу
Дан одномерный массив из К элементов. Получить из него матрицу, размером N x M. Недостающие...

1
37 / 37 / 28
Регистрация: 23.11.2009
Сообщений: 103
09.06.2014, 19:12 2
Лучший ответ Сообщение было отмечено Next-e51 как решение

Решение

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Program P1;
uses
  crt;
  
const
  n = 3;
  m = 3;
  Size = n + 1;
 
var
  s: Integer;
  x: array [1..Size, 1..m] of Integer;
  a: array [1..n] of Integer;
  q, LineIndex: Integer;
 
procedure InputArray;
var
  i, j: Integer;
begin
  WriteLn(' Input array X:');
 
  for i := 1 to n do
    for j := 1 to m do
    begin
      write('X[', i: 2, ',', j: 2, ']', ' = ');
      read(x[i, j] );
    end;
  
  writeln;
    
  Writeln('Input add array:');
  for i := 1 to n do
  begin
    write('A[', i,']', ' = ');
    read(a[i]);
  end;
 
end;
 
procedure InputLineIndex;
begin
  writeLn;
  write('Insert line index = ');
  ReadLn(LineIndex);
end;
 
procedure OutputArray(ACaption: String; IsResult: Boolean);
var
  i, j, LineCount: Integer;
begin
  writeln;
  writeln(ACaption);
  LineCount := n;
 
  if IsResult then
    Inc(LineCount);
 
  for i := 1 to LineCount do
  begin
    writeln;
 
    for j := 1 to m do
      write(x[i, j]:6);
  end;
end;
 
procedure AddArray;
var
  i, j: Integer;
begin
  for i := n downto LineIndex do
    for j := 1 to m do
      x[i + 1, j] := x[i, j];
 
  for j := 1 to m do
    x[LineIndex, j] := a[j];
end;
 
begin
  InputArray;
  OutputArray('Array', False);
  InputLineIndex;
  AddArray;
  OutputArray('Array after swap:', True);
  ReadLn;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2014, 19:12

Нужно сделать запись вначало текстового файла со сдвигом строк вниз
Помогите пожалуйста. Проблема такая: мне нужно сделать запись вначало текстового файла со сдвигом...

Из заданного одномерного массива создать матрицу и заполнить её по условию
Ребята,помогите пожалуйста Задание 2 Из полученного массива приложение создает 2-мерный...

Как вставить диапазон в конкретную строку листа Excel со сдвигом вниз имеющихся?
Как вставить диапазон в конкретную строку листа Excel со сдвигом вниз, того что там находилось? ...

StringGrid вставка строк со сдвигом
Как в StringGrid вставить скопированные строки, между двух других, заполненных, так,чтобы...


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

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

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