Двухмерные Массивы

  • Автор темы Izekil
  • Дата начала
Статус
Закрыто для дальнейших ответов.
I

Izekil

Гость
#1
Помогите пожалуйста закрыть атестацию, вот задачка :
В данной действительной квадратной матрице порядка N*N:найти строки, элементы которых упорядочены по возрастанию.
 

sinkopa

Well-Known Member
17.06.2009
344
9
#2
Помогите пожалуйста закрыть атестацию, вот задачка :
В данной действительной квадратной матрице порядка N*N:найти строки, элементы которых упорядочены по возрастанию.
1. На каком языке задача? Паскаль или Delphi?
2. Вы не указали каким способом матрица должна заполняться элементами.
Общий принцип следующий:
Код:
program CalcChars;

const
N = 10;
var
matrix: array[1..N,1..N] of Real;
I,J,k: Integer;
begin

for I := 1 to N do
begin
for J := 1 to N do
begin
// matrix[I,J] := ... // как нибудь заполняем матрицу данными
end;
end;

for I := 1 to N do
begin
// сравниваем (построчно) J-тый элемент с предыдущим (J-1)
k := 0;
for J := 2 to N do
if (matrix[I,J] >= matrix[I,J-1]) then
Inc(k);

if (k = N) then // Если k = N, значит все элементы в строке упорядоченны по возрастанию.
begin			// т.е. кажды J-тый элемент больше (или равен) предыдущему

// выводим строчку (через запятую)
Write(matrix[I,1]);
for J := 2 to N do
begin
Write(',', matrix[I,J]);
end;
Writeln;
end;
end;

end.
 
Статус
Закрыто для дальнейших ответов.