Использование процедур и функций, разбор задачи Опции

[valeral]

Дана задача
Пусть дана матрица A(N x N), а симметричная строка – такая строка, у которой все ее элементы симметричны относительно ее центрального элемента. Воспользуйтесь логической функцией, определяющей симметричность i-й строки, а также функцией, подсчитывающей количество таких строк в заданной матрице.

Что я сделал

program One;
const
    N = 100;
    M = 10;
var
    A : array[1..N, 1..M] of real;
    i, Count, Row, MaxCount : integer;

{ Ввод исходной матрицы }
procedure InputMatrix;
    var
        i, j : integer;
begin
    writeln( ‘+++ Введите исходную матрицу +++’ );
    for i := 1 to N do
        for j := 1 to M do
          begin
            write( ‘A[’, i, ‘;’, j, ‘] = ’ );
            readln( A[i, j] );
          end;
end;
{ Вывод матрицы на экран }
procedure PrintMatrix;
    var
        i, j : integer;
begin
    writeln( ‘+++ Матрица A +++’ );
    for i := 1 to N do
      begin
        for j := 1 to M do
            write( A[i,j], ‘  ’ );
        writeln;
      end;
end;

Потом проверка на симметричность

{ Проверка, является ли число симметричным }
function TestSym( x : integer ) : boolean;
    var
        y, z : integer;
begin
    y := 0;
    z := x;

    while z > 0 do
      begin
        y := y * 10 + z mod 10;
        z := z div 10;
      end;

    TestSym := x = y;
end;

потом подсчет

{ Подсчёт в строке симметричных чисел }
function CalculateRow( x : integer ) : integer;
    var
        i, Count : integer;
begin
    Count := 0;

    for i := 1 to M do
        if TestSym( A[x,i] ) then Count := Count + 1;

    CalculateRow := Count;
end;
begin
    InputMatrix;
      writeln; writeln;
    PrintMatrix;

    MaxCount := 0;
    Row := 0;

    for i := 1 to N do
      begin
        Count := CalculateRow( i );

        if Count > MaxCount then
          begin
            MaxCount := Count;
            Row := i;
          end;
      end;

    writeln; writeln;

    if Row = 0 then
        writeln( ‘Нет строк с симметричными числами’ );
    else
        writeln( ‘Строка с макс. кол-вом сим. чисел: ’, Row );
end.

Дальше ступор включился полный, чё делать ХЕЗ

[valeral]

уже второй час долблюсь с этой задачей. Malice, Volvo прошу вас добейте её и я отстану от вас

Сообщение отредактировано: valeral - 2.06.2006 14:51