Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Seems_
0 / 0 / 0
Регистрация: 07.09.2017
Сообщений: 21
#1

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

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

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

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

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

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

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

Сформировать из строк двумерного массива, содержащих нулевые элементы, одномерный массив. Нулевые элементы не выводить (удалить их) - Turbo Pascal
Вот что у меня получилось, но это полная фигня... Помогите пожалуйста! var a:array of integer; b:array of integer; ...

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

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3749 / 2446 / 1307
Регистрация: 22.11.2013
Сообщений: 6,794
17.09.2017, 11:32 #2
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
Привет! Вот еще темы с ответами:

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

Из строки цифр вычеркнуть минимальное количество цифр - Pascal
1. В журнале метеостанции записаны ежедневные температуры воздуха в г. Смоленске. Определить самый холодный будний день октября 1997 г.,...

Матрица А 100x100 записана по строкам в файле. Определить, есть ли в ней нулевые строки - Pascal
Пусть матрица А 100x100 записана по строкам в файле. Определить, есть ли в ней нулевые строки. Сегодня сначала пол часа пытался понять...

Сохранить все нулевые элементы, расположенные в шахматном порядке, начиная со 2-го элемента 1-й строки - Pascal
всем приветик,,,,ребята,дамы и господа мне вновь нужна ваша помощь,,,,у меня 1 лабораторка,,,в етом новом учебном году,и как обычьно я 3...


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

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

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