代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/391726/8387135
txt odeint.txt
procedure ODEINT(var YSTART:array of real; NVAR:integer;X1, X2, EPS,
H1, HMIN:real;var NOK, NBAD:integer;var XP:array of real;var YP:matrx2);
const
MAXSTP = 10000; TWO = 2; ZERO = 0; TINY
www.eeworm.com/read/391726/8387339
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,unit1, Forms, Dialogs;
Function GASDEV:real;
Procedure SVDVAR(V:matrx2; MA, NP:integer; W:array of real;
www.eeworm.com/read/391726/8387467
txt polcof.txt
procedure POLCOF(XA, YA:array of real; N:integer; var COF:array of real);
var
X, Y:array[0..15] of real;
I,J,K:integer;
XMIN,DY:real;
begin
For J:=1 To N do
begin
X
www.eeworm.com/read/391726/8387481
txt eigsrt.txt
Procedure EIGSRT(var D:array of real; var V:matrx2; N:integer);
var
I,K,J:integer; P:real;
begin
For I:=1 To N - 1 do
begin
K:=I;
P:=D[I];
For J:=I + 1 To
www.eeworm.com/read/391726/8387484
txt balanc.txt
Procedure BALANC(var A:matrx2; N:integer);
Label 1,2,3;
var
I,J:integer;
RADIX,SQRDX,C,R,LAST,G,F,S:real;
begin
RADIX:=2 ;
SQRDX:=Sqr(RADIX);
1: Last:=1;
For I:=1 To N
www.eeworm.com/read/391726/8387777
txt besian.txt
Function T(Y:real):real;
var
AAA,P,Z:REAL;
begin
If Y
www.eeworm.com/read/391726/8388427
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, unit1,Controls, Forms, Dialogs;
Procedure MNEWT(NTRIAL:integer;var X:array of real;N:integer;TOLX,TOLF:real);
impl
www.eeworm.com/read/391726/8388624
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, unit1,Forms, Dialogs;
Procedure JACOBI(A:matrx2; N:integer;var D:array of real;
www.eeworm.com/read/391726/8388640
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,unit1, Forms, Dialogs;
Procedure BALANC(var A:matrx2; N:integer);
Procedure ELMHES(var A:matrx2; N:integer)
www.eeworm.com/read/391726/8388675
pas unit2.pas
unit Unit2;
interface
uses
unit1;
Procedure BALANC(var A:matrx2; N:integer);
implementation
Procedure BALANC(var A:matrx2; N:integer);
Label 1,2,3;
var
I,J:integer;
RADIX,SQR