TurboPascal: графы, матрицы смежности и матрицы инцидентности.

@ulala · Регистрация: 28.10.2009

Author24 — интернет-сервис помощи студентам

Добрый день, уважаемые программисты.
Помогите мне пожалуйста.
Задание:
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
большую часть задания я выполнила, вот код:
Код:

Код

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.

Матрицу R выводит, преподаватель одобрил, сказал что всё верно.
Но вот с матрицей S проблемы... Преподаватель сказал что её можно получить из матрицы R... Но как?

@ulala 1 / 1 / 0 Регистрация: 28.10.2009 Сообщений: 32
		1
	TurboPascal: графы, матрицы смежности и матрицы инцидентности. 29.11.2009, 13:28. Показов 2395. Ответов 0 Метки нет (Все метки) Добрый день, уважаемые программисты. Помогите мне пожалуйста. Задание: 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 большую часть задания я выполнила, вот код: Код: Код 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. Матрицу R выводит, преподаватель одобрил, сказал что всё верно. Но вот с матрицей S проблемы... Преподаватель сказал что её можно получить из матрицы R... Но как? 0

	29.11.2009, 13:28

Опции темы