代码搜索: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: