VPF::[Delphi] Матрица с максимальным элементом

санекСамара

Дата 14.12.2010, 19:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Матрица С в КАЖДОЙ строке макс. элемент заменить 0.

darkart

Дата 15.12.2010, 10:37 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


program MaxToZero;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  MATRIX_ROWS = 3;{количество строк матрицы}
  MATRIX_COLS = 4;{количество столбцов матрицы}
  ZERO = 0;{ноль}

type
  TRow = array[ 1..MATRIX_COLS ] of integer;{тип строка матрицы}
  TMatrix = array[ 1..MATRIX_ROWS ] of TRow;{тип матрица}

{процедура ввода матрицы}
procedure InputMatrix( var matrix : TMatrix );
var
  i, j : integer;
begin
  for i := 1 to MATRIX_ROWS do
    for j := 1 to MATRIX_COLS do
      read( matrix[ i, j ] );
  readln;
end;

{процедура печати матрицы}
procedure PrintMatrix( var matrix : TMatrix );
var
  i, j : integer;
begin
  for i := 1 to MATRIX_ROWS do
  begin
    for j := 1 to MATRIX_COLS - 1 do
      write( matrix[ i, j ], ' ' );
    writeln( matrix[ i, MATRIX_COLS ] );
  end;
end;

{функция возвращает максимальный элемент строки матрицы}
function GetRowMax( var row : TRow ) : integer;
var
  i, max : integer;
begin
  max := row[ 1 ];{инициализация максимума первым элементом строки}
  for i := 2 to MATRIX_COLS do{для последующих элементов строки}
    if row[ i ] > max then{если текущий элемент больше максимального}
      max := row[ i ];{запоминаем новый максимум}
  GetRowMax := max;{возвращаем значение функции}
end;

{процедура замены значений value строки матрицы row на значение toValue}
procedure ChangeRowValueTo( var row : TRow; value, toValue : integer );
var
  i : integer;
begin
  for i := 1 to MATRIX_COLS do{для каждого элемента строки}
    if row[ i ] = value then{если текущий элемент равен искомому}
      row[ i ] := toValue;{заменяем значение}
end;

{процедура заполнения максимальных элементов строк значениями value}
procedure FillMaxRowsValuesTo( var matrix : TMatrix; toValue : integer );
var
  i, max : integer;
begin
  for i := 1 to MATRIX_ROWS do{для каждой строки матрицы}
  begin
    max := GetRowMax( matrix[ i ] );{находим максимум строки}
    ChangeRowValueTo( matrix[ i ], max, toValue );{меняем все максимумы строки на значение toValue}
  end;
end;

var
  c : TMatrix;

begin
  writeln( 'Please enter matrix( ', MATRIX_ROWS, ' x ', MATRIX_COLS, ' ):' );
  InputMatrix( c );{ввод матрицы}
  writeln( 'Source matrix:' );
  PrintMatrix( c );{печать исходной матрицы}
  FillMaxRowsValuesTo( c, ZERO );{заполнение максимальных элементов строк нулями}
  writeln( 'Result matrix:' );
  PrintMatrix( c );{печать матрицы-результата}
  readln;{ожидание ввода}
end.

санекСамара

Дата 15.12.2010, 21:08 (ссылка)

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

Загрузка ...

Новичок

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

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

а вы не могли бы решить эту задачу с компанентами SpinGrid и spinEdit!Спасибо

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