代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/192256/8393620
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/192256/8393642
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
www.eeworm.com/read/192256/8393663
txt chobsb.txt
procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real);
var
I,J:integer; SUM:real;
begin
For I:=1 To N do
begin
Sum:=B[I];
For J:=1 To I - 1 do
www.eeworm.com/read/192256/8393984
txt rkdumb.txt
procedure RKDUMB(VSTART:array of real; NVAR:integer; X1, X2:real;
NSTEP:integer;var XX:array of real; Y:matrx2);
var
V,DV:array[0..10] of real; I,K:integer; X,H:re
www.eeworm.com/read/192256/8393987
txt pzextr.txt
procedure PZEXTR(IEST:integer; XEST:real; YEST:array of real;
var YZ, DY:array of real; NV, NUSE:integer);
var
D:array[0..10] of real; J,K1,M1:integer;
Q,DELTA
www.eeworm.com/read/192256/8393991
txt rk4.txt
procedure RK4(Y,DYDX:array of real;N:integer;X,H:real;var YOUT:array of real);
var
YT, DYT, DYM:array[0..10] of real; HH,H6,XH:real;
I:integer;
begin
HH:=H * 0.5;
H6:=H / 6;
www.eeworm.com/read/192256/8393995
txt mmid.txt
procedure MMID(Y, DYDX:array of real; NVAR:integer; XS, HTOT:real;
NSTEP:integer;var YOUT:array of real);
var
YM, YN:array[0..10] of real; I,N:integer; H,X
www.eeworm.com/read/192256/8394001
txt rzextr.txt
procedure RZEXTR(IEST:integer; XEST:real; YEST:array of real;
var YZ, DY:array of real; NV, NUSE:integer);
var
FX:array[0..7] of real; J,M1,K:integer;
YY,V,C,B
www.eeworm.com/read/192256/8394009
txt bsstep.txt
procedure BSSTEP(var Y, DYDX:array of real; NV:integer; var X1:real;
HTRY, EPS:real;YSCAL:array of real; var HDID, HEND:real);
label 1;
const
IMAX = 11; NUSE = 7; ONE = 1; S
www.eeworm.com/read/192256/8394090
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
Function PLGNDR(L, M:integer; X:real):real;
Procedure FLEG(X:real; var PL:array of real; N