8 / 8 / 1
Регистрация: 23.09.2009
Сообщений: 134
1

Уплотнить матрицу, удалив из неё строки и столбцы, заполненые нулями.

11.12.2009, 20:08. Показов 1376. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здорова.Помогите плиз реализовать. Вот тут 2 алгоритма:
  1. Уплотнить матрицу, удалив из неё строки и столбцы, заполненые нулями.
  2. Удалить из текста все слова с нечётными порядковыми номерами и инвентировать все слова с чётными номерами.
Заранее спасибо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2009, 20:08
Ответы с готовыми решениями:

Уплотнить заданную матрицу, удаляя из неё строки и столбцы заполненные нулями
Помогите пожалуйста составить программу в Паскале! 1. Уплотнить заданную матрицу, удаляя из неё...

Уплотнить заданную матрицу, удаляя из неё строки и столбцы, заполненные нулями.
Уплотнить заданную матрицу, удаляя из неё строки и столбцы, заполненные нулями. Найти номер первой...

Уплотнить заданную матрицу, удаляя из неё строки и столбцы заполненные нулями
Помогите пожалуйста составить программу в Паскале! 1. Уплотнить заданную матрицу, удаляя из неё...

Уплотнить заданную матрицу, удаляя из нее строки и столбцы, заполненные нулями (оформить в виде функции).
Уплотнить заданную матрицу, удаляя из нее строки и столбцы, заполненные нулями (оформить в виде...

5
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
11.12.2009, 20:21 2
Инвертировать т.е. записать в обратном порядке?

Добавлено через 2 минуты
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
program kkk;
uses crt;
var count,i:integer;
    st,buf:string;
    slova:array[1..100]of string;
begin
 clrscr;
 readln(st);
 count:=1;
 repeat
  if (st[1]=' ') or (length(st)=1) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>1) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  slova[count]:=buf;
  buf:='';
  inc(count);
  end;
 until (length(st)=1) and (length(buf)=0);
 
 for i:=1 to count-1 do if i mod 2=0 then
 begin
  for j:=length(slova[i]) downto 1 do write(slova[i][j]);
  write(' ');
 end; 
 readln;
end.
1
8 / 8 / 1
Регистрация: 23.09.2009
Сообщений: 134
12.12.2009, 12:55  [ТС] 3
А можно ещё про массив.
0
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
12.12.2009, 12:57 4
Цитата Сообщение от Sven_0007 Посмотреть сообщение
Уплотнить матрицу, удалив из неё строки и столбцы, заполненые нулями.
чуть более подробно...а если таких нет? Как задавать матрицу?
0
8 / 8 / 1
Регистрация: 23.09.2009
Сообщений: 134
12.12.2009, 15:28  [ТС] 5
Если нет нулей в полной строке или столбце, то нечего не делать. А матрица 5 на 5
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
12.12.2009, 15:40 6
Вот такую программку когда-то писал, переделай под себя.
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
uses crt;
type matrix=array [1..50,1..50] of integer;
procedure Vvod(n,p:integer;var a:matrix);
var i,j:integer;
begin
Writeln('Введите элементы массива:');
For i:=1 to n do
For j:=1 to p do
Readln(a[i,j]);
clrscr;
Writeln('Исходная матрица:');
for i:=1 to n do
   begin
     for j:=1 to p do
     write(a[i,j]:4);
     writeln;
   end;
end;
Procedure vyvod(n,p:integer;var a:matrix);
var i,j:integer;
begin
writeln('Результат:');
for i:=1 to n do
   begin
    for j:=1 to p do
    write(a[i,j]:4);
    writeln;
   end;
readln
end;
procedure U_s_s_0 (var n:integer;var p:integer; var a:matrix);
var i,j,k,t,m,g:integer;
begin
{Udalenie stroki s 0}
i:=1;
while i<=n do
   begin
     k:=0;
     for j:=1 to p do
     if a[i,j]=0 then k:=k+1;
     if k=p then
        begin
          for t:=1 to p do
          for m:=i to n-1 do
          a[m,t]:=a[m+1,t];
          n:=n-1;
        end
     else i:=i+1;
   end;
end;
procedure U_st_s_0 (var n:integer;var p:integer; var a:matrix);
var i,j,k,t,m,g:integer;
begin
{Udalenie stolbca s 0}
j:=1;
while j<=p do
   begin
     k:=0;
     for i:=1 to n do
     if a[i,j]=0 then k:=k+1;
     if k=n then
        begin
          for t:=1 to n do
          for m:=j to p-1 do
          a[m,t]:=a[m,t+1];
          p:=p-1;
        end
     else j:=j+1;
  end;
end;
var n,p:integer;
    a:matrix;
begin
clrscr;
write('n=');readln(n);
write('p=');readln(p);
Vvod(n,p,a);
U_s_s_0 (n,p,a);
U_st_s_0 (n,p,a);
vyvod(n,p,a);
end.
1
12.12.2009, 15:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2009, 15:40
Помогаю со студенческими работами здесь

Уплотнить матрицу, удаляя из нее строки и столбцы, заполненные нулями.
Уплотнить заданную матрицу, удаляя из нее строки и столбцы, заполненные нулями. Найти номер первой...

Уплотнить матрицу, удаляя из неё строки и столбцы, заполненные нулями
уплотнить заданную матрицу,удаляя из неё строки и столбцы,заполненные нулями(оформить в виде...

Уплотнить заданную матрицу, удаляя из неё строки и столбцы заполненные нулями
Уплотнить заданную матрицу, удаляя из неё строки и столбцы заполненные нулями( оформить в виде...

Уплотнить заданную матрицу, удалив из нее строки и столбцы, заполненные нулями...
Уплотнить заданную матрицу, удалив из нее строки и столбцы, заполненные нулями (оформить в виде...


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

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

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