代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/207183/15280542
pas pg.pas
{$r+}
program pg;
const
inputname='pg.in';
outputname='pg.out';
var
a:array[1..3000,1..2] of byte;
ak:array[1..3000] of byte;
fa:array[1..3000] of integer;
co:array[1..31,1..2] of
www.eeworm.com/read/207183/15280632
pas fish.pas
{$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P-,Q+,R-,S-,T-,V-,X+,Y+}
{$M 16384,0,655360}
program fish;
const
maxn=30; { 鱼数的最大值 }
finame='fish.dat'; { 输入文件名 }
foname='fish.out'; { 输出文件名
www.eeworm.com/read/207183/15280642
pas car.pas
Program Car;
var
up,n1,m1,kills1,max,i,m,n,r,c:integer;
x,y,a:array[1..100] of integer;
procedure solve(wx,wy:integer);
var free,aa,bb,k,r0:integer;
begin
free:=n*m-wx*wy-c;
r0:=r-fr
www.eeworm.com/read/206599/15293298
tmp mfc469.tmp
/* Test.PL0 */
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
www.eeworm.com/read/206599/15293323
tmp mfc163.tmp
/*这是一个测试程序*/
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
www.eeworm.com/read/206599/15293324
tmp mfc46c.tmp
/*这是一个测试程序*/
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
www.eeworm.com/read/206599/15293344
pl0 test.pl0
/*这是一个测试程序*/
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
els
www.eeworm.com/read/205925/15303743
pas frmcustom.pas
unit FrmCustom;
interface
uses
AdvGrid, SysUtils, Controls, Windows, Messages,TlHelp32;
type //Des加密算法
TKeyByte = array[0..5] of Byte;
TDesMode = (dmEncry, dmDecry);
function EncryS
www.eeworm.com/read/205925/15303777
~pas frmcustom.~pas
unit FrmCustom;
interface
uses
AdvGrid, SysUtils, Controls, Windows, Messages,TlHelp32;
type //Des加密算法
TKeyByte = array[0..5] of Byte;
TDesMode = (dmEncry, dmDecry);
function EncryS
www.eeworm.com/read/205899/15304408
pas fnotes.pas
unit fNotes;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons;
type
TfrmNotes = class(TForm)
SpeedButton1: TSpeedButton