代码搜索:integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/147861/12513829
m getparamno.m
function paramNo = getparamno
%GETPARAMNO Returns a unique positive integer for each call.
%
%--------
%Synopsis:
% paramNo = getparamno
%
%Description:
% Returns a unique positive integer for each
www.eeworm.com/read/335558/12515848
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/147835/12517184
frm 常用单据设置.frm
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{18F95930-A715-11D1-92AC-A8AE05C
www.eeworm.com/read/249156/12519170
pas program6.pas
program PL0(input,output);
(* PL/0 compile with code generation *)
const norw = 11; (* no. of reserved words *)
txmax = 100; (* length of identifier table *)
nmax = 14;
www.eeworm.com/read/249011/12527139
cls fileque.cls
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
www.eeworm.com/read/248904/12535119
pas qdcmimage.pas
unit QDCMImage;
{
ezDICOM medical viewer: CLX component
Copyright (c) 2002, Wolfgang Krug and Chris Rorden
All rights reserved.
Redistribution and use in source and binary forms, with or witho
www.eeworm.com/read/248904/12535322
pas childwin.pas
unit Childwin;
interface
uses SysUtils, Windows, Classes, Graphics, Forms,
Controls, ExtCtrls, StdCtrls, Buttons,define_types,dicom,
ComCtrls, Menus, Dialogs,JPEG,decompress,lsJPEG,Cli
www.eeworm.com/read/248857/12538181
bas modold.bas
Attribute VB_Name = "ModOld"
'****************************************************************************
'人人为我,我为人人
'枕善居汉化收藏整理
'发布日期:2007/05/02
'描 述:小型企业进销存源代码
'网 站:http://www.Mndsoft.co
www.eeworm.com/read/248735/12543973
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