VPF::[Pascal] Определить номер столбца матрицы

Recklessly

Дата 11.12.2013, 22:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите пожалуйста!
Определить номер первого столбца матрицы, в котором есть хотя бы один отрицательный элемент.

darkart

Дата 11.12.2013, 23:57 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


uses
  crt;
const
  ROWS = 3;
  COLS = 4;
type
  TMatrix = array [ 1..ROWS, 1..COLS ] of integer;

procedure ReadMatrix( var matrix: TMatrix );
var
  i, j: integer;
begin
  for i:= 1 to ROWS do
    for j := 1 to COLS do
      read( matrix[ i ][ j ] );
end;

procedure PrintMatrix( var matrix: TMatrix );
var
  i, j: integer;
begin
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
      write( matrix[ i ][ j ]:3, ' ' );
    writeln;
  end;
end;

function FindNegative( var matrix: TMatrix; col : integer ): boolean;
var
  i: integer;
  found : boolean;
begin
  i := 1;
  while( i <= ROWS ) and ( not found ) do
  begin
    found := matrix[ i ][ col ] < 0;
    inc( i );
  end;
  FindNegative := found;
end;

function FirstNegativeColumn( var matrix: TMatrix ): integer;
var
  col: integer;
begin
  col := 1;

  while ( col <= COLS ) and ( not FindNegative( matrix, col ) ) do
    inc( col );

  if col > COLS then
    col := 0;

  FirstNegativeColumn := col;
end;

var
  matrix: TMatrix;
  res: integer;

begin
  clrscr;

  writeln( 'Matrix[ ', ROWS, ' x ', COLS,' ]:' );

  ReadMatrix( matrix );

  writeln( 'Source matrix:' );
  PrintMatrix( matrix );

  res := FirstNegativeColumn( matrix );

  writeln( 'Result:' );

  if( res > 0 ) then
    writeln( 'first negative column - ', res )
  else
    writeln( 'can not find negative numbers' );

end.

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