代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/192256/8395127
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/192256/8395147
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/192256/8395264
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/192256/8395338
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/192256/8395342
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/192256/8395349
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/192256/8395353
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
www.eeworm.com/read/291781/8395648
java cincomingmessage.java
// jSMSEngine API.
// An open-source API package for sending and receiving SMS via a GSM device.
// Copyright (C) 2002-2006, Thanasis Delenikas, Athens/GREECE
// Web Site: http://www.jsmsengine.or
www.eeworm.com/read/291776/8396900
cls myvbdll.cls
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 2 'vbComplexBound
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnM
www.eeworm.com/read/291714/8402175
inc atbinhexprint.inc
{
ATBinHex printing code.
File must be included in ATBinHex.pas.
}
function TATBinHex.PrinterCaption: string;
begin
if FFileName '' then
Result := MsgViewerCaption + ' - ' + SExtract