当前位置:首页
开发技术指南» 文章正文
    引言:

    摘要: 前几天下了个水晶报表10企业版,解压有三个文件损坏,我以为是下载不完全的问题,删除后重新下载,再解压,还是同样的问题,请有水晶报表10企业版的朋友帮我将这三个文件发到我邮箱。谢谢! 因csdn无法贴图,只好请大家看看这个贴子的图片了。 http://www.2168.com.cn/dispbbs.asp?boardid=5&id=55&page=1 ......
    摘要: 我的程序是基于对话框的,开始没有添加上下文帮助,现在想为工程添加帮助,怎末修改呢? ......


算法

我在医生诊间编程碰到个问题,每个草药各有几种规格,比如车前子3克装,5克装,7克装,我输入的数量必须在几个包装数的倍数,3*n+5*n+7*n,也就是3,5,7,3+5,3+3+5,3+5+7+7等等都通过,1,2,4等都不能通过,这样算法怎么写比较好

NO.1   作者: jiangxj

配药量为s  
  药的规格为n1,n2,n3  
  for   i=0   to   s/n1  
  for   j=0   to   (s-i*n1)/n2  
  if   mod(s-i*n1-j*n2,n3)=0   then  
  messagebox(“”,“能分配”)  
  exit  
  end   if  
  next  
  next  
  if   i>s/n1   then  
  messagebox(“”,”不能分配”)  
  end   if  
 

NO.2   作者: csdsjkk

这个效率高点  
   
  long   i,j,k,z,m  
  long   i1,j1,k1  
   
  i1=3  
  j1=5  
  k1=7  
   
  lb_1.reset()  
   
  m=long(sle_1.text)  
   
   
  for   i   =   0   to   m   /   i1  
  for   j   =   0   to   m   /   j1  
  z=i1   *   i   +   j1   *   j    
  if     m   >=   z   and   mod(m   -   z,k1)   =   0     then  
  lb_1.additem(string(i1)+*+string(i)+   +   +string(j1)+   &  
  *+string(j)+   +   +string(k1)+*+string((m   -   z)   /   k1)+=+string(m))  
  end   if  
  next  
  next  
   
   
   
   
 


    摘要: ××××××××××××××××××××××××××××××××......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE