народ помогите написать программу

[ruslan09-93]

Написать программу определения симметричности матрицы. Функция должна возвращать значение булевского типа.

[SNUPY]

народ помогите написать программу

Помочь поможем, только в чем проблема в алгоритме? или же у вас есть алгоритм решения, но вы не знаете как его перевести на конкретный язык программирования?
ЗЫ желательно было бы выложить свои наработки.

[ruslan09-93]

у меня нету никаких наработок. в школе нам паскаль почти не преподовали а в универе надо составлять а я не знаю как.

[SNUPY]

Так в инете полно учебных пособий по Паскалю скачай да почитай. Или скорее всего лекции есть

[MalexG]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  N = 10;  // Размерность массива
type
  TArr = array[0..N-1, 0..N-1] of word;

var
  Matrix: TArr;

function IsSymmetry(Arr: TArr): boolean;
var
  i, j: byte;
  flag: boolean;
begin
  flag := true;
  for j := 2 to N-1 do
    for i := 1 to j-1 do
    begin
      flag := Arr[i, j] = Arr[j, i];
      if not flag then
        break;
    end;
  IsSymmetry := flag;
end;

begin
  // Инициализация массива
  ...

  case IsSymmetry(Matrix) of
    true:   writeln('Массив симметричен');
    false:  writeln('Массив не симметричен');
  end;
  readln;
end.

[ruslan09-93]

Сообщение от MalexG

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  N = 10;  // Размерность массива
type
  TArr = array[0..N-1, 0..N-1] of word;

var
  Matrix: TArr;

function IsSymmetry(Arr: TArr): boolean;
var
  i, j: byte;
  flag: boolean;
begin
  flag := true;
  for j := 2 to N-1 do
    for i := 1 to j-1 do
    begin
      flag := Arr[i, j] = Arr[j, i];
      if not flag then
        break;
    end;
  IsSymmetry := flag;
end;

begin
  // Инициализация массива
  ...

  case IsSymmetry(Matrix) of
    true:   writeln('Массив симметричен');
    false:  writeln('Массив не симметричен');
  end;
  readln;
end.

большое спасибо))) ты меня просто спас