从1到100秒有100个数据,用第二秒的数据减去第一秒的有个差值,在用第三秒的减去第二秒的有个差值,依此类推一直到100秒
统计出在所有的差值中中对于每一个差值,跟它差值相等的出现次数。算法是什么?万分感谢!!!
统计出在所有的差值中中对于每一个差值,跟它差值相等的出现次数。算法是什么?万分感谢!!!
解决方案 »
- 请问如何使用DBGRID显示数据库的内容啊?
- Delphi 判断鼠标在别的应用程序上的形状
- edit如何达到以下效果
- MDIForm程序中,为什么MDIChlid子窗口放到最在后,MDIChlid子窗口的最小,还原,关闭三个安钮就不见了,以至无法再操纵,应改哪些属性?3
- 如何让程序不在win2000的任务管理器里面的<应用程序>页里的列表里出现(进程页里面可以有)
- 您好,请教怎么将数据表中的数据表现在图像上?谢谢您。
- 急急!!!!请问各位高手,在DELHPI5怎样取98注册表中的值????
- 怎么判断111.wav文件播放完了??????????????????????
- 为什么我在别名里输入了密码,还是要在TDatabase里设置拥护和密码?
- 如何实现DBGRID的显示?
- select 多表查询 顺便统计 Access
- 新版本怎么搜索?
不过可以考虑把差值放入数据库中然后一个const和group by搞定
var
arr1:array[0..99] of Integer;
arr2:array[0..98] of Integer;
i,j,ftemp,fCount:integer;
begin
//从1到100个数
for i:=0 to 99 do
begin
//赋予任意值
arr1[i]:=RandomRange(0,100);
end;
for j:=0 to 98 do
begin
//差值赋予数组arr2
arr2[j]:=arr1[j+1]-arr1[j];
end;
Memo1.Lines.Clear;
for i:=0 to 98 do
begin
//取差值
ftemp:=arr2[i];
//初始fcount,有同样差值多少个
fCount:=0;
for j:=0 to 98 do
begin
if ftemp=arr2[j] then
Inc(fCount);//计数加1
end;
Memo1.Lines.Add('第'+IntToStr(i+2)+'个和'+IntToStr(i+1)+'第个的差是'+IntToStr(ftemp)+'出现'+IntToStr(fCount)+'次');
end;
end;