Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.67
ulala
1 / 1 / 0
Регистрация: 28.10.2009
Сообщений: 32
#1

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

29.11.2009, 13:28. Просмотров 1467. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2009, 13:28
Здравствуйте! Я подобрал для вас темы с ответами на вопрос TurboPascal: графы, матрицы смежности и матрицы инцидентности. (Pascal):

Списки смежности из матрицы - Pascal
Здравствуйте,помогите пожалуйста написать программу,спасибо.Напишите программу, которая строит списки смежности для каждой вершины графа на...

Построение матрицы смежности. - Pascal
Условие: Внутрь квадрата с координатами левого нижнего угла (0,0) и координатами верхнего правого угла (100, 100) поместили N (0<N<31)...

Графы: Проверка смежности вершин - Pascal
Ребят помогите пожалуйста,просто выручите очень сильно ,вариант в самом низу описан. Нужно сделать на паскале абц нэт. Реализуйте в виде...

Найти минимальный элемент матрицы и добавить его к максимальному элементу матрицы - Pascal
6)Найти минимальный элемент матрицы и добавить его к максимальному элементу матрицы.

Найти седловой элемент матрицы и упорядочить элементы строк матрицы по возрастанию - Pascal
Дана целочисленная матрица размера M x N. 1) Найти элемент, являющийся максимальным в свое строке и минимальным в своем столбце. Если...

Вычеркнуть строку и столбец матрицы, содержащие минимальное значение этой матрицы. - Pascal
Добрый день. Необходимо вычеркнуть x строку и k столбец из матрицы, содержащие минимальное значение этой матрицы.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2009, 13:28
Привет! Вот еще темы с ответами:

Поменять первые элементы столбцов матрицы с минимальными элементами строк матрицы - Pascal
uses crt; const n = 4; m = 5; var matrix: array of integer; max, min, i, j, k: integer; begin clrscr; ...

Найти произведение элементов матрицы расположенных на главной диагонали матрицы А - Pascal
Матрица А (4,4) Помогите пожалуйста!

Из матрицы получить массив, состоящий из средних арифметических строк матрицы - Pascal
Добрый день! Помогите найти ошибку в коде. Задание: Из заданной пользователем матрицы получить массив, состоящий из средних...

Массив: Для матрицы B (12;12) найти сумму элементов в строках матрицы - Pascal
Для матрицы B (12;12) найти сумму элементов в строках матрицы. f(x)=1-x+sinx-1. x принадлежит . когда запускаю программу показывает очень...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.