代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/215649/15055209
pas magsubs1.pas
unit magsubs1;
{ Magenta Systems File Transfer Components.
Updated by Angus Robertson, Magenta Systems Ltd, England, 25th July 2005
delphi@magsys.co.uk, http://www.magsys.co.uk/delphi/
Copyright
www.eeworm.com/read/211952/15169580
pas p1028.pas
PROGRAM p1028;
VAR
total :integer;
part,p :Integer;
odd :integer;
even :integer;
temp,i :Integer;
BEGIN
readln(part);
for p:=1 to part d
www.eeworm.com/read/211952/15169608
dpr p1362.dpr
program p1362;
{$APPTYPE CONSOLE}
var
leave :array[1..1000]of boolean;
n,m :integer;
have :array[1..50]of integer;
i :Integer;
ans
www.eeworm.com/read/211952/15169843
pas p1619.pas
PROGRAM p1619;
VAR
n,m :Integer;
FUNCTION ans(n:Integer):extended;
var
p,m :extended;
i :integer;
ch :integer;
begin
if n=1 then a
www.eeworm.com/read/211952/15169860
dpr p1915.dpr
program p1915;
{$APPTYPE CONSOLE}
var
score :array[1..1000]of integer;
ave :real;
total :integer;
i :Integer;
part,p :Integer;
www.eeworm.com/read/211952/15170123
pas p1828.pas
PROGRAM p1828;
VAR
data :array[1..6000,0..1000]of byte;
n :integer;
i,j :integer;
PROCEDURE makedata;
var
i,j :Integer;
temp
www.eeworm.com/read/211952/15170141
pas p1814.pas
PROGRAM p1814;
VAR
i :Integer;
sweat,add :array[1..10000]of integer;
n :integer;
step :Integer;
FUNCTION check:boolean;
var
i
www.eeworm.com/read/211952/15170251
dpr p1259.dpr
program p1259;
{$APPTYPE CONSOLE}
var
n :Integer;
s,t :array[1..1200]of integer;
l :Integer;
i :Integer;
FUNCTION push:integer;
begi
www.eeworm.com/read/211952/15170269
dpr p1203.dpr
program p1203;
{$APPTYPE CONSOLE}
var
x,y :array[1..100]of real;
dis :array[1..100,1..100]of real;
team :array[1..100]of boolean;
n :integer;
www.eeworm.com/read/209729/15214961
pas linegame.pas
{*******************************************************************************
Copyright (C), 2004, 风月工作室.
作者: 追风逐月
版本: 1.0
日期: 2005年12月28日
描述: QQ连连看游戏控制类
修改历史:
徐明 2005/12