Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2009, 10:11   #1
ulala
Пользователь
 
Аватар для ulala
 
Регистрация: 18.09.2009
Сообщений: 62
Стрелка TurboPascal: граф, матрица смежности и матрица инцидентности.

Доброго времени суток.
Помогите мне пожалуйста.
Как в паскале с помощью матрицы построить матрицу инцидентности?
Вот матрица смежности написанная мной (преподаватель одобрил):
Код:
program noya26;
uses crt;
var
G,X,F1,F2,F3,F4,F5,F6: set of byte;
R: array [1..6]  of array [1..6] of byte;
i,j: byte;
begin
clrscr;
X:=[1,2,3,4,5,6];
F1:=[1,2];
F2:=[3];
F3:=[2,4];
F4:=[1,2,6];
F5:=[];
F6:=[];
for i:=1 to 6 do
for j:=1 to 6 do begin
if j in F1 then R[1,j]:=1
else R[1,j]:=0;
if j in F2 then R[2,j]:=1
else R[2,j]:=0;
if j in F3 then R[3,j]:=1
else R[3,j]:=0;
if j in F4 then R[4,j]:=1
else R[4,j]:=0;
if j in F5 then R[5,j]:=1
else R[5,j]:=0;
if j in F6 then R[6,j]:=1
else R[6,j]:=0;
end;
for i :=1 to 6 do begin
for j:=1 to 6 do
write(R[i,j],' ');
writeln;
end;
readln;
end.
А как сделать матрицу инцидентности я не знаю Может формула какая-нибудь есть или зависимость S от R?
Ну,как?.. Твоё коллективное сознание уловило Message или ты по-прежнему считаешь себя Избранным?..
ulala вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TurboPascal: графы, матрицы смежности и матрицы инцидентности. ulala Помощь студентам 1 03.03.2011 19:28
Непонятки с DirectX (матрица поворота, камера, матрица проекции) ROD Общие вопросы C/C++ 2 17.09.2010 17:00
Графы, матрица смежности. SteRN89 Помощь студентам 1 14.01.2009 08:11