Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
RekcaR
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 124
Завершенные тесты: 1
#1

матрица:вставка столбцов - Delphi

03.07.2013, 23:37. Просмотров 449. Ответов 1
Метки нет (Все метки)

Дана матрица размера MxN. Перед первым столбцом, содержащим только положительные элементы, вставить столбец из единиц. Если требуемых столбцов нет, то вывести матрицу без изменений.
http://www.cyberforum.ru/delphi-beginners/thread112063.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.07.2013, 23:37
Я подобрал для вас темы с готовыми решениями и ответами на вопрос матрица:вставка столбцов (Delphi):

Шифрование перестановкой. Матрица из 4 столбцов
Подскажите, в чем ошибка? смысл заключается в том, что нужно написать программу...

StringGrid и матрица. Удаление столбцов.
Здравствуйте, форумчане. Мне нужно сделать, чтобы из матрицы удалились столбцы...

Матрица(Поменять местами столбец N и первый из столбцов, содержащих только отрицательные элементы)
Дана матрица размера MxN. Поменять местами столбец с номером N и первый из...

Дана матрица A, имеющая 30 строк и 10 столбцов, содержащая оценки группы за первый семестр. Подсчитать кол-во
Дана матрица A, имеющая 30 строк и 10 столбцов, содержащая оценки группы за...

Дана матрица А, имеющая n строк и m столбцов, содержащая оценки группы за первый семестр. Определите средний балл студен
Дана матрица А, имеющая n строк и m столбцов, содержащая оценки группы за...

1
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
04.07.2013, 13:31 #2
Лучший ответ Сообщение было отмечено RekcaR как решение

Решение

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
procedure TForm1.Button1Click(Sender: TObject);
var a: array of array of integer;
    m,n,i,j,k:byte;
    jp:integer;//номер 1-го столбца из положительных
begin
Randomize;
m:=Strtoint(edit1.Text);
n:=Strtoint(edit2.Text);
Setlength(a,m,n+1);//под столбцы выделим места на 1 больше, будем вставлять
for i:=0 to m-1 do
for j:=0 to n-1 do
a[i,j]:=-5+random(25);
jp:=-1;
j:=0;
while(j<n)and(jp=-1)do
 begin
  k:=0;
  for i:=0 to m-1 do
  if a[i,j]>0 then k:=k+1;
  if k=m then jp:=j
  else j:=j+1
 end;
if jp=-1 then Edit3.Text:='Нет столбца из положительных элементов'
else Edit3.Text:='Первый столбец из положительных элементов '
                  +Inttostr(jp+1);
Stringgrid1.rowcount:=m;
stringgrid1.colcount:=n;
for i:=0 to m-1 do
for j:=0 to n-1 do
stringgrid1.cells[j,i]:=inttostr(a[i,j]);
Stringgrid2.rowcount:=m;
if jp=-1 then //матрица без изменений
 begin
  Stringgrid2.colcount:=n;
  for i:=0 to m-1 do
  for j:=0 to n do
  stringgrid2.cells[j,i]:=inttostr(a[i,j]);
 end
else
 begin
  Stringgrid2.colcount:=n+1;
  for i:=0 to m-1 do
  for k:=n downto jp+1 do//сдвигаем столбцы на 1 вправо начиная со следующего
  a[i,k]:=a[i,k-1];
  for i:=0 to m-1 do
  a[i,jp]:=1; //на освободившееся место пишем 1
  for i:=0 to m-1 do
  for j:=0 to n do
  stringgrid2.cells[j,i]:=inttostr(a[i,j]);
 end; 
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.07.2013, 13:31
Привет! Вот еще темы с решениями:

Дана матрица размера M × N. Найти максимальный среди элементов тех столбцов, которые упорядочены либо по возрастанию,
Matrix45. Дана матрица размера M × N. Найти максимальный среди эле- ментов тех...

Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной
Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной....

вставка
У меня есть папай меню в ней строчки копировать вставить .Как сделать так...

Вставка масивов
Прога вставляет неотсортированый массив В отсортированый по возростанию массив...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru