проверка матрицы на симметричность Опции

[Татьяна]

задание

проверить, симметрична ли данная матрица относительно побочной диагонали. Ввод матрицы из файла и вывод результатов в файл.

я написала программу

program Lab7;
uses crt;
const nmax=30; nl=#13#10; delta=0.000001;
type matr=array[1..nmax, 1..nmax] of real;
vect=array[1..nmax] of real;
var a,b :matr;
    x :vect;
    g,n,m,l,i,j:integer;
    fin,fout:text;
    s:real;
    begin
     g:=0;
     assign(fin, 'e:\s10222\1.txt');
    reset(fin);
    assign(fout,'e:\s10222\F2.txt');
    rewrite(fout);
    read(fin, n);
    for i:=1 to n do
     for j:=1 to n do
      read(fin, a[i,j]);
    for i:=1 to n do
     for j:=1 to n do
     If abs(a[n-i,n-j]-a[n-j,n-i])<=delta
     then g:=g+1;
     If g=n*n then write(fout,'Matriza simmetrichna otnositelno pobochnoi diagonali!')
    else
      write(fout,'Matriza ne simmetrichna otnositelno pobochnoi diagonali!');
    close(fin);
    close(fout);
    end.

Но она не работает!! Помогите найти ошибку!!! и справить)))

Сообщение отредактировано: volvo - 18.12.2005 17:58

[volvo]

Татьяна,
У тебя условие неправильное... Нужно вот так:

if (a[i, j] - a[n-j+1, n-i+1]) <= delta then ...

[Гость]

Татьяна,
У тебя условие неправильное... Нужно вот так:

if (a[i, j] - a[n-j+1, n-i+1]) <= delta then ...

извите, а вам не сложно было бы проверить....а то у меня паскаля нет....только в институте!

[volvo]

Если я написал, что нужно изменить, то наверное проверил, как ты думаешь?

[Гость]

спасибо огромное! често......оень-очень благодарна! Вы меня просто спасли)))))