代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/387489/8671212
txt midinf.txt
Function INF(X:real):real;
begin
INF:=FUNC(1 / X) / Sqr(X);
End;
procedure MIDINF(AA, BB:real; var S:real; N:integer);
var
A,B,TNM,X,DEL,DDEL,SUM:real; J:integer;
begin
B:=1 / AA;
www.eeworm.com/read/387489/8671226
txt midexp.txt
procedure MIDEXP(AA,BB:real; var S:real;N:integer);
var
IT,J:integer; A,B,DEL,DDEL,SUM,TNM,X:real;
begin
FUNC(X)=FUNK(-ALn(X))/X;
B:= EXP(-AA);
A:= 0.0;
IF N = 1
www.eeworm.com/read/387489/8671348
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,unit1, Forms, Dialogs;
procedure SSOR(A:matrx2; N:integer; B:array of real;
var X:arr
www.eeworm.com/read/387489/8671444
pas unit2.pas
unit Unit2;
interface
procedure TRIDAG(A, B, C, R:array of real;var U:array of real; N:integer);
implementation
procedure TRIDAG(A, B, C, R:array of real;var U:array of real; N:integer);
var
www.eeworm.com/read/387489/8671568
txt fpoly.txt
Procedure FPOLY(X:real; var P:array of real; NP:integer);
var
J:integer;
begin
P[1]:=1;
For J:=2 To NP do
P[J]:=P[J - 1] * X;
end;
www.eeworm.com/read/387489/8671584
txt mrqcof.txt
Procedure MRQCOF(X,Y,SIG:array of real; NDATA:integer;var A:array of real;
MA:integer; LISTA:array of integer; MFIT:integer;var ALPHA:matrx2;
var BETA:array of real; NALP
www.eeworm.com/read/387489/8671645
pas unit2.pas
unit Unit2;
interface
procedure POLCOE(X, Y:array of real; N:integer; var COF:array of real);
implementation
procedure POLCOE(X, Y:array of real; N:integer; var COF:array of real);
var
S
www.eeworm.com/read/387489/8671724
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
procedure RATINT(XA, YA: array of real; N:integer; X:REAL; VAR Y, DY:real);
implementati
www.eeworm.com/read/387489/8672302
txt pendag.txt
procedure PENDAG(A,B,C,D,E,R:array of real;var U:array of real; N:integer);
var
W,BETA,ALPHA,CG,H:array[0..100] of real;
K:integer;
begin
W[1]:=C[1];
BETA[1]:=0;
BETA[2]:=D[
www.eeworm.com/read/387489/8672323
txt qrbksb.txt
procedure QRBKSB(A:matrx2; N:integer; Q:matrx2; B:array of real;
var X:array of real);
var
I,J:integer; SUM:real;
begin
For I:=1 To N do