代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/391726/8387470
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/391726/8387567
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/391726/8387592
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/391726/8387720
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);
www.eeworm.com/read/391726/8387729
txt factln.txt
Function FACTLN(N:integer):real;
var
I:integer;
A:array[1..100] of real;
begin
For I:=1 To 100 do
A[I]:=-1;
If N < 0 Then ShowMessage('警告：现在N
www.eeworm.com/read/391726/8387779
txt bessi.txt
Function BESSI(N:integer; X:real):real;
const
IACC = 40; BIGNO = 1.e10;
BIGNI = 1.e-10;
var
TOX,BIP,BI,BIM,ANS:real; M,J:integer;
begin
If N < 2 Then
ShowMessage('ba
www.eeworm.com/read/391726/8387794
txt ass.txt
Function ASS(N:integer; B:real):real;
var
DB:real;A:array[1..15] of real; I:integer;
begin
A[1]:=Exp(-B) / B;
If N = 1 Then
ASS:=A[N]
else
begin
DB:=1 / B;
www.eeworm.com/read/391726/8387975
pas unit2.pas
unit Unit2;
interface
procedure POLDIV(U:array of real; N:integer;V:array of real; NV:integer;
var Q, R:array of real);
implementation
procedure POLDIV(U:array of real;
www.eeworm.com/read/391726/8387992
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
Function GAMMLN(xx:real):real;
Function FACTRL(N:integer):REAL;
procedure DDPOLY(C:array
www.eeworm.com/read/391726/8388011
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,unit1, Forms, Dialogs;
procedure CHEBFT(A, B:real; var C:array of real; N:integer);
Function CHEBEV(A, B:re