Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Задача

2.6K
13 декабря 2005 года
sql-injection
46 / / 22.03.2005
Требуется ввести данные в таблицу (кол-во колонок и столбцов равны, и их кол-во колеблется от 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|
6.3K
13 декабря 2005 года
Neutral
76 / / 13.12.2005
Цитата:
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|



Так в чем проблема? Задачка совсем легкая же.

9.6K
14 декабря 2005 года
quakersasha
23 / / 21.10.2005
Цитата:
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|


Код:
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.
325
14 декабря 2005 года
Franky
723 / / 10.08.2005
Цитата:
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.


Не пойдет, во 2-м цикле надо увеличение начального значения.

6.3K
14 декабря 2005 года
Neutral
76 / / 13.12.2005
Цитата:
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|



Как я понял матрица симетрична, если для всех 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.

15K
14 декабря 2005 года
ksana
8 / / 14.12.2005
Цитата:
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|

15K
14 декабря 2005 года
ksana
8 / / 14.12.2005
var
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.
9.6K
16 декабря 2005 года
quakersasha
23 / / 21.10.2005
Цитата:
Originally posted by Franky
Не пойдет, во 2-м цикле надо увеличение начального значения.


Говришь не пойдет... жжёшь, чувак!:!!!:

325
16 декабря 2005 года
Franky
723 / / 10.08.2005
Сейчас не помгю ,но там какая-то фигня со сравнением получается.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог