VPF::[Рascal]матрицы - Форум программистов

halk091

Дата 18.12.2009, 15:21 (ссылка)

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

Загрузка ...

Новичок

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

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

дана вещественная матрица А размером m*n. обозначим М(с индексом i,j) матрицу размером (m-1)*(n-1), получаемую из матрицы А выбрасыванием i-той строки и j-того столбца. Построить матрицу В, где каждый элемент b( с индексом i,j) равен наименьшему из элементов матрицы М(с индексом i,j).

помогите решить !!! Заранее благодарю

вот пример того что долджна выдавать матрица:
  матрица А
1     3      -2      5
4    -6      4      -1
0     8      -8       9
-3    1      0        2

матрица В
1    1     -2     -2
1    -6    -6     -6
0    -6    -8    -8
-3   -6    -8    -8
что то типа этого должен выдавать в ответе, размерность матрицы вводится с клавиатуры

halk091

Дата 19.12.2009, 13:28 (ссылка)

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

Загрузка ...

Новичок

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

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

помогите кто нибудь!!!!! вот наработка но она не совсем верно работает:

uses crt;
type matrix= array [1..100,1..100] of longint;
var
   i,j,k,q,w, l:Integer;
  a,b:matrix ;
  {function nahodit minimalnyi element}
function min(var a1:matrix; o,p:integer):integer;  {nachalo funccii}
  var
    i1,j1:Integer;
    m:Integer;
  begin
    m:=26;
    for i1:=1 to q do
    for j1:=1 to w do
      if (a1[i1,j1]< m) and ((i1<>o) and (j1<>p)) then
        m:=a1[i1,j1];
    min:=m
  end;   {konec funccii}
begin
    writeln('vvedite razmernosti matricy');
  readln(w,q);
Randomize;
  for i:=1 to q do
  for j:=1 to w do
    a[i,j]:=-20+Random(20);

Writeln('     Matrix A      ');
  for i:=1 to q do begin
    for j:=1 to w do
      write(a[i,j]:3);
    Writeln;
  end;

  for k:=1 to q do
  for l:=1 to w do
    begin
      b[k,l]:=min(a,k,l)
    end;

  Writeln('     Matrix B      ');
  for i:=1 to q do begin
    for j:=1 to w do
      write(b[i,j]:3);
    Writeln;
  end;
  Readln;
end.

halk091

Дата 21.12.2009, 18:46 (ссылка)

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

Загрузка ...

Новичок

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

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

помогите, очень прошу!!!

mr.Anderson

Дата 21.12.2009, 20:38 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

!
mr.Anderson

Модератор: пользуйтесь тегами подсветки кода! Читать невозможно!

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

halk091

Дата 23.12.2009, 16:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


uses crt;
type matrix= array [1..100,1..100] of longint;
var
   i,j,k,q,w, l:Integer;
  a,b:matrix ;
  {function nahodit minimalnyi element}
 function min(var a1:matrix; o,p:integer):integer;  {nachalo funccii}
  var
    i1,j1:Integer;
    m:Integer;
  begin
    m:=26;
    for i1:=1 to q do
    for j1:=1 to w do
      if (a1[i1,j1]< m) and ((i1<>o) and (j1<>p)) then
        m:=a1[i1,j1];
    min:=m
  end;   {konec funccii}
 begin
    writeln('vvedite razmernosti matricy');
  readln(w,q);
 Randomize;
  for i:=1 to q do
  for j:=1 to w do
    a[i,j]:=-20+Random(20);
    
 Writeln('     Matrix A      ');
  for i:=1 to q do begin
    for j:=1 to w do
      write(a[i,j]:3);
    Writeln;
  end;

  for k:=1 to q do
  for l:=1 to w do
    begin
      b[k,l]:=min(a,k,l)
    end;

  Writeln('     Matrix B      ');
  for i:=1 to q do begin
    for j:=1 to w do
      write(b[i,j]:3);
    Writeln;
  end;
  Readln;
end.

Добавлено через 3 минуты и 10 секунд
это то что у меня получилось ,но это не то надо! помогите решить задачку. срочно надо))))0

volvo877

Дата 23.12.2009, 18:36 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(halk091 @ 18.12.2009, 14:21

)

вот пример того что долджна выдавать матрица:

В результате выполнения действий, описанных в твоем ЗАДАНИИ, должна получаться совсем другая матрица. К примеру, самый первый элемент: B[1, 1]... Вычеркни из матрицы A первый столбец и первую строку. Минимальный элемент, который там останется, будет равен (-8), но никак не 1... Задание проверяй... Или проверяй тестовый пример.

Dancer

Дата 23.12.2009, 19:37 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 537
Регистрация: 29.4.2005
Где: Nizhniy Novgorod

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

Наверное как-то так.
Компилера нету, так что код не проверял. Сорри, за синтаксические ошибки, если будут обнаружены во время компайла.

Код


uses crt;
type matrix= array [1..100,1..100] of longint;
var
   i,j,q,w,delRow,delColum :Integer;
   a,b :matrix ;

procedure showArray(var mas:matrix; row,col:integer);
begin
  for i:=1 to row do begin
    for j:=1 to col do
      write(mas[i,j]:3);
    Writeln;
  end;
end;

function process(var mas:matrix, row, col, delRow, delCol: Integer):matrix;
var
   orgRowIndex, orgColIndex :Integer;
   rowIndex, colIndex :Integer;
   min :longint;
   ret :matrix;

begin
    min:=mas[1,1];

    for rowIndex:=1 to row-1 do
    begin
      if orgRowIndex=delRow then inc(orgRowIndex);
      for colIndex := 1 to col-1 do
      begin
        if orgColIndex = delColIndex then inc(orgColIndex);
        ret[rowIndex, colIndex] := mas[orgRowIndex, orgColIndex];
        if min > ret[rowIndex, colIndex] then min := ret[rowIndex, colIndex];
        inc(orgColIndex);
      end;
      inc(orgRowIndex);
    end;

    if row > col then row := col;
    for rowndex := 1 to row-1 do
       ret[rowIndex, rowIndex] := min;

  process:=ret;
end;

begin
ClrScr;

  writeln('vvedite razmernosti matricy');
  readln(w,q);
  Randomize;
  for i:=1 to q do
    for j:=1 to w do
      a[i,j]:=-20+Random(20);
    
  Writeln('     Matrix A      ');
  showArray(a, w, q);

  writeln('vvedite vycherkivaemye stroku i stolbec');
  readln(delRow,delColum);

  b := process(a, w, q, delRow, delColum);

  Writeln('     Matrix B      ');
  showArray(b, w-1, q-1);
  Readln;
end.

Это сообщение отредактировал(а) Dancer - 23.12.2009, 19:59

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

У программистов есть великая тайна: всё, что только можно, было давно кем-то когда-то написано. Разработчику только нужно знать в какое место кода какие строчки вставить! smile

halk091

Дата 24.12.2009, 16:24 (ссылка)

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

Загрузка ...

Новичок

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

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

не работает!(((((((((((((((((

Dancer

Дата 25.12.2009, 09:25 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 537
Регистрация: 29.4.2005
Где: Nizhniy Novgorod

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

Код


program test;
uses crt;

Type
  matrix = array [1..10,1..10] of integer;

var
   i,j,q,w,delRow,delColum :Integer;
   a :matrix;
   b :matrix;

procedure showArray(var mas:matrix; row,col:integer);
begin
  for i:=1 to row do begin
    for j:=1 to col do
      write(mas[i,j]:5);
    Writeln;
  end;
end;

procedure process(var mas, ret:matrix; row, col, delRow, delCol: Integer);
var
   orgRowIndex, orgColIndex :Integer;
   rowIndex, colIndex :Integer;
   min :longint;

begin
    min:=9999;
    orgRowIndex := 1;

    for rowIndex:=1 to row-1 do
    begin
      if orgRowIndex=delRow then inc(orgRowIndex);
    orgColIndex := 1;
      for colIndex := 1 to col-1 do
      begin
        if orgColIndex = delCol then inc(orgColIndex);
        ret[rowIndex, colIndex] := mas[orgRowIndex, orgColIndex];
        if min > ret[rowIndex, colIndex] then min := ret[rowIndex, colIndex];
        inc(orgColIndex);
      end;
      inc(orgRowIndex);
    end;

    if row > col then row := col;
    for rowIndex := 1 to row-1 do
       ret[rowIndex, rowIndex] := min;

end;

begin
ClrScr;

  writeln('vvedite razmernosti matricy');
  readln(w,q);
  Randomize;
  for i:=1 to q do
    for j:=1 to w do
      a[i,j]:=-20+Random(20);

  Writeln('     Matrix A      ');
  showArray(a, w, q);

  writeln('vvedite vycherkivaemye stroku i stolbec');
  readln(delRow,delColum);

  process(a, b, w, q, delRow, delColum);

  Writeln('     Matrix B      ');
  showArray(b, w-1, q-1);
  Readln;
end.

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

volvo877

Дата 25.12.2009, 10:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(halk091 @ 24.12.2009, 15:24

)

не работает!(((((((((((((((((

Что "не работает"? Оно и не будет работать так, как ты этого ждешь, ты мое сообщение читал вообще? Подумал над ним? Где новые тесты? Или ты надеешься, что тебе кто-то напишет программу, которая работает АБСОЛЮТНО так, как ты описывал в первом посте? Не сделает. Потому что ответ для твоих данных должен получаться вот такой:

Код


   -8   -8   -6   -8
   -8   -8   -3   -8
   -6   -3   -6   -6
   -8   -8   -6   -8

Dancer, задание перечитай... Надо написать не программу, которая будет вычеркивать строку и столбец, и по4казывать результат. Надо ПРОМЕЖУТОЧНО вычеркивать каждый столбец/строку, и находить в полученной матрице минимум, который присваивать соответствующему элементу другой матрицы. Ты сделал не то задание.

Dancer

Дата 25.12.2009, 11:47 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 537
Регистрация: 29.4.2005
Где: Nizhniy Novgorod

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

Да, чутка не доглядел задание, но исходя из того что я написал, там есть всё чтобы пользуя это выполнить задание, один цикл лишь добавить нужно. Вот и всё. Лентяй он smile

Вот исправленный код:

Код


program test;
uses crt;

Type
  matrix = array [1..100, 1..100] of integer;

var
   i,j,q,w,delRow,delColum :Integer;
   a :matrix;
   b :matrix;
   m :matrix;

procedure showArray(var mas:matrix; row,col:integer);
begin
  for i:=1 to row do begin
    for j:=1 to col do
      write(mas[i,j]:5);
    Writeln;
  end;
end;

function process(var mas, ret:matrix; row, col, delRow, delCol: Integer) : longint;
var
   orgRowIndex, orgColIndex :Integer;
   rowIndex, colIndex :Integer;
   min :longint;

begin
    min:=9999;
    orgRowIndex := 1;

    for rowIndex:=1 to row-1 do
    begin
      if orgRowIndex=delRow then inc(orgRowIndex);
      orgColIndex := 1;
      for colIndex := 1 to col-1 do
      begin
        if orgColIndex = delCol then inc(orgColIndex);
        ret[rowIndex, colIndex] := mas[orgRowIndex, orgColIndex];
        if min > ret[rowIndex, colIndex] then min := ret[rowIndex, colIndex];
        inc(orgColIndex);
      end;
      inc(orgRowIndex);
    end;

    process := min;
end;

begin
ClrScr;

  writeln('vvedite razmernosti matricy');
  readln(w,q);
  Randomize;
  for i:=1 to w do
    for j:=1 to q do
      a[i,j]:=-20+Random(20);

  Writeln('     Matrix A      ');
  showArray(a, w, q);

  for i:= 1 to w do
    for j:=1 to q do
      b[i,j] := process(a, m, w, q, i, j);

  Writeln('     Matrix B      ');
  showArray(b, w, q);
  Readln;
end.

Это сообщение отредактировал(а) Dancer - 25.12.2009, 14:43

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

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