代码搜索:integer

找到约 10,000 项符合「integer」的源代码

代码结果 10,000
www.eeworm.com/read/192256/8394533

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/192256/8394637

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/192256/8394643

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/192256/8394678

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/192256/8394685

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/192256/8394836

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/192256/8394864

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/192256/8394878

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
www.eeworm.com/read/192256/8394923

pas unit2.pas

unit Unit2; interface uses unit1; procedure CHEBFT(A, B:real; var C:array of real; N:integer); procedure CHEBPC(C:array of real;var D:array of real; N:integer); procedure PCSHFT(A, B:real;
www.eeworm.com/read/192256/8395078

pas unit2.pas

unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, UNIT1,Controls, Forms, Dialogs; Function BESSJ0(X:real):real; Function BESSJ1(X:real):real; Procedure ZBRAK(X1, X2: