Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
XXXboxer
0 / 0 / 0
Регистрация: 01.05.2018
Сообщений: 2
1

Удалить первую строку динамической матрицы

01.05.2018, 22:45. Просмотров 96. Ответов 5
Метки нет (Все метки)

Дан динамический массив данных А (n , m).Удалить первую строку
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2018, 22:45
Ответы с готовыми решениями:

Удалить первую строку, в которой есть отр. элемент
for i:=1 to m do begin for j:=1 to n do ...

Поменять первую и последнюю строку матрицы A(m,n).
Поменять первую и последнюю строку матрицы A(m,n). Народ помогите завтра...

Поменять местами первую строку и главную диагональ матрицы.
Если в матрице количество отрицательных элементов в четных строках больше...

Поменять местами первую строку и главную диагональ матрицы.
Задача 8 uses crt; const nmax=20; var a:array of integer; ...

Найти количество строк матрицы, похожих на первую строку
Дана целочисленная матрица размера MxN, элементы которой могут принимать...

5
JuriiMW
2002 / 1085 / 1575
Регистрация: 10.12.2014
Сообщений: 4,075
02.05.2018, 07:59 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
var
  a : array [,] of Integer;
  rows, cols : Integer;
  row, col : Integer;
begin
  Randomize;
  Write('n m = '); ReadLn(rows, cols);
  SetLength(a, rows, cols);
  for row := 0 to rows-1 do
    for col := 0 to cols-1 do
      a[row, col] := Random(10);
  WriteLn('а :');
  for row := 0 to rows-1 do begin
    for col := 0 to cols-1 do Write(a[row, col]:2); WriteLn;
  end;
  Dec(rows);
  for row := 0 to rows-1 do
    for col := 0 to cols-1 do
      a[row, col] := a[row+1, col];
  SetLength(a, rows, cols);
  WriteLn('а :');
  for row := 0 to rows-1 do begin
    for col := 0 to cols-1 do Write(a[row, col]:2); WriteLn;
  end;
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4066 / 2679 / 2140
Регистрация: 22.11.2013
Сообщений: 7,502
02.05.2018, 09:10 3
JuriiMW,
Вопрос: этот диалект присваивание массивов не поддерживает, вот так не позволяет?
Pascal
17
18
  for row := 0 to rows-1 do
    a[row] := a[row+1];
0
JuriiMW
2002 / 1085 / 1575
Регистрация: 10.12.2014
Сообщений: 4,075
02.05.2018, 09:16 4
bormant, это скорее не ко мне вопрос, а к ТС.
Только ему известен диалект!
Но некоторые, к примеру PABC.NET, не позволяют, если массив описан именно так ;–(

Если хотите, как вариант:
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
var
  a : array of array of Integer;
  rows, cols : Integer;
  row, col : Integer;
begin
  Randomize;
  Write('n m = '); ReadLn(rows, cols);
  SetLength(a, rows);
  for row := 0 to rows-1 do
    SetLength(a[row], cols);
  for row := 0 to rows-1 do
    for col := 0 to cols-1 do
      a[row, col] := Random(10);
  WriteLn('а :');
  for row := 0 to rows-1 do begin
    for col := 0 to cols-1 do Write(a[row, col]:2); WriteLn;
  end;
  Dec(rows);
  for row := 0 to rows-1 do
    a[row] := a[row+1];
  SetLength(a, rows);
  WriteLn('а :');
  for row := 0 to rows-1 do begin
    for col := 0 to cols-1 do Write(a[row, col]:2); WriteLn;
  end;
end.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26363 / 17688 / 7004
Регистрация: 22.10.2011
Сообщений: 31,124
Записей в блоге: 6
02.05.2018, 10:12 5
Этот раздел вообще ничего общего с мертворожденным pabc.net не имеет, и не надо кодами для него загаживать все разделы Паскаля,, тут желательно писать программы без привязки к какому-либо компилятору, скажем, тот же Турбо Паскаль этот код компилировать не будет.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4066 / 2679 / 2140
Регистрация: 22.11.2013
Сообщений: 7,502
02.05.2018, 15:29 6
volvo,
В целом согласен с позицией, в частностях — не очень: в турбо паскале на уровне языка с динамическими массивами как-то не сильно здорово
0
02.05.2018, 15:29
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2018, 15:29

Текстовые файлы: в первую строку вставить первую гласную из второй строки, после каждой согласной в первой
1-в первую строку вставить первую гласную из второй строки, после каждой...

Удалить строку матрицы
Дана матрица размера M х N и целое число K (1 <= K <= M). Удалить строку...

Удалить строку матрицы
Дана матрица размера M х N и целое число K (1 <= K <= M). Удалить строку...


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

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

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