Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.02.2014, 20:08   #1
tweeker
Пользователь
 
Регистрация: 29.11.2013
Сообщений: 11
По умолчанию Матрица

Добрый вечер.
Помогите пожалуйста с матрицей.
Дана целочисленная квадратная матрица. Удалить из матрицы строки, которые содержат один элемент из первой строки.
Заранее спасибо.
P.S. Если можно напишите более понятно и легко.
tweeker вне форума Ответить с цитированием
Старый 11.02.2014, 22:42   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Удалить из матрицы строки
Что подразумевается? Матрица как правило статический объект - поле памяти МхН, которое в теории изменять нельзя, соответственно нельзя удалять строки или столбцы. Можно:
1) Переписать в другую матрицу
2) Тупо не выводить на экран ненужные строки.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.02.2014, 23:14   #3
tweeker
Пользователь
 
Регистрация: 29.11.2013
Сообщений: 11
По умолчанию

не выводить,как я понял
tweeker вне форума Ответить с цитированием
Старый 12.02.2014, 05:45   #4
009
Пользователь
 
Регистрация: 09.02.2014
Сообщений: 33
По умолчанию

Код:
var
  a: array [1..100,1..100]  of integer;
  i,k,j,n,m,t:integer;
begin
writeln('Введите размер матрицы');
read(n); read(m);
writeln('Исходная матрица');
for i:=1 to n do begin
  for j:=1 to m do begin
    a[i,j]:=random(10);   
    write(a[i,j],' ');
  end;
  writeln;
end;
i:=2;
while i<=n do begin
  t:=0;
  for k:=1 to m do
    for j:=1 to m do
    if a[i,k]=a[1,j] then begin
    inc(t); break;
    end;
  if t=1 then begin
    for k:=i to n-1 do
      for j:=1 to m do
        a[k,j]:=a[k+1,j];
    dec(n); dec(i);
  end;
  inc(i);
end;

writeln('Полученная матрица');
for i:=1 to n do begin
  for j:=1 to m do    
    write(a[i,j],' ');  
  writeln;
end;
end.
009 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. Матрица NxN -> текстовый файл -> Матрица NxN - найти max по диагоналям -> типизированный файл Лунатик13 Помощь студентам 1 20.02.2012 15:54
Матрица в С# Vovchik123 Помощь студентам 5 18.10.2011 16:05
матрица Пуффыстик Паскаль, Turbo Pascal, PascalABC.NET 1 12.10.2011 16:03
Непонятки с DirectX (матрица поворота, камера, матрица проекции) ROD Общие вопросы C/C++ 2 17.09.2010 17:00
TurboPascal: граф, матрица смежности и матрица инцидентности. ulala Помощь студентам 0 02.12.2009 10:11