qrnd.c

来自「陈孟建等编著的C语言教程附带光盘」· C语言 代码 · 共 18 行

# include "stdio.h"
void qrnd(a,b,r,p,n)
  int a,b,*r,n,p[];
  { int k,l,m,i;
    k=b-1+1;l=2;
   while (l<k) l=l+1;
  m=4*l;
  k=*r;
  i=0;
 while (i<=n-1)
 { k=k+k+k+k+k;
 k=k%m;l=k/4+a;
 if (l<=b) { p[i]=l;i=i+1;}
 }
 *r=k;
 return;
 }