DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: sy1012
今日帖子: 0
在线用户: 6
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 may158 (may158) ★☆☆☆☆ -
盒子活跃会员
2004/3/8 16:19:52
标题:
怎样求一维数组元素的最大值、最小值? 浏览:1200
加入我的收藏
楼主: 一维数组a[0..9]=(0.02,0.73,0.59,0.79,0.77,0.74,0.58,0.83,0.96,0.75)
1、求出数组元素的最大值、最小值分别用ab、al表示。
2、怎样判断该数组元素中最多有3个或4个元素不在某一个区间内如[0.60-1]区间。即如果有7个或6个元素在此区间则向下计算,否则重新选择数组。
谢谢!

----------------------------------------------
-
作者:
男 bjdribllec ( ) ★☆☆☆☆ -
盒子活跃会员
2004/3/8 16:27:12
1楼: var i,iCount:integer;
ab:=0; al:=1; iCount:=0;
for i:=0 to 9 do begin
   if a[i]>ab then ab:=a[i];
   if a[i]<al then al:=a[i];
   if a[i]<0.06 then inc(iCount);
end;
  

----------------------------------------------
-
作者:
男 waterstone (waterstone) ★☆☆☆☆ -
盒子活跃会员
2004/3/8 16:32:07
1楼: 1.冒泡你会冒吧!
2.
who:=0;
for i:=0 to 9 do
  if (a[i]>0.60)and(a[i]<1) then 
    who:=who+1;
if who>3 then 3元素不在区间[0.60-1]内

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行60.54688毫秒 RSS