IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> симметрия матрицы
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Женский
Реальное имя: Olia

Репутация: -  0  +


В чем ошибка?????Подскажите...и если что исправьте) плиз))
условие: Дана квадратная матрица А порядка n. Проверить, является ли данная матрица симметричной.


Код
program;
uses
crt;
VAr
a: array [1..100,1..100] of real;
    i,j,n:integer;
procedure enter;
begin
writeln ('введите  n');
readln (n);
writeln ('введите ваш массив');
for i:=1 to n do
for j:=1 to n do
readln (a[i,j]);
end;
procedure exit;
begin
for i:=1 to n do
for j:=1 to n do
writeln (a[i,j]);
end;
procedure proverka;
begin
for i:=1 to n do
for j:=1 to n do
if a[i,j]<>a[j,i] then
begin
clrscr;
exit;
writeln ('матрица не симметрична ');
readkey;
halt;
end;
end;
BEGIN
clrscr;
enter;
proverka;
clrscr;
exit;
writeln ('матрица симметрична');
readkey;
END.


Сообщение отредактировано: SayMYname -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
Проверить, является ли данная матрица симметричной.
Симметричной относительно чего?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Женский
Реальное имя: Olia

Репутация: -  0  +


это все условие!!!
диагонали наверное))))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


exit;
writeln ('матрица не симметрична ');
???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Женский
Реальное имя: Olia

Репутация: -  0  +


ты в том плане что функция EXIT является стандартной??? надо заменить??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Оззя в том плане, что после выхода - как то не очень хорошо печатать результат... Обычно это делается перед выходом из программы... А давать имена процедурам, совпадающие с общепринятыми идентификаторами - лучше не надо...

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Женский
Реальное имя: Olia

Репутация: -  0  +


ну ясн....

Добавлено через 4 мин.
а так все нормально в программе???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






P.S. Кстати, твоя программа прекрасно определяет симметричность относительно главной диагонали:
N = 4 и матрица

1 1 2 1
1 1 1 1
2 1 1 1
1 1 1 1
выдают "матрица симметрична"...
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.10.2020 18:57
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name