代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/123184/14643607
pas idsnmp.pas
{ $HDR$}
{**********************************************************************}
{ Unit archived using Team Coherence }
{ Team Coherence is Copyright 2002 by Qual
www.eeworm.com/read/121540/14752609
pas uoptvars.pas
unit uOptVars;
interface
uses Graphics, Classes, ShellAPI, SysUtils, Windows, jclStrings, uTypes;
type
PProjRec = ^TProjRec;
TProjRec = record
FName: string;
iType: Integer;
end;
func
www.eeworm.com/read/120135/14812347
pas ufunio.pas
unit uFunIO;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
{-----------------------------------------------------------------------------}
type
www.eeworm.com/read/114764/15038941
pas grobal2.pas
unit Grobal2;
interface
uses
Math,windows;
Const
BUFFERSIZE =1024;
//客户端发送的命令
CM_SOFTCLOSE =0;
//登录有关的命令
CM_IDPASSWORD =1;
CM_QUERYUSERSTATE=2;
CM_ADDNEWUSE
www.eeworm.com/read/211952/15169558
pas p1088.pas
PROGRAM P1088;
VAR
n :integer;
FUNCTION check(p:integer):boolean;
var have :array[0..150]of boolean;
g :integer;
i :Integer;
j
www.eeworm.com/read/211952/15169592
pas p1037.pas
PROGRAM P1037;
VAR
k :integer;
i :integer;
a,b :Integer;
ans :real;
BEGIN
readln(k);
for I:=1 to k do
begin
readln(a,b
www.eeworm.com/read/211952/15169629
pas p1382.pas
PROGRAM p1382;
VAR
n :longint;
k :integer;
i :Integer;
PROCEDURE ans;
var j :longint;
begin
j:=0;
while n mod 2=0 do
begin
www.eeworm.com/read/211952/15169699
pas p2104.pas
PROGRAM p2104;
VAR
n :Integer;
dic :array[1..1000]of string;
num :array[1..1000]of integer;
find :boolean;
have :Integer;
t
www.eeworm.com/read/211952/15170053
pas p1715.pas
PROGRAM p1715;
VAR
n,q :integer;
h :integer;
come :array[1..100]of integer;
i :integer;
temp :Integer;
point :Integer;
www.eeworm.com/read/211952/15170253
pas p1251.pas
PROGRAM p1251;
VAR
num :array[1..50]of integer;
have :integer;
ans :longint;
avg,sum :longint;
i :Integer;
step :Integer;