怎样构建一个数学公式。高分请进》 (200分)

每一次产生96个数，使得一段数为零，一段数为A（比如是6），一段数又为零，一段数为A。。。
产生的间隔不固定，可调整 比如这样：
0、0、0、A、A、A、A、0、0、0、0、A、A、A、..共96个
A A A 0 0 0 0 0 0 A A.. .共96个
....
依次类推
如有价值，我所有分都给了。表示谢意

1：是不是固定是两个数？
2：每个数的个数有没有固定的？

问什么呢？

看不懂想做什麼？

哥们，试试：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TMySArray = array[0..95] of string;
TMyIArray = array[0..95] of integer;
TForm1 = class(TForm)
Button1 : TButton;
memo : TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
Function SetSort(Astr,Bstr : char) : string;
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
memo.Lines.Text := SetSort('a','0');
showmessage(SetSort('a','0'));
end;

function TForm1.SetSort(Astr, Bstr: char): string;
var
i : integer;
ResultStr : string;
A : TMySArray;
B : TMyIArray;
begin
Randomize;
ResultStr := '';
for i := Low(A) to High(A)do
begin
B := Random(2);
if B = 0 then
A :=Astr
else
A :=Bstr;
ResultStr := ResultStr + A;
end;
Result := ResultStr;
end;

end.

楼上的程序可以的！
procedure TForm1.Button1Click(Sender: TObject);
begin
memo.Lines.Text := SetSort('0',edit.text);
end;
edit.text 可以输入任何你想要值（1..9）！

数据量大么 ？ 要压缩么 ？
。这是什么数学公式啊

声明一个96个成员的数组，
循环96，每次都声称一个随机数，如果〉0.5就把相应的成员赋值为A，其余的就是0

楼上，这96个数，不是随机的
也有点规律
得一段数为零，一段数为A（比如是6），一段数又为零，一段数为A。。。
产生的间隔不固定，可调整 比如这样：
0、0、0、A、A、A、A、0、0、0、0、A、A、A、..共96个
A A A 0 0 0 0 0 0 A A.. .共96个

可以用随机数来控制个数,之后跳到填充完成员的后面,继续循环,在具体过程上就麻烦一些了

randomize;
for I := 0 to 95do
if random(2) = 1 then
R := 0 else
R := A;
有什么问题?它肯定是一段是0,一段是A,只不过这一段
的长度有时是1,题目也没要求多长的"段"

或者这样,通过调整下面的Random(5),可以产生段的大小
var
flick: Integer;
begin
flick := 0;
randomize;
for I := 0 to 95do
begin

if random(5) = 0 then
begin
if flick = 0 then
flick := A else
flick := 0;
end;
R := filck;
end;
end;

楼主没把问题描述清楚，每个数的个数有没有固定？
比如：A0A0A0...或者A00000....这样的序列行不行

这96个数，不是随机的
但间隔是随机的
产生总数为96的随机数为间隔数撒！.....