2011年12月3日
根据金额计算总张数最少的方案
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; ... 阅读全文
posted @ 2011-12-03 16:11 endsnow 阅读(266) 评论(0) 推荐(0)
循环的中断应用被3整除的数
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; p... 阅读全文
posted @ 2011-12-03 14:58 endsnow 阅读(182) 评论(0) 推荐(0)
百钱百鸡
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Memo1: TMemo; Button1: TButton; Label3: TLabel; Label4: TLabel; Label5: TLabel; procedure Button... 阅读全文
posted @ 2011-12-03 14:39 endsnow 阅读(126) 评论(0) 推荐(0)
For语句应用判断是否为素数
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObj... 阅读全文
posted @ 2011-12-03 14:12 endsnow 阅读(862) 评论(0) 推荐(0)
Repeat语句的应用
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Label3: TLabel; Edit2: TEdit; Label4: TLabel; Edit3: TEdit; Button1: TButton; p... 阅读全文
posted @ 2011-12-03 11:25 endsnow 阅读(312) 评论(0) 推荐(0)
While语句的应用
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { P... 阅读全文
posted @ 2011-12-03 11:06 endsnow 阅读(146) 评论(0) 推荐(0)
IF语句的应用
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObj... 阅读全文
posted @ 2011-12-03 10:53 endsnow 阅读(173) 评论(0) 推荐(0)
根据边长计算三角形的面积
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Button2: TButton; procedure Button2Click(Sender: TObjec... 阅读全文
posted @ 2011-12-03 09:49 endsnow 阅读(627) 评论(0) 推荐(0)