代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/387489/8673254
txt factln.txt
Function FACTLN(N:integer):real;
var
I:integer;
A:array[1..100] of real;
begin
For I:=1 To 100 do
A[I]:=-1;
If N < 0 Then ShowMessage('警告：现在N
www.eeworm.com/read/387489/8673271
txt bessi.txt
Function BESSI(N:integer; X:real):real;
const
IACC = 40; BIGNO = 1.e10;
BIGNI = 1.e-10;
var
TOX,BIP,BI,BIM,ANS:real; M,J:integer;
begin
If N < 2 Then
ShowMessage('ba
www.eeworm.com/read/387489/8673277
txt ass.txt
Function ASS(N:integer; B:real):real;
var
DB:real;A:array[1..15] of real; I:integer;
begin
A[1]:=Exp(-B) / B;
If N = 1 Then
ASS:=A[N]
else
begin
DB:=1 / B;
www.eeworm.com/read/387489/8673450
pas unit2.pas
unit Unit2;
interface
procedure POLDIV(U:array of real; N:integer;V:array of real; NV:integer;
var Q, R:array of real);
implementation
procedure POLDIV(U:array of real;
www.eeworm.com/read/387489/8673462
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
Function GAMMLN(xx:real):real;
Function FACTRL(N:integer):REAL;
procedure DDPOLY(C:array
www.eeworm.com/read/387489/8673477
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,unit1, Forms, Dialogs;
procedure CHEBFT(A, B:real; var C:array of real; N:integer);
Function CHEBEV(A, B:re
www.eeworm.com/read/387489/8673531
pas unit2.pas
unit Unit2;
interface
uses
unit1;
procedure CHEBFT(A, B:real; var C:array of real; N:integer);
procedure CHEBPC(C:array of real;var D:array of real; N:integer);
procedure PCSHFT(A, B:real;
www.eeworm.com/read/387489/8673678
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, UNIT1,Controls, Forms, Dialogs;
Function BESSJ0(X:real):real;
Function BESSJ1(X:real):real;
Procedure ZBRAK(X1, X2:
www.eeworm.com/read/387489/8673709
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, UNIT1,Controls, Forms, Dialogs;
Function BESSJ0(X:real):real;
Function BESSJ1(X:real):real;
Procedure ZBRAK(X1, X2:
www.eeworm.com/read/387489/8673727
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, UNIT1,Controls, Forms, Dialogs;
Function BESSJ0(X:real):real;
Procedure ZBRAK(X1, X2:real; N:integer;