代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/135438/13930384
txt sort.txt
Procedure SORT(N:integer; var RA:array of real);
Label 99;
var
I,J,L,IR:integer; RRA:real;
begin
L:= N div 2 + 1;
IR:=N;
While true do
begin
If L > 1 Then
www.eeworm.com/read/135438/13930388
txt lfit.txt
Procedure LFIT(X, Y, SIG:array of real; NDATA:integer;var A:array of real;
MA:integer; LISTA:array of integer; MFIT:integer;var COVAR:matrx2;
NCVM:integer; var CHISQ:
www.eeworm.com/read/135438/13930574
~pa unit2.~pa
unit Unit2;
interface
procedure HUNT(XX:array of real; N:integer; X:real; var JLO:integer);
implementation
procedure HUNT(XX:array of real; N:integer; X:real; var JLO:integer);
label 1,2,3;
www.eeworm.com/read/135438/13930576
pas unit2.pas
unit Unit2;
interface
procedure HUNT(XX:array of real; N:integer; X:real; var JLO:integer);
implementation
procedure HUNT(XX:array of real; N:integer; X:real; var JLO:integer);
label 1,2,3;
www.eeworm.com/read/135438/13930593
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
procedure POLINT(XA, YA:array of real; N:integer; X:real; var Y, DY:real);
procedure POLCO
www.eeworm.com/read/135438/13930876
txt mprove.txt
procedure MPROVE(A,ALUD:matrx2; N:integer;
INDX:array of real; B:array of real;var X:array of real);
var
R:array [0..100] of real;
I,J:integer;
SDP:real;
begin
For I
www.eeworm.com/read/135438/13930891
txt ssor.txt
procedure SSOR(A:matrx2; N:integer; B:array of real;
var X:array of real; EPS,OM:real;var II:integer);
var
IMAX,J,I,L:integer; RX,R:real;
begin
IMAX:=200;
For I
www.eeworm.com/read/135438/13930895
txt svbksb.txt
procedure SVBKSB(U:matrx2; W:array of real; V:matrx2;
M, N:integer; B:array of real;var X:array of reaL);
var
TMP:array[0..100] of real;
I,J,JJ:integer;
S:real;
be
www.eeworm.com/read/135438/13930904
txt tridag.txt
procedure TRIDAG(A, B, C, R:array of real;var U:array of real; N:integer);
var
GAM:array[0..100] of real;
J:integer; BET:real;
begin
If B[1] = 0 Then Exit;
BET:=B[1];
U[1]:
www.eeworm.com/read/135438/13930917
txt qrdcmp.txt
procedure QRDCMP(var A:matrx2; M, N:integer;var Q:matrx2);
var
I,J,K:integer; S,T,Sgn,H,F:real;
begin
For I:=1 To M do
begin
For J:=1 To M do
Q[I, J]:=0;