VPF::вопрос по задачке - Форум программистов

ravvv

Дата 18.3.2009, 17:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.3.2009

Репутация: нет
Всего: нет

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

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

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

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

Цитата(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;

Попробуй)

--------------------

Don't let the system get you down.

volvo877

Дата 18.3.2009, 18:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »