Математическое моделирование физических задач на ЭВМ
| Категория реферата: Рефераты по физике
| Теги реферата: решебники 10, измерения реферат
| Добавил(а) на сайт: Иакинф.
Предыдущая страница реферата | 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
Главная