|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.11.2009, 13:26 | #1 |
Пользователь
Регистрация: 18.09.2009
Сообщений: 62
|
TurboPascal: графы, матрицы смежности и матрицы инцидентности.
Добрый день, уважаемые программисты.
Помогите мне пожалуйста. Задание: 1. Исходный граф представить в виде G=(Х,Г) 2. Разработать программу, вводящую граф в виде множеств Х,Г и преобразующую его в матричные фрмы (матрицы S и R). Матрица S: U1 U2 U3 U4 U5 U6 U7 U8 x1+-1 1 0 0 0 -1 0 0 x2 0 -1 1 -1 0 0 0 -1 x3 0 0 -1 1 1 0 0 0 x4 0 0 0 0 -1 1 1 1 x5 0 0 0 0 0 0 0 0 x6 0 0 0 0 0 0 -1 0 Матрица R: x1 x2 x3 x4 x5 x6 x1 1 1 0 0 0 0 x2 0 0 1 0 0 0 x3 0 1 0 1 0 0 x4 1 1 0 0 0 1 x5 0 0 0 0 0 0 x6 0 0 0 0 0 0 большую часть задания я выполнила, вот код: Код:
Но вот с матрицей S проблемы... Преподаватель сказал что её можно получить из матрицы R... Но как?
Ну,как?.. Твоё коллективное сознание уловило Message или ты по-прежнему считаешь себя Избранным?..
|
03.03.2011, 19:28 | #2 |
Новичок
Джуниор
Регистрация: 03.03.2011
Сообщений: 1
|
Попробуй это
program graph;
uses crt; var A: array [1..5,1..5] of integer; i, j: integer; begin clrscr; A[1,2]:=1; A[1,3]:=1; A[3,2]:=1; A[3,4]:=1; A[4,3]:=1; A[5,2]:=1; A[5,3]:=1; A[5,4]:=1; for i:=1 to 5 do begin for j:=1 to 5 do write(a[i,j]); writeln; end; write('U='); for i:=1 to 5 do for j:=1 to 5 do begin if A[i,j]=1 then write('(x',i,'x',j,') '); end; writeln; writeln; for i:= 1 to 5 do begin write('Gx',i,'={'); for j:=1 to 5 do if A[i,j] = 1 then write('x',j); writeln('}'); end; writeln; for j:= 1 to 5 do begin write('G(x-1)',j,'={'); for i:=1 to 5 do if A[i,j] = 1 then write('x',i); writeln('}'); end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Обращение матрицы методом союзной матрицы | dofmat | Помощь студентам | 6 | 03.10.2011 15:01 |
Ввод из файла,меню,матрицы turbopascal. | Amenus | Помощь студентам | 2 | 17.06.2009 22:33 |
Графы, матрица смежности. | SteRN89 | Помощь студентам | 1 | 14.01.2009 08:11 |