Дипломный проект - Организация абонентского доступа в городе Уральск - файл n10.doc

Дипломный проект - Организация абонентского доступа в городе Уральск
скачать (1266.5 kb.)
Доступные файлы (19):
n1.doc299kb.27.04.2010 10:31скачать
n2.doc523kb.27.04.2010 10:29скачать
n3.doc181kb.27.04.2010 10:28скачать
n4.doc110kb.27.04.2010 10:28скачать
n5.doc29kb.27.04.2010 10:28скачать
-8BC9~1.doc95kb.29.11.2005 17:11скачать
EF45~1.doc59kb.29.11.2005 17:11скачать
n8.exe
n9.exe
n10.doc64kb.29.11.2005 17:11скачать
n11.txt4kb.01.06.2004 23:05скачать
n12.doc82kb.29.11.2005 17:11скачать
n13.txt6kb.01.06.2004 21:12скачать
n14.doc53kb.29.11.2005 17:11скачать
n15.txt3kb.02.06.2004 12:35скачать
n16.doc56kb.29.11.2005 17:11скачать
n17.doc382kb.27.04.2010 10:26скачать
n18.doc1198kb.27.04.2010 10:27скачать
n19.doc57kb.27.04.2010 10:31скачать

n10.doc

Внешний вид



Листинг программы

unit Raschet;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls, Menus,Math,ShellApi;
type

TfmMain = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

txt1: TMenuItem;

N6: TMenuItem;

tblIn: TStringGrid;

edN: TLabeledEdit;

tblOut: TStringGrid;

edM: TLabeledEdit;

edg: TLabeledEdit;

edB: TLabeledEdit;

btnRaschet: TButton;

GroupBox1: TGroupBox;

edK: TLabeledEdit;

edQ: TLabeledEdit;

Button1: TButton;

edTT: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

procedure FormCreate(Sender: TObject);

procedure btnRaschetClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure txt1Click(Sender: TObject);
private

{ Private declarations }

procedure F3();

public

{ Public declarations }

end;
var

fmMain: TfmMain;
implementation
{$R *.dfm}
procedure TfmMain.F3();

var m,i:integer;

begin

m:=StrToInt(edm.Text);

tblIn.ColCount:=m;

tblOut.ColCount:=m;
for i:=0 to m do

begin

tblIn.Cells[i,0]:='C['+IntToStr(i)+']';

tblOut.Cells[i,0]:=''+IntToStr(i);

end;

end;


procedure TfmMain.FormCreate(Sender: TObject);

begin

F3();

end;
procedure TfmMain.btnRaschetClick(Sender: TObject);
var c:array[1..128] of real;

T,Ackp:array[1..64,1..64] of real;

TT,Zn1,Zn2,b,Sum,sgm,q,B1,B2,P:real;

n,f,i,j,k,g,m,x,y:integer;

begin

k:=StrToInt(edK.Text);

m:=StrToInt(edM.Text);

If (k>m) then k:=m;

g:=StrToInt(edg.Text);

q:=StrToFloat(edQ.Text);

n:=StrToInt(edN.Text);

b:=StrToFloat(edB.Text);

for i:=1 to tblIn.ColCount do

Begin
If (tblIn.Cells[i,1]='') then

begin

ShowMessage('Сообщение некоректные данные');

exit;

end;

c[i]:=StrToFloat(tblIn.Cells[i,1]);

end;


x:=round((k-m+1)/g);

B1:=0;

for y:=0 to x do

Begin
//Изменено

B2:=exp(y*ln(C[m]))*exp((m-1)*ln(C[k-y]));

If odd(y) then B2:=B2*(-1);

B1:=B1+B2;
end;


P:=B1*exp(m*ln(Abs(1-q)))*exp((k-m)*ln(Abs(1-q)));

If odd(m) then P:=P*(-1);

If odd(k-m) then P:=P*(-1);

sgm:=P;


tblOut.ColCount:=m;

tblOut.RowCount:=n;

TT:=StrToFloat(edTT.Text);

for i:=1 to m do

begin

for j:=1 to n do

Begin

Zn1:=1-exp(g*ln(q));

Zn2:=m*(c[i]-b)+exp((-m*n)*ln(Abs(Zn1)));

Sum:=0;

for f:=m to m*g do

Sum:=Sum+f*sgm;

Ackp[i,j]:=Zn2*Sum;

If odd(m*n) then Ackp[i,j]:=Ackp[i,j]*(-1);

tblOut.Cells[i,j]:=FloatToStr(Ackp[i,j]+125+TT);

tblOut.Cells[0,j]:=IntToStr(j);

end;

end;

tblOut.Cells[0,0]:='Tckm,n';

end;
procedure TfmMain.Button1Click(Sender: TObject);

var i:integer;

begin

F3();

for i:=0 to tblIn.ColCount do

tblIn.Cells[i,1]:=IntToStr(random(100));
end;
procedure TfmMain.N2Click(Sender: TObject);

begin

Close;

end;
procedure TfmMain.N4Click(Sender: TObject);

begin

btnRaschetClick(Sender);

end;
procedure TfmMain.N5Click(Sender: TObject);

begin

ShellExecute(Handle,nil,'list1.doc',nil,nil,SW_RESTORE);
end;
procedure TfmMain.txt1Click(Sender: TObject);

begin

hellExecute(Handle,nil,'list1.txt',nil,nil,SW_RESTORE);


end;
end.


Блок схема



Учебный материал
© nashaucheba.ru
При копировании укажите ссылку.
обратиться к администрации