Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 02.12.2009, 11:11   #1
ulala
Форумчанин
 
Аватар для ulala
 
Регистрация: 18.09.2009
Сообщений: 62
Репутация: 10
Стрелка 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?
ulala вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


23:46.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru