unit UDemo33; //使用break与continue语句和for与continue语句 //※ 利用while循环和break语句，求前多少个自然数（项数）平方之和大于指定的正数。

开发技术指南» 文章正文

引言： unit UDemo33; //使用break与continue语句和for与continue语句 //※ 利用while循环和break语句，求前多少个自然数（项数）平方之和大于指定的正数。

摘要：delphi爱好者们，你们好看到这么多人对delphi情有独钟，作为一个delphi的老战士，我倍感后继有人，也因此而欣慰无比。 borland公司是一家有着世界上最优秀的工程师与最糟糕的管理者的公司。我爱borland，因为她优秀的令微软望尘莫及的技术；我恨borland，因为她总是在每一个紧要的关口由于领导人的失误一次再一次的错失良机。百年不可一遇的天才anders hejlsberg走了......

·ota:向image list里添加图片[d5] »显示摘要«

摘要：使用image editor来创建一幅包含一个16x16的图片资源的资源文件。然后将下列代码添加到你的向导代码中：constructor mywizard.create;varservices: intaservices;bmp: tbitmap;imageindex: integer;begininherited;supports(borlandideservices, intaservices......

使用break与continue语句和for与continue语句

unit udemo33;

//使用break与continue语句与for与continue语句【程序编程相关:模拟delphi编辑窗体操作控件。。。】

【推荐阅读:Microsoft Office Inf】

//※ 利用while循环与break语句,求前多少个自然数（项数）平方之与大于指定的正数. 【扩展信息:重新编译 vcl70.bpl 】

//※ 利用for循环与continue语句,在26个小写字母中依次选择其ascii为偶数的字母

// 组成的字符串.

//求项数的算法:

//声明局部整体变量:i表示循环变量,sum表示求与,max表示输入的值.

//① 用inputquery输入max,如果未完成输入操作或max<=0,则返回应用程序.

//② 设置初值:i=1,sum＝0.

//③ 累加当前i的平方到sum.

//④ 如果sum>max,则执行break转到步骤6.

//⑤ i增值1,并转到步骤3.

//⑥ 组织字符串,并在标签组件上输出i的值.

// 求字符串算法:

// 声明局部字符串变量s表示所求的字符串,声明局部字符型变量ch表示连接到s的字符.

//① 设置初值:s=;

//② 对于ch等于a到z,进行到步骤4.

//③ 如果ch的ascii码(ord(ch))为奇数,则执行continue转到步骤2.

//④ 连接ch到s,并转到步骤2.

//⑤ 组织字符串,并在标签组件上输出s.

interface

uses

windows, messages, sysutils, variants, classes, graphics, controls, forms,

dialogs, stdctrls;

... 下一页

·在firebird里如何防止空值扩散 »显示摘要«

摘要：在统计、计算、合并数据时，空值扩散问题，有时不经意冒出来，一不小心，就会导致结果出错。我举个例子。有一个成绩表achieve,有四个字段：yuwen、shuxue、yingyu、total，分别用来存储语文、数学、英语及总分。现在要计算学生的总分，现写出如下sql语句： update achieve set total=yuwen+shuxue+yingyu 这句语句好像是没错的，但有时得不......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：