代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/391726/8388102
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/391726/8388313
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:
www.eeworm.com/read/391726/8388374
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:
www.eeworm.com/read/391726/8388399
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, UNIT1,Controls, Forms, Dialogs;
Function BESSJ0(X:real):real;
Procedure ZBRAK(X1, X2:real; N:integer;
www.eeworm.com/read/391726/8388515
txt correl.txt
Procedure CORREL(DATA1,DATA2:array of real;N:integer;var ANS:array of real);
var
FFT:array[0..128] of real;
NO2,I:integer; DUM,DUM1,DUM2:real;
begin
TWOFFT(DATA1, DATA2, FFT, ANS, N)
www.eeworm.com/read/391726/8388565
txt poldiv.txt
procedure POLDIV(U:array of real; N:integer;V:array of real; NV:integer;
var Q, R:array of real);
var
J,K:integer;
begin
For J:=1 To N do
begin
R[J]
www.eeworm.com/read/391726/8388568
txt chebpc.txt
procedure CHEBPC(C:array of real;var D:array of real; N:integer);
var
DD:array[0..50] of real; J,K:integer;
SV:real;
begin
For J:=1 To N do
begin
D[J]:=0 ;
DD[
www.eeworm.com/read/391726/8388574
txt chder.txt
procedure CHDER(A,B:real;C:array of real;var CDER:array of real;N:integer);
var
J:integer; CON:real;
begin
CDER[N]:=0;
CDER[N - 1]:=2 * (N - 1) * C[N];
If N >= 3 Then
be
www.eeworm.com/read/391726/8388576
txt chebft.txt
procedure CHEBFT(A, B:real; var C:array of real; N:integer);
var
K,J:integer; SUM,Y,BMA,BPA,FAC:real;
F:array[0..50] of real;
const
NMAX = 50; PI = 3.14159265358979;
begin