Solved

Code Translation

Posted on 2004-09-30
3
195 Views
Last Modified: 2010-05-19
Can someone translate the code below to VB/ VBA?



int N, M, P;     /* the given values of N, M, and P */
int S[N+1];      /* Given set S -- not using array element 0 */


int c[M+1];      /* indicates which indexes are in the current subset */
int SUM = 0;     /* current sum */
int tsum;        /* temporary for a partial sum of newly added elements */
int count = 0;   /* number of subsets whose SUM is < P
int i;
int j=1;

c[0] = -1;
for i=1 to M by 1     /* loop sets initial subset and its SUM */
    {
    c[i] = i;
    SUM = SUM + S[i];
    }
   
while (j > 0 AND SUM < P)
    {
    count = count + 1;    
    j = M;

    while (c[j] == N - M + j)   /* back up throwing elements out */
        {
        SUM = SUM - S[c[j]];
        j = j - 1;
        }
   
    next_update:                /* goto label */
    SUM = SUM - S[c[j]];
    c[j] = c[j] + 1;

    tsum = S[c[j]];
    for i = j+1 to M by 1       /* advance adding elements in */
        {
        c[i] = c[i-1] + 1;
        tsum = tsum + S[c[i]];
        }

    if (SUM + tsum >= P)
        {
        j = j - 1;             /* backup 1 level */
        if (j <= 0) break;     /* break out of while loop */
        goto next_update;
        }
 
    SUM = SUM + tsum;
    }

print "the number of subsets is," count;
0
Comment
Question by:tli99
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 56

Accepted Solution

by:
Julian Hansen earned 250 total points
ID: 12198314
Try this (I have not tested this but it should be mostly there)

Dim N as integer
Dim M as Integer
Dim P as Integer      /* the given values of N, M, and P */
Dim SUM as Ingteger      /* current sum */
Dim tsum as Integer      /* temporary for a partial sum of newly added elements */
Dim count as Integer      /* number of subsets whose SUM is < P
Dim i as Integer
Dim j as Integer
Dim S() as Integer      /* Given set S -- not using array element 0 */
Dim c() as Integer

ReDim S(N+1)
ReDim c(M+1)            /* indicates which indexes are in the current subset */

j = 1
count = 0
Sum = 0
c(1) = -1

for i= 1 to M            /* loop sets initial subset and its SUM */
    c(i) = i
    SUM = SUM + S(i)
next
   
do while j > 0 AND SUM < P
  count = count + 1
  j = M

  do while c(j) = (N - M + j)   /* back up throwing elements out */
    SUM = SUM - S(c(j]))
    j = j - 1
  loop    

next_update:                /* goto label */

  SUM = SUM - S(c(j))
  c(j) = c(j) + 1

  tsum = S[c[j]];
  for i = j+1 to M       /* advance adding elements in */
    c(i) = c(i-1) + 1
    tsum = tsum + S(c(i))
  next

  if SUM + tsum >= P then
    j = j - 1             /* backup 1 level */
    if j <= 0 then
      Exit Do
    end if                 /* break out of while loop */
   
    goto next_update
  end if
 
  SUM = SUM + tsum
loop

MsgBox "the number of subsets is," & count
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
firstswap challenge 20 84
Delphi: barcode reading on android platform 1 70
How to Convert a Quote to an Order in SalesForce 2 112
Developing a front end to SPLUNK 1 54
This article will show, step by step, how to integrate R code into a R Sweave document
Today, the web development industry is booming, and many people consider it to be their vocation. The question you may be asking yourself is – how do I become a web developer?

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question