 Задача на проверку матрицы на симметричность относительно побочной диагонали, СРОЧНО!!!! |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| djdenisoff |
  28.09.2011 20:08
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация:  0   |
Ребята,помогите!!!К пятнице надо сделать задачу!!!!!
Условие:проверить матрицу на симметричность относительно главной диагонали.Матрица вводится с текстового файла.Решить с помощью динамических переменных. Прикрепленные файлы 
peresdacha.pas ( 1.25 килобайт )
Кол-во скачиваний: 228 |
   |
 
|
| Lapp |
28.09.2011 23:18
Сообщение
#2
|
 Уникум  Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
А в чем, собственно, проблема?
-------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|
|
|
| djdenisoff |
29.09.2011 8:07
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Цитата(Lapp @ 28.09.2011 23:18)  А в чем, собственно, проблема? Надо написать процедуру Ворк,написать её не знаю как....Проблема в том,что надо придумать формулу...Помогите пожалуйста |
|
|
|
| Lapp |
29.09.2011 9:00
Сообщение
#4
|
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Цитата(djdenisoff @ 29.09.2011 9:07) Надо написать процедуру Ворк,написать её не знаю как....Проблема в том,что надо придумать формулу...Помогите пожалуйста Это можно. Только не процедуру, функцию. (в этом коде ошибка, исправленный см. ниже) type
tArr= array of array of integer;
function Symmetric(a: tArr): boolean;
var
i,j: integer;
begin
for i:=2 to Length(a) do
for j:=1 to i-1 do
if a[i,j]<>a[j,i] then begin
Symmetric:= false;
exit
end;
Symmetric:= true
end;
...
Если не в курсе про динамические массивы - спрашивай, расскажем. Или переделывай на статические.. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|
|
|
| IUnknown |
29.09.2011 10:58
Сообщение
#5
|
 a.k.a. volvo877 Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
Андрей, вылета не боишься на Length(a) (при использовании дин. массивов)?
 |
|
|
|
| djdenisoff |
29.09.2011 17:01
Сообщение
#6
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Цитата(Lapp @ 29.09.2011 9:00) Это можно. Только не процедуру, функцию. type
tArr= array of array of integer;
function Symmetric(a: tArr): boolean;
var
i,j: integer;
begin
for i:=2 to Length(a) do
for j:=1 to i-1 do
if a[i,j]<>a[j,i] then begin
Symmetric:= false;
exit
end;
Symmetric:= true
end;
...
Если не в курсе про динамические массивы - спрашивай, расскажем. Или переделывай на статические.. было бы лучше процедуру написать...так требует препод....помогите |
|
|
|
| sheka |
29.09.2011 17:30
Сообщение
#7
|
 Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
procedure qwerty(a: tArr, var Symmetric: boolean);
Также учти пожелания Volvo. |
|
|
|
| djdenisoff |
29.09.2011 20:32
Сообщение
#8
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Помогите.программа идёт.но выводит цифру из матрицы и ответ.надо чтобы выводило только ответ.Условия задачи те же.
Сообщение отредактировано: djdenisoff - 29.09.2011 21:23 Прикрепленные файлы
f.txt ( 19 байт )
Кол-во скачиваний: 222
P.PAS ( 1.42 килобайт )
Кол-во скачиваний: 219 |
|
|
|
| Lapp |
30.09.2011 0:27
Сообщение
#9
|
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Цитата(IUnknown @ 29.09.2011 11:58) Андрей, вылета не боишься на Length(a) (при использовании дин. массивов)? Oops! Sorry.. Спасибо, Володь, +1 )) Исправленный код: type
tArr= array of array of integer;
function Symmetric(a: tArr): boolean;
var
i,j: integer;
begin
for i:=1 to Length(a) do
for j:=0 to i-1 do
if a[i,j]<>a[j,i] then begin
Symmetric:= false;
exit
end;
Symmetric:= true
end;
...
Цитата было бы лучше процедуру написать...так требует препод....помогите Ты же просил "придумать тебе формулу"! Тебе дали ГОРАЗДО БОЛЬШЕ. Извини, если ты не можешь переделать функцию в процедуру, интнрес к твоей персоне испаряется.. Асталависта, учи язык.-------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|
|
|
| djdenisoff |
30.09.2011 19:32
Сообщение
#10
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Цитата(Lapp @ 30.09.2011 0:27) Oops! Sorry.. Спасибо, Володь, +1 )) Исправленный код: type
tArr= array of array of integer;
function Symmetric(a: tArr): boolean;
var
i,j: integer;
begin
for i:=1 to Length(a) do
for j:=0 to i-1 do
if a[i,j]<>a[j,i] then begin
Symmetric:= false;
exit
end;
Symmetric:= true
end;
...
Ты же просил "придумать тебе формулу"! Тебе дали ГОРАЗДО БОЛЬШЕ. Извини, если ты не можешь переделать функцию в процедуру, интнрес к твоей персоне испаряется.. Асталависта, учи язык. Я уже разобрался)))спасибо за помощь огромное |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 20:39 |