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

Дипломный проект - Организация абонентского доступа в городе Уральск
скачать (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скачать

n11.txt


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
При копировании укажите ссылку.
обратиться к администрации