Графы Опции

[Юлия92]

1)Добрый день люди есть псевдокод методичка Земленухина по которому не все понимаю.Непонятны в описании на паскаль..7 и 10 строки...помогите кто чем может)))

1.	for iX do num[i]:=0; ftr[i]:=0
2.	for i=1 to m do numBL[i]:=0
3.	k:=1; kU:=0;  SU:=nil; cntBL:=0; U:=nil;
4.	for rX 
5.	         do    if  num[r]=0  
6.	                                then   BLOCK®

BLOCK(i)
1.	num[i]:=k; L[i]:=k k:=k+1
2.	for   jГ[i]  
3.	         do    if  num[j]=0  
4.	                         then  SU (i,j)
5.	                                  ftr[j]:=i
6.	                                  BLOCK(j)
7.	                                  L[i]:=min(L[i],L[j])
8.	                                  if L[j]  num[i]  
9.	                                             then cntBL:=cntBL+1
10.	                                                      while Top(SU)  (i,j) 
11.	                                                                     do u  SU ; U  u                                                                                                                                        
12.	                                                                           kU:=kU+1
13.	                                                                           numBL[kU]:=cntBL
14.	                          else   if  j  ftr[i]
15.	                                               then  SU (i,j)
16.	                                                         L[i]:=min(L[i],num[j])

2)Применение Пвш...Надо найти экцентриситет (максимальный num) радиус(min num)диаметр(максимальный экцетриситет),а как найти матрицу расстояний и диаметральную цепь??? и как это все всунуть в пвш???

[IUnknown]

только почему то ошибка и в одном и другом файле в строке объявления function StackTop...34 (invalid function result type),т.е не верный тип возвращаемого значения функции

Турбо-Паскаль что-ли используешь? Тогда да, там нельзя возвращать из функции ничего кроме встроенных типов данных. Никаких структур. Придется переделывать функции на процедуры:

procedure StackTop(const Stack : TStackEdge; var Res : TEdge);
begin
  Res:=Stack.Storage[Stack.Depth];
end;

, и все в таком духе. Ну, и вызовы функций, разумеется, переделывать... matrix.pas я приложил (компилируется, на работоспособность не проверял), второй файл - по аналогии измени.

Сообщение отредактировано: IUnknown - 29.05.2012 18:40