var a:array [1..4,1..4] of integer;
i,j:integer;
BEGIN
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);
for i:=1 to 4 do
for j:=1 to 4 do
if a[i,j]=a[j,i] then
else
begin
halt(1);
end;
writeln('true');
END.
Задача
Примечание: Если значение ячейки a(i,j) равно a(j,i) то таблица симетрична.
Примеры
Входные данные | Выходные данные
1 2 3| true
2 1 3|
3 2 1|
=====+=============
1 3 2| false
3 2 1|
5 3 2|
Цитата:
Originally posted by sql-injection
Требуется ввести данные в таблицу (кол-во колонок и столбцов равны, и их кол-во колеблется от 1 до 6). Далее нужно проверить, симетрична она или нет.
Примечание: Если значение ячейки a(i,j) равно a(j,i) то таблица симетрична.
Примеры
Входные данные | Выходные данные
1 2 3| true
2 1 3|
3 2 1|
=====+=============
1 3 2| false
3 2 1|
5 3 2|
Требуется ввести данные в таблицу (кол-во колонок и столбцов равны, и их кол-во колеблется от 1 до 6). Далее нужно проверить, симетрична она или нет.
Примечание: Если значение ячейки a(i,j) равно a(j,i) то таблица симетрична.
Примеры
Входные данные | Выходные данные
1 2 3| true
2 1 3|
3 2 1|
=====+=============
1 3 2| false
3 2 1|
5 3 2|
Так в чем проблема? Задачка совсем легкая же.
Цитата:
Originally posted by sql-injection
Требуется ввести данные в таблицу (кол-во колонок и столбцов равны, и их кол-во колеблется от 1 до 6). Далее нужно проверить, симетрична она или нет.
Примечание: Если значение ячейки a(i,j) равно a(j,i) то таблица симетрична.
Примеры
Входные данные | Выходные данные
1 2 3| true
2 1 3|
3 2 1|
=====+=============
1 3 2| false
3 2 1|
5 3 2|
Требуется ввести данные в таблицу (кол-во колонок и столбцов равны, и их кол-во колеблется от 1 до 6). Далее нужно проверить, симетрична она или нет.
Примечание: Если значение ячейки a(i,j) равно a(j,i) то таблица симетрична.
Примеры
Входные данные | Выходные данные
1 2 3| true
2 1 3|
3 2 1|
=====+=============
1 3 2| false
3 2 1|
5 3 2|
Код:
Цитата:
Originally posted by quakersasha
Код:
var a:array [1..4,1..4] of integer;
i,j:integer;
BEGIN
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);
for i:=1 to 4 do
for j:=1 to 4 do
if a[i,j]=a[j,i] then
else
begin
halt(1);
end;
writeln('true');
END.
i,j:integer;
BEGIN
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);
for i:=1 to 4 do
for j:=1 to 4 do
if a[i,j]=a[j,i] then
else
begin
halt(1);
end;
writeln('true');
END.
Не пойдет, во 2-м цикле надо увеличение начального значения.
Цитата:
Originally posted by sql-injection
Требуется ввести данные в таблицу (кол-во колонок и столбцов равны, и их кол-во колеблется от 1 до 6). Далее нужно проверить, симетрична она или нет.
Примечание: Если значение ячейки a(i,j) равно a(j,i) то таблица симетрична.
Примеры
Входные данные | Выходные данные
1 2 3| true
2 1 3|
3 2 1|
=====+=============
1 3 2| false
3 2 1|
5 3 2|
Требуется ввести данные в таблицу (кол-во колонок и столбцов равны, и их кол-во колеблется от 1 до 6). Далее нужно проверить, симетрична она или нет.
Примечание: Если значение ячейки a(i,j) равно a(j,i) то таблица симетрична.
Примеры
Входные данные | Выходные данные
1 2 3| true
2 1 3|
3 2 1|
=====+=============
1 3 2| false
3 2 1|
5 3 2|
Как я понял матрица симетрична, если для всех i,j выполняеться a(i,j)=a(j,i). Вот код такой задачки, если что то не так уточните условие (просто исходя с такого условия первая матрица примера - не симетрична a(2,3)<>a(3,2)).
var i,j,n:byte;
a:array[1..6,1..6] of longint;
fl:boolean;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do read(a[i,j]);
fl:=false;
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]<>a[j,i] then begin fl:=true; break; end;
end;
if fl then writeln('No') else writeln('Yes');
end.
Цитата:
Originally posted by sql-injection
Требуется ввести данные в таблицу (кол-во колонок и столбцов равны, и их кол-во колеблется от 1 до 6). Далее нужно проверить, симетрична она или нет.
Примечание: Если значение ячейки a(i,j) равно a(j,i) то таблица симетрична.
Примеры
Входные данные | Выходные данные
1 2 3| true
2 1 3|
3 2 1|
=====+=============
1 3 2| false
3 2 1|
5 3 2|
Требуется ввести данные в таблицу (кол-во колонок и столбцов равны, и их кол-во колеблется от 1 до 6). Далее нужно проверить, симетрична она или нет.
Примечание: Если значение ячейки a(i,j) равно a(j,i) то таблица симетрична.
Примеры
Входные данные | Выходные данные
1 2 3| true
2 1 3|
3 2 1|
=====+=============
1 3 2| false
3 2 1|
5 3 2|
bSimmetr : boolean;
table = array[1..3] of integer;
i, j : integer;
begin
bSimmetr := true;
writeln('Vvedite znachenia tablici:');
for i := 1 to 3 do
begin
for j := 1 to 3 do
begin
readln(table[i, j]);
end;
end;
for i := 1 to 3 do
begin
for j := 1 to 3 do
begin
if table[i, j] <> table[j, i] then
begin
bSimmetr := false;
break;
end;
end;
end;
if bSimmetr = false then
begin
writeln('Matrica nesemitrichna!');
end
else writeln('Matrica semitrichna!');
read;
end.
Цитата:
Originally posted by Franky
Не пойдет, во 2-м цикле надо увеличение начального значения.
Не пойдет, во 2-м цикле надо увеличение начального значения.
Говришь не пойдет... жжёшь, чувак!:!!!:
Сейчас не помгю ,но там какая-то фигня со сравнением получается.