代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/387489/8672864
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
procedure FUNCS(X:real;var AFUNC:array of real; MA:integer);
type
TForm1
www.eeworm.com/read/387489/8672924
pas unit2.pas
unit Unit2;
interface
uses
unit1;
Function GASDEV:real;
Procedure MRQCOF(X,Y,SIG:array of real; NDATA:integer;var A:array of real;
MA:integer; LISTA:array of integer; MFIT:integer;var A
www.eeworm.com/read/387489/8673002
txt polcoe.txt
procedure POLCOE(X, Y:array of real; N:integer; var COF:array of real);
var
S:array[0..15] of real;
I,J,K:integer; PHI,FF,B:real;
begin
For I:=1 To N do
begin
S[I]:=0;
www.eeworm.com/read/387489/8673006
txt ratint.txt
procedure RATINT(XA, YA: array of real; N:integer; X:REAL; VAR Y, DY:real);
const
TINY=1E-25;
var
C,D:array[0..10] of real;
I,NS,M:integer;
HH,H,DD,DX,W,T:real;
begin
NS:=1
www.eeworm.com/read/387489/8673010
txt polin2.txt
procedure POLIN2(X1A,X2A:array of real;YA:matrx2; M, N:integer;
X1, X2:real;var Y, DY:real);
var
YNTMP,YMTMP:array[0..20] of real;
J,K:integer;
begin
www.eeworm.com/read/387489/8673012
txt polint.txt
procedure POLINT(XA, YA:array of real; N:integer; X:real; var Y, DY:real);
var
C,D:array[0..10] of real;
DIF,DIFT,HO,HP,W,DEN:real;
NS,I,M:integer;
begin
NS:=1;
DIF:=Abs(X -
www.eeworm.com/read/387489/8673015
txt locate.txt
procedure LOCATE(XX:array of real; N:integer; X:real; var J:integer);
label 10;
var
JL,JU,JM:INTEGER;
begin
JL:=0;
JU:=N + 1;
10: If JU - JL > 1 Then
begin
JM:=(JU + J
www.eeworm.com/read/387489/8673085
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,unit1, Dialogs;
procedure POLINT(XA, YA:array of real; N:integer; X:real; var Y, DY:real);
procedure
www.eeworm.com/read/387489/8673123
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,unit1, Forms, Dialogs;
procedure QROMO(A, B:real;var SS:real; PICK:string);
implementation
Function SQU(
www.eeworm.com/read/387489/8673251
txt bessy.txt
Function BESSY(var N:integer; X:real):real;
var
TOX,BY,BYM,BYP:real;j:integer;
begin
If N < 2 Then
ShowMessage('bad argument N in BESSY');
TOX:= 2 / X;
By:= BESSY1(X);