0 / 0 / 0
Регистрация: 09.09.2011
Сообщений: 16
1

После каждого нулевого столбца матрицы добавить массив B(N).

21.09.2011, 21:50. Показов 1429. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана целочисленная матрица из N-строк и M-столбцов (1<N<=100, 1<M<=50). Выполнить заданную операцию над матрицей:

Добавление столбцов; После каждого нулевого столбца добавить массив B(N).



Помогите)) Заранее огромное спасиБООО))
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.09.2011, 21:50
Ответы с готовыми решениями:

После каждого нулевого столбца добавить заданный массив b[n]
Выполнить заданную операцию над матрицей,алгоритмы ввода,вывода матрицы,а так же выполнение...

Добавить столбцы после каждого четного столбца матрицы
Дан двумерный динамический массив. И надо добавить столбцы после каждого четного столбца матрицы. Я...

Добавить столбцы после каждого четного столбца матрицы
Матрица сформирована с помощью датчика случайных чисел, столбцы также должны быть сформированы...

Добавить столбцы после каждого парного столбца матрицы
Одномерный массив: Удалить N элементов, начиная с номера К Двомерный массив: Добавить столбцы...

1
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
22.09.2011, 14:13 2
Лучший ответ Сообщение было отмечено Sedoy как решение

Решение

Delphi
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
87
88
89
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Spin;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label2: TLabel;
    Label3: TLabel;
    StringGrid3: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a: array[1..100,1..50] of integer;
  b:array[1..100] of integer;
  n,m:byte;
implementation
 
{$R *.dfm}
//создание таблиц и ввод данных
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=SpinEdit1.Value;
m:=SpinEdit2.Value;
StringGrid1.ColCount:=m;
StringGrid1.RowCount:=n;
StringGrid2.ColCount:=n;
StringGrid2.RowCount:=1;
StringGrid3.RowCount:=n;
ShowMessage('Введите целые числа в ячейки матрицы, в том числе столбцы из нолей'+#13#10+
            'Введите целые числа в ячейки массива ');
end;
//вставка столбцов
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,f:byte;
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
for i:=1 to n do
b[i]:=StrToInt(StringGrid2.Cells[i-1,0]);
j:=1; //первый столбец
while j<=m do //пока не конец
 begin
   k:=0;//кол. 0 в столбце
   for i:=1 to n do
   if a[i,j]=0 then k:=k+1; //считаем 0
   if k<n then j:=j+1 //если нет, идем вперед на 1
    else //если есть
     begin
      m:=m+1; //добавим столбец
      if j=m then  //если это пока последний столбец
       for i:=1 to n do a[i,m]:=b[i] //в добавленный столбец пишем массив
      else //если не последний
       begin
        for i:=1 to n do
        for k:=m downto j+2 do//сдвигаем столбцы на 1 впрво начиная со следующего
        a[i,k]:=a[i,k-1];
        for i:=1 to n do
        a[i,j+1]:=b[i]; //на освободившееся место пишем ноли
      end;
      j:=j+2;//перепрыгиваем через столбец с нолями
     end;
 end;
StringGrid3.colcount:=m;//задаем количество столбцов во второй таблице
with StringGrid3 do
for i:=0 to n-1 do
for j:=0 to m-1 do
cells[j,i]:=inttostr(a[i+1,j+1]);
end;
 
end.
Вложения
Тип файла: rar Вставка столбцов после_2.rar (193.3 Кб, 12 просмотров)
2
22.09.2011, 14:13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.09.2011, 14:13
Помогаю со студенческими работами здесь

Добавить столбцы после каждого четного столбца матрицы
Здравствуйте, не могу додуматься как добавить столбцы после каждого четного столбца в матрице. Не...

Массив: Определить суммы элементов каждого столбца левой половины и каждого четного столбца правой половины матрицы A
Матрица A (M кратно 4) разделена по вертикали на две половины. Определить сумму элементов каждого...

Массив: Разделить элементы каждого столбца заданной матрицы на последний элемент столбца.
Разделить элементы каждого столбца заданной матрицы на последний элемент столбца. Полученную...

Вычесть из каждого столбца матрицы максимальный элемент для каждого столбца, и результат вывести в матрицу
Что нужно добавить , чтобы вычесть из каждого столбца матрицы максимальный элемент для каждого...


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

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

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