Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Seems_
0 / 0 / 0
Регистрация: 07.09.2017
Сообщений: 21
#1

Вычеркнуть нулевые строки

16.09.2017, 21:30. Просмотров 792. Ответов 1
Метки нет (Все метки)

Вычеркнуть нулевые строки и столбцы из матрицы A[50,30], матрицу уплотнить(в сторону меньшего индекса). Определить размеры уплотненной матрицы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.09.2017, 21:30
Ответы с готовыми решениями:

Строки. Вычеркнуть буквы, стоящие на четвертых местах
Здравствуйте у меня с паскалем дикие проблемы и поэтому прошу помочь. 3....

Матрица. Посчитать произведение всех эл-в строки и вычеркнуть ту строку, в которой окажется наименьший результат.
Матрица. Посчитать произведение всех эл-в строки и вычеркнуть ту строку, в...

Составьте программу,выясняющую,есть ли в массиве C(N,M) строки,в которых отсутствуют нулевые элементы
Помогите,пожалуйста решить задачу по Паскалю. Составьте программу, выясняющую,...

Составьте программу, выясняющую, есть ли в массиве С(N,M) строки, в которых отсутствуют нулевые элементы.
Составьте программу, выясняющую, есть ли в массиве С(N,M) строки, в которых...

Определить номера столбцов, которые содержат нулевые элементы для каждой строки матрицы
Определить номера столбцов, которые содержат нулевые элементы для каждой строки...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3815 / 2496 / 2055
Регистрация: 22.11.2013
Сообщений: 6,948
17.09.2017, 11:32 #2
Лучший ответ Сообщение было отмечено Seems_ как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
  m:=0; n:=0;
  for i:=1 to mm do begin
    k:=0; for j:=1 to mn do if a[i,j]<>0 then begin Inc(k); Break; end;
    if k=0 then begin Inc(m); if m<i then for j:=1 to mn do a[m,j]:=a[i,j]; end;
  end;
  for j:=1 to mn do begin
    k:=0; for i:=1 to m do if a[i,j]<>0 then begin Inc(k); Break; end;
    if k=0 then begin Inc(n); if n<j then for i:=1 to n do a[i,n]:=a[i,j]; end;
  end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.09.2017, 11:32

Сформировать из строк двумерного массива, содержащих нулевые элементы, одномерный массив. Нулевые элементы не выводить (удалить их)
Вот что у меня получилось, но это полная фигня... Помогите пожалуйста! ...

В матрицах в каждой строке заменить нулевые элементы суммой элементов данной строки. Надо использовать подпрограмму.
Здравствуйте. Дана задача: В матрицах С(5,10) и D(10,20) в каждой строке...

Вычеркнуть из строки A символы, встречающиеся в строке B, оставшиеся добавить в строку B.
Даны две строки. Вычеркнуть из строки A символы, встречающиеся в троке B,...


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

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

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