Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

OnClick = N4Click

N2

Caption = ‘О программе’

OnClick = N2Click

AboutBox

Function Ln (k: Integer): Real;

Proizved1, Proizved2: Real; i:=1;
Proizved1:=1;
Proizved2:=1;

If k1

да

Proizved1:=Proizved1*(t - x[I]);
Proizved2:=Proizved2*(x[k] – x[i]);

нет

End;

Function Pol ( ): Real;

If i>A

да

Ln:=Proizved1/Proizved2;

Sum: Real; i: Integer; i:=1;
Sum:=0;

If iA

нет

да

Pol:=Sum;

End;

Function Delta ( ): Real;

Sum: Real; i: Integer; i:=1;
Sum:=0;

If i

Рекомендуем скачать другие рефераты по теме: баллов рефераты, 7 ответов.

Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата