Проверить, является матрица симметрической |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Проверить, является матрица симметрической |
Barbudo |
Сообщение
#1
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: ламо Репутация: 0 |
Задание:
матрица D(15,15). Проверить, является ли она симметрической. Вывести на экран соответствующее сообщение. как я понел нужно доказать чтоб в этой матрице первый и последний столбец были равны второй с начала и второй с конца тоже равны, третий третиму с конца, четыёртый четвёртому с конца, всё относительно цента - тоесть 8 столбца. хоть на рандоме получить такую матрицу нереально, но всёравно как это написать?( ну или можно относительно других элементов это доказать. Сообщение отредактировано: Barbudo - |
Barbudo |
Сообщение
#2
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: ламо Репутация: 0 |
вот помогли с кодом
Код Prigram matr; CONST N=15; var i,j : byte; Matr : array [1..N,1..N] of integer; BEGIN for i:=1 to N do for j:=1 to N do readln(Matr[i,j]); for i:=1 to N do begin for j:=i to (N div 2) do if Matr[i][j]<>Matr[i][N-j+1] then begin writeln('ne simetrichnaj'); halt(0) end; end; writeln('simetrichnaj'); END. но какаято ошибка, выдаёт - "invalid numeric format" напротив строчки for j:=1 to 15 do readln(Matr[i,j]); хелп в чом трабла? Сообщение отредактировано: Barbudo - |
Текстовая версия | 4.05.2024 19:13 |