program kehuji uses Forms, Unit1 in ..\zxc\Unit1.pas {Form1}, Unit2 in ..\zxc\Unit2.pas {Form2}, Unit3 in ..\zxc\Unit3.pas {Form3}, Unit4 in ..\zxc\Unit4.pas {Form4} // Unit3 in C:\Program Files\Borland\Delphi7\Projects\Unit3.pas {Form3}, // Unit4 in C:\Program Files\Borland\Delphi7\Projects\Unit4.pas {Form4} {$R *.res} begin Application.Initialize Application.CreateForm(TForm1, Form1) Application.CreateForm(TForm2, Form2) Application.CreateForm(TForm3, Form3) Application.CreateForm(TForm4, Form4) // Application.CreateForm(TForm3, Form3) // Application.CreateForm(TForm4, Form4) Application.Run end.
标签: zxcUnit pas program kehuji
上传时间: 2014-01-16
上传用户:jing911003
本源代码所设计的文件系统,具有建立文件(create)、打开文件(open)、读文件(read)、写文件(write)、关闭文件(close)、撤销文件(delete)等功能。在模拟程序中可从键盘上输入文件操作命令来模拟各用户程序中所调用的各种文件操作,用一个结束命令(end)停止程序的执行。
上传时间: 2013-12-13
上传用户:希酱大魔王
人民币大写金额转换程序(修正版v0.0.3) =================================== 1.使用方法: ------------- 将Cash_RMB.dcu放入Delphi安装目录下的Lib中,在uses中加入Cash_RMB, 即可引用CashRMB方法. function CashRMB(CashAmount: Double): String 如: procedure TForm1.Button1Click(Sender: TObject) begin QRLabel1.Caption := CashRMB(Table1.FieldByName( 金额 ).AsFloat) end 结果将传回人民币金额大写字符串. 如果 CashAmount = 0 或数值溢出(超出万亿位),结果返回空串. 2.说明: -------- A.本转换程序最大程度只支持到万亿元(位)的金额数值转换操作.如果你的 转换数值超出此极限,你可以在调用前先行判断数据的合法性,如果没有作预 先判断,转换过程中将引发本单元中自带的错误处理例程. b.该转换结果符合标准金额大写书写格式,零角零分等字样不存在于最终的 转换结果中. c.本转换程序自带数据溢出等数据非法及转换错误等处理例程. d.本程序适用于32位的Delphi版本.
上传时间: 2013-12-31
上传用户:hebmuljb
--- ----initial------- MOVLA 00H IODIR PA IODIR PB IODIR PC MOVAM PA MOVAM BSR MOVAM STATUS MOVAM TMR0 MOVAM TMR1 MOVAM TMR2 -------end initial----- -------------乘法运算------------ 乘数->10H 被乘数->11h 结果(积)->12H 14H 15H 16H 17H(中间运算) --------------------------------- MOVLA 05H 乘数
上传时间: 2015-06-25
上传用户:sqq
This file contains a new and improved version of the Huffman coder, (June 29. 2001). The name is Huff06.m. There are also some additional files which are helpful when using Matlab for data compression: quantizer, different variants of run-length-encoding and end-of-block coding in Mat2Vec, and a program which do JPEG-like entropy coding. A complete compression example is shown in TestMat2Vec.m. This file is all you need for Huffman coding in MatLab.
标签: contains improved Huffman version
上传时间: 2015-07-05
上传用户:jeffery
An example to illustrate how to set the internal adjustable CID gain and receive FSK or DTMF data. Assume end-code of DTMF data string is "D".
标签: adjustable illustrate internal example
上传时间: 2015-07-05
上传用户:nairui21
1. PL/0 语言介绍 ●PL/0 程序设计语言是一个较简单的语言,它以赋值语句为基础,构造概念有顺序、条件和重复(循环)三种。PL/0 有子程序概念,包括过程定义(可以嵌套)与调用且有局部变量说明。PL/0语言编译程序采用以语法分析为核心、一遍扫描的编译方法。词法分析和代码生成作为独立的子程序供语法分析程序调用。语法分析的同时,提供了出错报告和出错恢复的功能。在源程序没有错误编译通过的情况下,调用类PCODE解释程序解释执行生成的类PCODE代码。 ●保留字(关键字):所谓保留字是指在Pascal语言中具有特定的含义。标准Pascal语言中的保留字一共有35个,Turbo Pascal语言一共有51个。下面是Pascal语言的保留字:AND,ARRAY,BEGIN,CASE,CONST,DIV,DO,DOWNTO,ELSE,end,FILE,FOR,FUNTION,GOTO,IF,IN,LABEL,MOD,NIL,NOT,OF,OR,PACKED,PROCEDURE,PROGRAM,RECORD,REPEAT,SET,THEN,TO,TYPE,UNTIL,VAR,WHILE,WITH,EXPORTS,SHR,STRING,ASM,OBJECT,UNIT,CONSTRUCTOR,IMPLEMENTATION,DESTRUCTOR,USES,INHERITED,INLINE,INTERFACE,LIBRARY,XOR,SHL
上传时间: 2015-07-17
上传用户:zm7516678
MCRGSA------组播路由问题遗传模拟退火算法 %M-----------遗传算法进化代数 %N-----------种群规模,取偶数 %Pm----------变异概率调节参数 %K-----------同一温度下状态跳转次数 %t0----------初始温度 %alpha-------降温系数 %beta--------浓度均衡系数 %ROUTES------备选路径集 %Num---------到各节点的备选路径数目 %Cost--------费用邻接矩阵 %Source------源节点标号 %end---------目的节点标号组成的向量 %MBR---------各代最优路径编码
上传时间: 2015-07-18
上传用户:363186
This text surrounds the development of the electric power SCADA system exactly, aiming at the present condition of the our country electric power charged barbed wire net currently, according to the oneself at the e- lectric power protect the profession after the electricity in seven years of development, design and adjust to try the experience on the scene from following severals carry on the treatise:Is the emergence to the system of SC- ADA and developments to introduce first Carry on the introduction elucidation to applied present condition and the development foregrounds of various terminal equipments communication agreement(rules invite) the next in order Then is the elucidation to the windows the bottom according to the mfc the plait distance environment an- d VC++6.0 plait distance softwares Carry on the more detailed treatise to the realization of the procedure struct- ure frame and the source code again end is the applied case example give examples.
标签: the development surrounds electric
上传时间: 2014-10-28
上传用户:liuchee
请设计程序,使其实现以秒计时的功能。首先定义一个watch类,它有两个私有变量begin、end分别表示开始时间、结束时间,有成员函数start()、stop()、show()分别用来设置开始时间、结束时间、显示持续时间。
标签: 设计程序
上传时间: 2013-12-12
上传用户:2467478207