Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12



Else C^.Insert(NewStr(' I'+IntToStr(i)+'='+s+'A'))

End;
L:=New(PListBox,Init(R,1,Sb));
L^.NewList(C);
D^.Insert(L);
R.B.Y:=R.A.Y;
Dec(R.A.Y,CurrentFont^.Height*2);
D^.Insert(New(PLabel,Init(R,' Токи в ветвях',L)));
DeskTop^.Insert(D);
End;

Procedure TNewApp.ReCounte;{Обсчет}
Var i,j,k,l,m,Ii,Sizex,Index:Integer;

A:TElAr; f1,f2:Boolean;

Ratio:Real;

Function Vetv1(Ai,Aj,Ad:Integer):Boolean;
{Функция сохраняет в A ветвь от элемента (Ai,Aj) в направлении Ad (0-Up,1-
Down,2-Left,3-Right и возвращает TRUE, если она содержит элементы}
Var i,j,k,l:Integer;
Flag1,Flag2:Boolean;
Begin

Flag1:=True;

Flag2:=False;

With A[Index] Do

Begin

Str:=Ai; Col:=Aj;

Num:=Sheme[Ai,Aj,2];

Typ:=Sheme[Ai,Aj,1];

End;

Inc(Index);

Case Ad Of

0: Begin i:=Ai+1; j:=Aj-1; End;

1: Begin i:=Ai-1; j:=Aj+1; End;

2: Begin i:=Ai-1; j:=Aj+1; End;

3: Begin i:=Ai+1; j:=Aj-1; End;

End;

While Flag1 And (i>0) And (j>0) And (i

Скачали данный реферат: Polievkt, Limonov, Тихвинский, Agafon, Kubyshkin, Alenin, Кугушев.
Последние просмотренные рефераты на тему: реферат ссср, как сделать шпору, конспект лекций, классификация реферат.



Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12

Поделитесь этой записью или добавьте в закладки