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

Тема в разделе "Pascal and Delphi", создана пользователем Izekil, 17 дек 2012.

Статус темы:
Закрыта.
  1. Izekil

    Izekil Гость

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

    sinkopa Well-Known Member

    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    1. На каком языке задача? Паскаль или Delphi?
    2. Вы не указали каким способом матрица должна заполняться элементами.
    Общий принцип следующий:
    Код (Delphi):
    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.
     
Загрузка...
Похожие Темы - Двухмерные Массивы
  1. Искушенный
    Ответов:
    0
    Просмотров:
    432
  2. Искушенный
    Ответов:
    1
    Просмотров:
    425
  3. Искушенный
    Ответов:
    1
    Просмотров:
    393
  4. Rpp
    Ответов:
    1
    Просмотров:
    812
  5. romanovbadboy2
    Ответов:
    0
    Просмотров:
    670
Статус темы:
Закрыта.

Поделиться этой страницей