Вниз
Скачать: CL | DM;

Матрица в памяти   Найти похожие ветки 

← →
xman   (2004-06-09 11:16) [0]

Ув. Мастера, помогоите, очень надо.
Мне нужно написать программу где содержится матрица соединений графа, которая нахождится в памяти

продолжение вопроса(не важно)
узнать количество ребер которые входят и выходят из данной вершины


← →
pasha_golub ©   (2004-06-09 11:26) [1]

А где она еще может находится просветите?


← →
Minori   (2004-06-09 11:29) [2]

Вести булевый двумерный массив с вершинами.
Навроде: если между вершинами A и B есть связь, то элемент массива [a,b] равен TRUE.

var nodes: array [1..100, 1..100] of boolean;
   n, i, num: integer;
begin
n:=1;
for i:=1 to 100 do
if (n<>i) and (nodes[n,i]) then num:=num+1;
end;

Приведенный код просчиает количество вершин, связанных с вершиной номер n (в данном случае n=1). num - количество.


← →
pasha_golub ©   (2004-06-09 11:31) [3]

Minori   (09.06.04 11:29) [2]
Не совсем Ваша правда. Обычно вводят численный массив, потому как часто в задачах фигурируют веса ребер (например, расстояния и т.д.)


← →
xman   (2004-06-09 11:34) [4]

мастера, у меня алгоритм вычисления вершин готов.
У меня в вопросе, надо чтобы матрица была в памяти (в какой неизвесно). Что вы мне можете посоветовать?


← →
Minori   (2004-06-09 11:35) [5]

2 pasha_golub
Ну, может это ему не совсем нужно, написано ребра пересчитать :) - пожалуйста.


← →
pasha_golub ©   (2004-06-09 12:03) [6]

Minori   (09.06.04 11:35) [5]
Я не спорю, но мы программисты должне думать о дальнейшей жизни кода и его портабельности? ;-)

Вот мои аргументы:
Булев тип все равно занимает один байт памяти, дык, давайте, на крайний случай, объявим массив of byte. И при значении ноль - нет прямой связи, в ином случае есть. Но при модификации кода мы уже будем иметь возможность задать вес ребра от 1 до 255. Но, это так, мысли вслух. :-))



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c
14-1086152635
roughneck
2004-06-02 09:03
2004.06.20
Как можно продавать свои программы?


4-1084450714
senator
2004-05-13 16:18
2004.06.20
Отправка факса из программы


1-1086263598
Sergo742
2004-06-03 15:53
2004.06.20
Отследить изменение в ячейке DBGrid


14-1086074727
AlexeyITN
2004-06-01 11:25
2004.06.20
Сколько стоит лицензированный Delphi 4-5 ?


1-1086590783
Alexxx
2004-06-07 10:46
2004.06.20
Stringgrid (выравнивание в ячейке)




   Наверх