彩票模拟程序(50分)

may158 · 2001-08-22

专家好：
我是一个Delphi初学者，先编写一个简单的彩票模拟程序，但有几个问题不能解决，
请专家指导：
1、全组合问题：给出几个数，如“01 02 03 04 05 06 07 08 09 10 11 12…36”（我想用字符串处理号码），
怎样能得到这些数的全组合，如：这36个数中任意12个数的全组合C3612，可以将全组合保存到文本文件中。
2、兑奖问题：01 02 03 04 05 06 07 08 09 10 11 12为我选的号码，01 02 03 04 12 15 18 20为中奖号码，我想通过这两个字符串的比较，得出中奖情况（[3+1、4、4+1、5、5+1、6、6+1、7、7+1]）。
mayee@0451.com 谢谢！

conquer · 2001-08-24

全组合问题的答案可以找组合数学书看看，经典的算法多的是。
=可以比较两个字符串是否相等。

creation-zy · 2001-09-22

给你一个非常"恐怖"的实现算法——该算法甚至没有使用递归！！

http://www.delphibbs.com/delphibbs/dispq.asp?lid=322810

至于如何将结果保存到文件，就不用说了吧...

菜中菜 · 2002-05-23

这个是对奖用的,我刚学会PASCAL时写的...
//unit
unit unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls;
type
TLiLi = class(TForm)
OpenDialog1: TOpenDialog;
open: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
ok: TButton;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Button1: TButton;
memo1: TRichEdit;
SaveDialog1: TSaveDialog;
Button2: TButton;
Image2: TImage;
Image1: TImage;
Label3: TLabel;
procedure openClick(Sender: TObject);
procedure okClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
LiLi: TLiLi;
f:TEXTFILE;
temp:string;
love,i,j,n:integer;
base,spe,sp,p:byte;
jihe:set of 1..33;
a:array[1..40000,1..8]of byte;
b:array[1..6]of integer;
bb,boo,boo2:boolean;
implementation
{$R *.DFM}
Procedure out(bee:integer);
Begin
temp:='';
if i<10 then temp:='No.0000'+inttostr(i)+':';
if (i>9)and (i<100) then temp:='No.000'+inttostr(i)+':';
if (i>99)and (i<1000) then temp:='No.00'+inttostr(i)+':';
if (i>999)and (i<10000) then temp:='No.0'+inttostr(i)+':';
if i>9999 then temp:='No.'+inttostr(i)+':';
for p:=2 to 8 do if a[i,p]>9 then temp:=temp+' '+inttostr(a[i,p])
else temp:=temp+' 0'+inttostr(a[i,p]);

temp:=temp+' ('+inttostr(bee)+'等奖)';
boo:=true;
inc(b[bee]);
End;

Procedure Check(a,b:integer);
Begin
Case a of
3:if b=1 then out(6);
4

ut(6);
5:if b=1 then out(4) else out(5);
6:if b=1 then out(2) else out(3);
7

ut(1);
end;
End;

procedure TLiLi.openClick(Sender: TObject);
var
S: String;
y: Integer;
CHA:CHAR;
begin

for i:=1 to 10000 do
for j:=1 to 8 do a[i,j]:=0;
for i:=1 to 6 do b:=0;
if OpenDialog1.Execute then begin
AssignFile(f,OpenDialog1.FileName);
Reset(f);
READ(F,CHA);
if (ORD(CHA)<48)OR(ORD(CHA)>57) then bb:=true
ELSE bb:=false;

N := 0;
while not SeekEof(f) do
begin
if SeekEoln(f) then
Readln
{ Go to next line }
Readln(f,CHA);
inc(N);
end;

reset(f);
if bb then begin readln(f,s);dec;end;
for i:=1 to n do
for j:=1 to 8 do read(f,a[i,j]);

CloseFile(f);

edit1.enabled:=true;
edit2.enabled:=true;
edit3.enabled:=true;
edit4.enabled:=true;
edit5.enabled:=true;
edit6.enabled:=true;
edit7.enabled:=true;
edit8.enabled:=true;
edit1.color:=clHighlightText;
edit2.color:=clHighlightText;
edit3.color:=clHighlightText;
edit4.color:=clHighlightText;
edit5.color:=clHighlightText;
edit6.color:=clHighlightText;
edit7.color:=clHighlightText;
edit8.color:=clHighlightText;
OK.Enabled:=true;

end
else
end;

procedure TLiLi.okClick(Sender: TObject);
var pp,qq:string;
x,tt:integer;
te:boolean;
begin

memo1.lines.clear;
for i:=1 to 6 do b:=0;
if a[1,1]=0 then begin
MessageDlg('您还没有选取文件！',
mtInformation,[mbOk], 2);
exit;
end;
if (EDIT1.TEXT='')THEN BEGIN
MessageDlg('您还没输入中奖号码!',
mtInformation,[mbOk], 2);
EXIT;
end;
boo:=false;
te:=true;
jihe:=[];
jihe:=[strtoint(edit1.text)]+[strtoint(edit2.text)]+[strtoint(edit3.text)]+[strtoint(edit4.text)]+[strtoint(edit5.text)]+[strtoint(edit6.text)]+[strtoint(edit7.text)]+jihe;
sp:=strtoint(edit8.text);
pp:='';
for x:=1 to 33 do if x in jihe then pp:=pp+' '+inttostr(x);
memo1.lines.add('本期号码为：');
memo1.lines.add('基本号:'+pp);
memo1.lines.add('特别号: '+inttostr(sp));

for i:=1 to n do

begin
base:=0;
spe:=0;
for j:=2 to 8 do
begin
if a[i,j] in jihe then inc(base);
if a[i,j]=sp then spe:=1;
end;
if base>=3 then check(base,spe);
if boo then Memo1.lines.add(temp);
boo:=false;

end;
Memo1.lines.add('');
Memo1.lines.add('统计：');

for tt:=1 to 6 do begin
pp:=inttostr(tt)+'等奖: '+inttostr(b[tt])+' 注';
Memo1.lines.add(pp);
end;
pp:='4、5、6等奖共合人民币 '+inttostr(b[4]*500+b[5]*50+b[6]*5)+'元';
memo1.lines.add(pp);
memo1.lines.add('');
love:=0;
for i:=1 to 6 do love:=love+b;
pp:='总购买注数： '+inttostr;
memo1.lines.add(pp);
pp:='总中奖注数： '+inttostr(love);
memo1.lines.add(pp);

button1.Enabled:=true;
button2.Enabled:=true;

for i:=1 to 3 do if b<>0 then begin
qq:='恭喜您中了 '+inttostr(i)+'等奖 '+inttostr(b)+' 注!';
MessageDlg(qq,mtInformation,[mbOk], 0);
te:=false;
end;

for i:=4 to 6 do if b<>0 then begin
qq:='恭喜您中了 '+inttostr(i)+'等奖 '+inttostr(b)+' 注!';
MessageDlg(qq,mtInformation,[mbOk], 0);
end;

if te then MessageDlg('革命尚未成功，同志仍需努力!',mtInformation,[mbOk], 0);

end;

procedure TLiLi.Button1Click(Sender: TObject);
begin
Memo1.SelectAll;
Memo1.CopyToClipboard;
MessageDlg('中奖结果已复制到剪贴板中!',mtInformation,[mbOk], 0);
end;

procedure TLiLi.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
MessageDlg('中奖结果已保存!',mtInformation,[mbOk], 0);
end;
end;

end.

//dfm
object LiLi: TLiLi
Left = 140
Top = 131
Width = 365
Height = 377
Caption = 'LiLi'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 12
object Label1: TLabel
Left = 117
Top = 56
Width = 77
Height = 14
Caption = '基本号码'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 245
Top = 56
Width = 42
Height = 14
Caption = '特别号'
Color = clSilver
Font.Charset = GB2312_CHARSET
Font.Color = clGreen
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label4: TLabel
Left = 16
Top = 328
Width = 60
Height = 12
Caption = '作者：LiLi'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Image2: TImage
Left = 112
Top = 8
Width = 137
Height = 33
Picture.Data = {
07544269746D6170FA2D0000424DFA2D00000000000036000000280000008600
00001D0000000100180000000000C42D0000C40E0000C40E0000000000000000
0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00
00FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
BFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000
FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBF0000FF0000
FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF
0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBF0000BFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBF
BFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBF
BFBF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF00
00FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF
0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
00FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
BFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBF
BFBFBFBF0000FF0000FF0000FFBFBFBF0000FF0000FF0000FF0000FF0000FFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000
FFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000
FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00
00FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBF
BFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF
0000FFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBF0000FF0000FF0000FF
BFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000
FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBF
BFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBF0000FF00
00FFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF
0000BFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF
0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBF0000
FF0000FFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000
FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBF0000FF0000FF0000FFBFBFBF0000FF0000FF0000FF0000FF0000FF00
00FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBF00
00FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBF
BFBFBF0000FF0000FF0000FF0000FFBFBFBF0000FF0000FF0000FFBFBFBFBFBF
BF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF
0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000
FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBF0000FF0000FF0000FF0000FF0000FFBFBFBF0000FF0000FF0000FF
0000FFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000
FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBF
BFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000
FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF
0000FF0000FF0000FF0000FF0000FFBFBFBF0000FF0000FF0000FF0000FFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
BFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBF0000FF0000FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00
00FFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBF0000FF
0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF
0000FF0000FFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF
0000FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBF0000
FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF00
00FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBF0000FF00
00FF0000FF0000FF0000FFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBF
BFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00
00FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF
0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FF
0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF00
00FFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF00
00FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
BFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000
FFBFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000
FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
00FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBF
BFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
0000FFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBF0000
FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBF
BF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
00FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000
FFBFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF00
00FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00
00FFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF
0000BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBF0000FF0000FF0000FF0000FFBFBFBF0000FF0000FF0000FF0000FF0000
FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000
FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF0000
FF0000FF0000FF0000FF0000FFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
BFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF
0000FF0000FF0000FF0000FF0000FFBFBFBF0000FF0000FF0000FF0000FFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000
FFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBF
BFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00
00FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF
0000FFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBF
BFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000
FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBF0000FF
0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00
00FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF
0000FF0000FF0000FFBFBFBFBFBFBF0000FF0000FFBFBFBF0000FF0000FF0000
FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBF0000FF0000FF0000FFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00
00FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF
0000FF0000FF0000FF0000FFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBF
BFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000
FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF
BFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FF00
00FFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF
BFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000
FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
00FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
0000BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000FF0000FF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FF0000FF0000
FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
BFBFBFBFBF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000
FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000
FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF
0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000
FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF0000FFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBF0000}
end
object Image1: TImage
Left = 50
Top = 8
Width = 41
Height = 33
Picture.Data = {
07544269746D6170B60D0000424DB60D00000000000036000000280000002400
0000200000000100180000000000800D0000C40E0000C40E0000000000000000
0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFC3C3C3C7C7C7C7C7C7C7C7C7CFCDCBBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFCDCFE7E5E7B3AFAF9390938F8E8F9794
9F9B979F7B7B7FD7D3CFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFD7DBDF8789
E7272BD71F23DF1B1FDB171BD7171DD71F23A79F9D93DFDBDBBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFCBCAF3171EDF1F20DF1F20DF1F20DF1F20DF171DDF4B
4B6FE7E4DFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFCDCFD7DBDBE7E9E73B3CE31B1EDF1F
20DF1F20DF1F20DF1B1FE31F21A3A3A39BDFDBDBBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFD7D9D7BF
BBB79F9D935759D7171CDF1F20DF1F20DF1F20DF1F20DF171FDF4B4B6BDBDDDB
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBF9FA1EB373ED337397F8783AB1B22DF1F20DF1B1EDF1F20DF
1F20DF1F20DF2323A3A3A197CFCDCBBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFCDCFD7D4F7131BE3171BCB77776F
474BDF171CDF1F20DF1F20DF1F20DF1F20DF1F1FD7434367AFB3ABBBBFBCB7BD
B8B7BBB8B7BBB8B7B9B7C3C5BFF7F3F3CFCDCFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFDFDBDFE7E3E3D3D0C8CFCCC7CFCBC7C3C5B4
97939B3B3CDF131DEB43436B7776BF171CDF1F20DF1F20DF1F20DF1F20DF1F20
DF2B2BB777779B7F7B9F7B77A37B77A37B79A76365AB676B837B7B73BFBFB8CB
C9C7BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFEBE9E3CFCFD38B89A7
5355B75F61676366CB3B39C3373B9B6766C3171BE31F23A77B79832B31E31F20
DF1F20DF1F20DF1F20DF1F20DF1F20DF171BDF1018E7131AE3131AE3171CDF17
1CDF171BDF272BCB4B457393958BC7C7C3BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
CBCFCB9B9DDB272DD7131AE3131BEB2B2D936B67A7171DE3131DDF5B5B8F272D
DF131BDB4F4F6B6364D31B1EDF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF1F
20DF1F20DF1F20DF1F20DF1F20DF1F20DF1B1EE3171DDF2B2D879B998FCFCDCB
BFBFBFBFBFBFBFBFBFDFDBDB8B8BDB1317E31F20DF1F20DF1F20DF1F1FC36365
773739E3171CE33333A75354CB131BE72325978385A31F24DF1F20DF1F20DF1F
20DF1F20DF1F20DF1F20DF1B1EDF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF
1F20DF171FDF3F3F7FDBD9CFBFBFBFBFBFBFBFBFBFB7B5DB1B1FDF1F20DF1F20
DF1F20DF1B1EDF1B1EDF53518F9392DF171CDF1B1DCF6F6D9B2728E3171FD75F
5F674F52DB171CDF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF171CE3171CDF
171CDF1F20DF1F20DF1F20DF1F20DF1F20DF171DCB838287DBDBDBBFBFBFCBCB
CB5F65E31B1DE31F20DF1F20DF1F20DF1F20DF171BDF4B4FC7F3F3F73338E31F
20DF43438F474BD3131BE733317B7B7DBB171CDF1F20DF1F20DF1F20DF1F20DF
1F20DF1F21BF5757AF8B8BEB6B70E7171EDF1F20DF1F20DF1F20DF1F20DF171D
E3333383D7D7CFBFBFBFCBCBD72F31E31F20DF1B1EDF1F20DF1F20DF1F1FD76B
6DBFEFEFF7FFFFFF9395E71318DF1B1DC76766B7171EE3171BC76F6A7B3B3CE3
171CDF1F20DF1F20DF1F20DF1F20DF1B1DC773716FFBFBFBFBFBFBA3A0E7171C
DF1F20DF1F20DF1F20DF1B1FE31B1DC3AFB1A7BFBFBFABADD31F26DF1F20DF1F
20DF1F20DF1F20DF1B1DD39F9F9BFBFBFBFFFFFFE3E1F71F24E3171DE34B4C84
3B3EDF171CE34343736F6FC7171CDF1F20DF1F20DF1F20DF1F20DF131BE73F3F
83E3E3DBFFFFFFF7F5FB474BE31B1EDF1F20DF1F20DF1F20DF1B1DD79F98A7BF
BFBFAFAFCF2327DF1F20DF1F20DF1F20DF1F20DF171DDF5B5967DBDDD3FBFDFB
FBFDFF6F74E71B1EDF2727AB6766C3131BE72324AB7F7D8F2B2EE31F20DF1F20
DF1F20DF1F20DF1B1FE31F22AB9F9D97F3EFEBF7F5EF7777E7171CDF1F20DF1F
20DF1F20DF1B1EDF9799BBBFBFBFCBCBD73335E31F20DF1F20DF1F20DF1F20DF
1F20DF2B2B9F737367B3B3ABCFC7BC9F9FCF1318E3171DDB5B5B8F3337E71B1D
D753506F5B5CDB171CDF1F20DF1F20DF1F20DF1F20DF1F1FD74B4B6F8F8F889F
9FBB2B2FD71F20DF1F20DF1F20DF1F20DF1F20DFA7A7C7BFBFBFD7D9DB4F52E3
1B1EDF1F20DF1F20DF1F20DF1F20DF1F20DF2B2DBF63679B6B6F9B6365774344
DF131DE72F319B5F61C7171BE323259B7F7FA71B22DF1F20DF1F20DF1F20DF1F
20DF1F20DF1F21DB2B2FCB1B1FDB1B1EDF1F20DF1F20DF1F20DF1B1EDF1F23DF
C7C5CFBFBFBFBFBFBF9FA3E8171CDF1F20DF1F20DF1F20DF1F20DF1F20DF1B1E
E3171BE3171DE72F2F937371BF131ADF171FCB6F6E972328E3171DCF63616F47
4DE31318DF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF
1F20DF1F20DF1B1EE34348D3DBD9DBBFBFBFBFBFBFCFCFD7343CDF1B1EDF1F20
DF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF1B1DCF6B697F3737E3131AE33F
3D93535AD3131DE737337F7F81BB171DE31F20DF1F20DF1F20DF1F20DF1F20DF
1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF1F23DBB3B3D3BFBFBFBFBFBFBFBF
BFBFBFBFD3D1EF2327DF1B1EDF1F20DF1F20DF1B1EDF1B1EDF1F20DF1F20DF1B
1EDF37336F6766CB131BE31F21B77371A7171EE3171DCB77797F3739E71F20DF
1B1EDF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF171BDF9797
DFCFCDCBBFBFBFBFBFBFBFBFBFBFBFBFCFCDCFBFC1DF4F52E70F16DF1F20DF1F
20DF1F20DF1F20DF1F20DF1F20DF1F1FC377778F2328E31B1FDB5353834349DF
0F17EB43436B6B6BCF171CDF1F20DF1F20DF1F20DF1F20DF1F20DF1F20DF1F20
DF171CE32F31D3ABADEBCBCDCBBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFD3D3D7B3B5EF5B60DF3739E7171EDF131ADF171CDF131ADF0F17EB6F6FA3
7F84E4171CDF2324AB736FAB171DE71F21A77375932B2BE31B1FD71B21DB1B21
DF1B21DB3B3FDF3F44DF575EE39395DFCBCBD7BFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCBCDCFCBCBD7B7B7CFAFB1DF
BFC0EFBFC0EF9FA3CFC7C9D7CBCBD72F36DF1B1DDB5759873B3EDF171DDF4B4B
6F7B77987F80977B7B9373738B6B6B83D7D5DFCFCFD7DBDBDFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFCDCF7B7CEB1B1E
DF2727A77371D3131BE32727D7272BCF272BD32327D31F23DF2B2D87EBEBE3BF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFC3C7E31B22DF171FCB636487272DDF131ADF1B1EDF1319DB17
1CDF171BDB1F23C7E3E7EBBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFDBDBDF676EE3171FE73B398773
739F6B67A367659F7776A75B598BB7B7CBCFCFD7DBD9DBBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFB3B5E31B20DF1F21DF2B2FCF2B2FD32B2FD32329DB272997C7C7BFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFDBD9DB5358E3171CDF1B1EDF1F20DF1F20DF
171CDF171BD7B3B3C7BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFC7C5EF
676CE7777BE7777BE77F84E88385E38385E7C3C3DBBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBF}
end
object Label3: TLabel
Left = 266
Top = 24
Width = 41
Height = 14
Caption = 'V 1.0'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = '宋体'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object open: TButton
Left = 38
Top = 288
Width = 65
Height = 25
Caption = '打开'
TabOrder = 0
OnClick = openClick
end
object Edit1: TEdit
Left = 69
Top = 80
Width = 25
Height = 24
Color = clInactiveCaptionText
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object Edit2: TEdit
Left = 93
Top = 80
Width = 25
Height = 24
Color = clInactiveCaptionText
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object Edit3: TEdit
Left = 117
Top = 80
Width = 25
Height = 24
Color = clInactiveCaptionText
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object Edit4: TEdit
Left = 141
Top = 80
Width = 25
Height = 24
Color = clInactiveCaptionText
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object Edit5: TEdit
Left = 165
Top = 80
Width = 25
Height = 24
Color = clInactiveCaptionText
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
end
object Edit6: TEdit
Left = 189
Top = 80
Width = 25
Height = 24
Color = clInactiveCaptionText
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
end
object Edit7: TEdit
Left = 213
Top = 80
Width = 25
Height = 24
Color = clInactiveCaptionText
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
end
object Edit8: TEdit
Left = 253
Top = 80
Width = 25
Height = 24
Color = clInactiveCaptionText
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
object ok: TButton
Left = 110
Top = 288
Width = 65
Height = 25
Cursor = crHandPoint
Caption = '查询'
Enabled = False
TabOrder = 9
OnClick = okClick
end
object Button1: TButton
Left = 182
Top = 288
Width = 65
Height = 25
Caption = '复制'
Enabled = False
TabOrder = 10
OnClick = Button1Click
end
object memo1: TRichEdit
Left = 11
Top = 112
Width = 335
Height = 161
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 11
end
object Button2: TButton
Left = 254
Top = 288
Width = 65
Height = 25
Caption = '保存'
Enabled = False
TabOrder = 12
OnClick = Button2Click
end
object OpenDialog1: TOpenDialog
Filter = '文本文件|*.txt'
Left = 600
Top = 176
end
object SaveDialog1: TSaveDialog
DefaultExt = '*.rtf'
FileName = '中奖结果'
Filter = 'RTF文件|*.RTF'
Left = 592
Top = 144
end
end

菜中菜 · 2002-05-23

我刚刚写的算组合的,用DFS搜的,应该没错的
//edit1填N,edit2填M

代码:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const max=33;
var
  Form1: TForm1;
  fileout:string;
  fout:text;
  Stack:array[1..max]of integer;
  Used:array[1..max]of boolean;
implementation

{$R *.dfm}

Procedure Init;
Begin
  fillchar(Stack,sizeof(Stack),0);
  fillchar(Used,sizeof(Used),0);
End;

Procedure Out(m:integer);
Var i:integer;
Begin
  For i:=1 to m-1 do if Stack[i]>Stack[i+1] then exit;
  For i:=1 to m do write(fout,Stack[i],' ');
  writeln(fout);
End;

Procedure Dfs(k,n,m:integer);
Var i:integer;
Begin
  if k>m then
  begin
    out(m);
    exit;
  end;
  for i:=1 to n do
    if not used[i] then
    begin
      stack[k]:=i;
      used[i]:=true;
      Dfs(k+1,n,m);
      used[i]:=false;
    end;
End;



procedure calc(n,m:integer;st:string);
begin
  assignfile(fout,st);
  rewrite(fout);
  dfs(1,n,m);
  close(fout);
  showmessage('Calc done');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if savedialog1.Execute then
  begin
    init;
    Calc(strtoint(edit1.text),strtoint(edit2.text),savedialog1.FileName);
  end;
end;

end.]

jomee · 2002-05-23

关注。

彩票模拟程序(50分)

may158

Unregistered / Unconfirmed

conquer

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

菜中菜

Unregistered / Unconfirmed

菜中菜

Unregistered / Unconfirmed

jomee

Unregistered / Unconfirmed

Similar threads