Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as text by Pascal ( 17 years ago )
{Добавление узла на Ñтволе в ÑоответÑтвии Ñ Ð¿Ð¾Ñ€Ñдком} {ДОРÐБОТÐТЬ ДО УКÐЗÐÐИЯ ОРИГИÐÐЛ/КОПИЯ}
procedure add_stvol(name_stvol:word_string;f_top:element_ptr);
var new_element,curr_element:element_ptr;
begin
if top_element<>nil then curr_element:=top_element^.prev;
new(new_element);
if top_element=nil then top_element:=new_element;
else
begin
curr_element^.next:=new_element;
new_element^.prev:=curr_element;
end;
new_element^.name:=name_stvol;
new_element^.sostav:=nil;
new_element^.next:=top_element;
top_element^.prev:=new_element;
end;
{Добавление узла в ветвь в ÑоответÑтвии Ñ Ð¿Ð¾Ñ€Ñдком} {ДОРÐБОТÐТЬ ДО УКÐЗÐÐИЯ ОРИГИÐÐЛ/КОПИЯ}
procedure add_vetv(name_stvol,name_vetv:word_string;f_top:element_ptr);
var curr_element,new_vetv,curr_element:element_ptr;
begin
curr_element:=find_stvol(name_stvol);
if curr_element<>nil then
begin
new(new_vetv);
new_vetv^.name:=name_name_vetv;
new_vetv^.sostav:=nil;
new_vetv^.next:=nil;
curr_vetv:=curr_element^.sostav;
if curr_vetv<>nil then
while curr_vetv^.next<>nil do
curr_vetv:=curr_vetv^.next;
if curr_element^.sostav=nil then
begin
new_vetv^.prev:=curr_element;
curr_element^.sostav:=new_vetv
end;
else
begin
curr_vetv^.next:=new_vetv;
new_vetv^.prev:=curr_vetv;
end;
end;
end;
Revise this Paste