代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/414760/11103240
f90 mscka.f90
MODULE scka_func
! From the book "Computation of Special Functions"
! by Shanjie Zhang and Jianming Jin
! Copyright 1996 by John Wiley & Sons, Inc.
! The authors state:
! "However, we
www.eeworm.com/read/414760/11103250
f90 msegv.f90
MODULE segv_func
! From the book "Computation of Special Functions"
! by Shanjie Zhang and Jianming Jin
! Copyright 1996 by John Wiley & Sons, Inc.
! The authors state:
! "However, we
www.eeworm.com/read/414760/11103257
f90 msdmn.f90
MODULE sdmn_func
! From the book "Computation of Special Functions"
! by Shanjie Zhang and Jianming Jin
! Copyright 1996 by John Wiley & Sons, Inc.
! The authors state:
! "However, we
www.eeworm.com/read/414760/11103300
f90 maswfb.f90
MODULE aswfb_func
! From the book "Computation of Special Functions"
! by Shanjie Zhang and Jianming Jin
! Copyright 1996 by John Wiley & Sons, Inc.
! The authors state:
! "However, w
www.eeworm.com/read/414733/11104505
bas base64.bas
Attribute VB_Name = "Base64"
'no dependence
Public key(1 To 3) As Long
Private Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Public Sub GenKey()
Dim d As
www.eeworm.com/read/414569/11108471
txt text2.txt
program example2;
var A,B,C:integer;
X,Y:bool;
begin /* this is an example */
A:=B*C+37;
X:='ABC'
end.
www.eeworm.com/read/269106/11109121
bas gpublic.bas
Attribute VB_Name = "gPublic"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/17
'描 述：企事业单位人事管理系统 Ver 2007
'网 站：http://www.M
www.eeworm.com/read/268451/11139173
pas pl0.pas
PROGRAM PL0(INPUT,OUTPUT,INPUT1,OUTPUT1);
(*PL0 COMPILER WITH CODE GENERATION*)
LABEL
99;
CONST
AL=10; (*LENGTH OF IDENTIFIERS*)
NORW=14; (*# OF RESERVED WORDS*)
TXMAX=100; (*LE
www.eeworm.com/read/413832/11140501
pas dib.pas
unit DIB;
interface
{$INCLUDE DelphiXcfg.inc}
uses
Windows, SysUtils, Classes, Graphics, Controls;
type
TRGBQuads = array[0..255] of TRGBQuad;
TPaletteEntries = array[0..255] of
www.eeworm.com/read/268303/11143324
lei text.lei
Program abc;
Integer x,y,z;
Real a,b
Procedure ab(Var m,n:Integer;t:Real);
Begin
t:=n+m;
If m>n then n:=m else t:=m;
While n