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

leta

Дата 27.2.2012, 15:31 (ссылка)

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

Загрузка ...

Новичок

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

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

[Delphi] Помогите!! Написать программу, удаляющую из матрицы [A] строку и столбец, содержащие наибольший элемент матрицы.

t_gran

Дата 28.2.2012, 05:08 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

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

Код


type
   TArray = array of array of integer;

   TPos = record
      col, row: word;
   end;

{-----------------------------------------------}
procedure Fill(arr: TArray);
var
   i, j: word;
begin
   randomize;

   for i:= 0 to high(arr) do
      for j:= 0 to high(arr[i]) do
         arr[i, j]:= random(100);
end;
{-----------------------------------------------}
procedure Print(arr: TArray);
var
   i, j: word;
begin
   for i:= 0 to high(arr) do
   begin
      for j:= 0 to high(arr[i]) do
         write(arr[i, j]: 3);
      writeln;
   end;
end;
{-----------------------------------------------}
function GetPosMaxValue(arr: TArray): TPos;
var
   i, j: word;
   pos: TPos;
begin
   pos.col:= 0;
   pos.row:= 0;
   
   for i:= 0 to high(arr) do
      for j:= 0 to high(arr[i]) do
         if (arr[pos.row, pos.col] < arr[i, j]) then
         begin
            pos.row:= i;
            pos.col:= j;
         end;

   GetPosMaxValue:= pos;
end;
{-----------------------------------------------}
procedure Delete(var arr: TArray; pos: TPos);
var
   row, col: word;
   i, j: word;
begin
   row:= high(arr);
   col:= high(arr[0]);

   if (pos.col < col) then
      for i:= 0 to row do
         for j:= pos.col to col-1 do
            arr[i, j] := arr[i, j+1];
            
   if (pos.row < row) then
      for i:= 0 to col do
         for j:= pos.row to row-1 do
            arr[j, i] := arr[j+1, i];

   setlength(arr, row, col); 
end;
{-----------------------------------------------}

var
   arr: TArray;
   row, col: word;
   pos: TPos;
   
begin
   write('input size of array (row, col): ');
   readln(row, col);
   writeln;
   
   if (row = 0) or (col = 0) then
   begin
      writeln('all values must be greater than zero');
      exit;
   end;

   setlength(arr, row, col);
   
   Fill(arr);
   Print(arr);

   pos:= GetPosMaxValue(arr);
   
   writeln;
   writeln('arr[', pos.row+1, ',', pos.col+1, '] = ', arr[pos.row, pos.col]);
   writeln;
   
   Delete(arr, pos);
   Print(arr);

   readln;
end.

Присоединённый файл ( Кол-во скачиваний: 2 )

archive.7z 20,88 Kb

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

Я знаю, что ничего не знаю© Сократ
user posted image

leta

Дата 28.2.2012, 09:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо Вам большое!
Подскажите еще, пожалуйста, есть возможность представить программу в графическом виде? как вот эта http://saveimg.ru/show-image.php?id=7353f9...dd085020d21127b

Это сообщение отредактировал(а) leta - 28.2.2012, 10:34

t_gran

Дата 28.2.2012, 10:52 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

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

leta, у меня, к сожалению, нет такой возможности, ибо самого Delphi у меня нет и никогда не было. А код, который я вам представил, компилировал во free pascal-е.

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

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