Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > вопрос по задачке

Автор: ravvv 18.3.2009, 17:34

Задача: Нужно переставить в матрице первую и последнюю строку, а также сформировать одномерный массив, элементами которого являются отрицательные значения преобразованной матрицы и распечатать его

Помогите, пожалуйста как "сформировать одномерный массив, элементами которого являются отрицательные значения преобразованной матрицы"

вот, что я сделал:

Код


program matrix;
uses crt;
 
const
n=3;
m=3;
k=1;
l=3;
var
 a: array [1..n,1..m] of integer;
 
 i,j : integer;
 
 begin
 writeln('Enter the matrix:');
 for i:=1 to n do
  for j:=1 to m do
   readln(a[i,j]);
 
  writeln('Default matrix:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
                write(a[i,j]:8);
      end;
  writeln;
  end;
 
   for i:=1 to m do
  begin
   j:=a[k,i];
   a[k,i]:=a[l,i];
   a[l,i]:=j;
  end;
 
 writeln('New matrix:');
 for i:=1 to n do
  begin
   for j:=1 to m do write(a[i,j]:8);
   writeln;
  end;

Автор: Metalex 18.3.2009, 18:29

Имхо ты меняешь первую и последнюю строку по вертикали..
Вместо:

Цитата(ravvv @ 18.3.2009, 17:34

)

   for i:=1 to m do
begin
   j:=a[k,i];
  a[k,i]:=a[l,i];
  a[l,i]:=j;
  end;

Нужно:

Код

for i:=1 to m do 
 begin
   j:=a[i,k];
  a[i,k]:=a[i,l];
  a[i,k]:=j;
  end;

Цитата(ravvv @ 18.3.2009, 17:34

)

как "сформировать одномерный массив, элементами которого являются отрицательные значения преобразованной матрицы"

опиши его впереди (пусть будет b) и потом:
v:=1;

Код

for i:=1 to n do
  begin
   for j:=1 to m do
   if a[i,j]<0
   then begin
            b[v]:=a[i,j];
            v:=v+1;
            end;
  end;

Попробуй)

Автор: volvo877 18.3.2009, 18:52

Закрыто, поскольку дубликат:
http://forum.vingrad.ru/forum/topic-251821/kw-%D0%BC%D0%B0%D1%81%D1%81%D0%B8%D0%B2.html