Forums: » Register « |  Free Tools |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support |
 User Name: Password: Remember me

New Free Tools on Dev Shed!
We're Excited to announce that Dev Shed now has 70 free tools on the site. To learn more, click here!

 Dev Shed Forums Sponsor:
#1
October 29th, 2012, 10:09 PM
 huyvu90
Registered User

Join Date: Oct 2012
Posts: 2
Time spent in forums: 22 m 59 sec
Reputation Power: 0
Algorithm help.

Let say I have an array with the following numbers:

1,4,12,22,53,51,49,55,2,5,50,51,100

I'm trying to develop an algorithm that finds the max number of consecutive number in the array that is between 40 and 60.

For the example above, the algorithm should return 53,51,49 and 55. 50,51 are not returned because that is only 2 consective number that is between 40 and 60.

#2
November 25th, 2012, 11:01 PM
 argee
Registered User

Join Date: Nov 2012
Posts: 12
Time spent in forums: 5 h 19 m 45 sec
Reputation Power: 0
Hi huyvu90,

Unless I'm misunderstanding, I think this should do what you want:

Code:
```Dim ArNums() As Integer
Dim i As Integer, j As Integer
Dim savej As Integer

'....code to load numbers into array ArNums

For i = 0 To UBound(ArNums)
If ArNums(i) > 40 And ArNums(i) < 60 Then
j = j + 1
If j > savej Then
savej = j
End If
Else
j = 0
End If
Next i

MsgBox savej          '<----- this should be your answer
' ('4' for your example)```

cheers,

argee

#3
January 1st, 2013, 05:09 AM
 Incidentals
Contributing User

Join Date: Nov 2010
Posts: 89
Time spent in forums: 1 Day 4 h 23 m 19 sec
Reputation Power: 157
Quote:
 Originally Posted by argee Hi huyvu90, Unless I'm misunderstanding, I think this should do what you want: Code: ```Dim ArNums() As Integer Dim i As Integer, j As Integer Dim savej As Integer '....code to load numbers into array ArNums For i = 0 To UBound(ArNums) If ArNums(i) > 40 And ArNums(i) < 60 Then j = j + 1 If j > savej Then savej = j End If Else j = 0 End If Next i MsgBox savej '<----- this should be your answer ' ('4' for your example)``` cheers, argee

you missed the point!

you have coded for an algorythm that returns the number of 40 to 60 values and not considered the consecutive part of the question

the looping is fine but you need to be looking ahead and you need to be flagging the count-now nature of the problem

try walking through the array with 2 pointers if and only if they both point to values in the range should you show them and remember to indicate that a match has ben found. Using the match you will be able to deduce that the first pointer is pointing at a valid entry when the pointers no longer have values in range and at that point you should reset the flag and output the first pointed to value.

hope that explains what to do

code available if needed

#4
January 1st, 2013, 01:30 PM
 argee
Registered User

Join Date: Nov 2012
Posts: 12
Time spent in forums: 5 h 19 m 45 sec
Reputation Power: 0
I am allowing for the consecutive part of the problem.

That's why the loop resets the value of j to 0 if a match is not found, because then the matches are no longer consecutive.

The number of consecutive matches is stored in "savej" only if it exceeds any previously stored value in "savej".

I had considered afterwards that, although they initially said they wanted the maximum number of values, the OP may have wanted the actual consecutive number group returned, not just the count of them. The code could be modified like this :

Code:
```Dim intStartPos As Integer
Dim strResult As String

'...code to load numbers into array ArNums

For i = 0 To UBound(ArNums)
If ArNums(i) > 40 And ArNums(i) < 60 Then
j = j + 1
If j > savej Then
savej = j
intStartPos = i - j
End If
Else
j = 0
End If
Next i

For i = (intStartPos + 1) To (intStartPos + savej)
strResult = strResult & ArNums(i) & ","
Next i

Debug.Print strResult       'contains the consecutive matches separated by commas
```

In any case, this thread is aging and the original poster has not returned it seems.

#5
January 1st, 2013, 05:51 PM
 Incidentals
Contributing User

Join Date: Nov 2010
Posts: 89
Time spent in forums: 1 Day 4 h 23 m 19 sec
Reputation Power: 157
nicely done

I didnt complete my writeup, but its nice to see you did - well done, and the explaination will help others understand your process better.

#6
February 9th, 2013, 05:36 PM
 GGriggs
Registered User

Join Date: Feb 2013
Posts: 18
Time spent in forums: 4 h 45 m 43 sec
Reputation Power: 0
algorythm

the main power of VBA is to use it with excel to do the serious number crunching

Your problem is quite hard in vba but very easy in excel

use VBA to load input and extract and display answers and excel to crunch the numbers

i can't attach for some reason but i have written a spreadsheet to crack it in about 2 mins

email me at graham.griggs@tiscali.co.uk and i will send you a copy

 Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > Algorithm help.

Developer Shed Advertisers and Affiliates

 Thread Tools Search this Thread Search this Thread: Advanced Search Display Modes Rate This Thread Linear Mode Rate This Thread: 5 : Excellent 4 : Good 3 : Average 2 : Bad 1 : Terrible

 Posting Rules You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off
 View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox Forum Jump Please select one User Control Panel Private Messages Subscriptions Who's Online Search Forums Forums Home -------------------- Programming Languages    PHP Development        PHP FAQs and Stickies    Perl Programming        Perl FAQs and Stickies    C Programming        C Programming FAQs and Stickies    Java Help        Java FAQs    Python Programming        Python Programming FAQs    Ruby Programming        Ruby Programming FAQs    Game Development        Game Development FAQs Programming Languages - More    ASP Programming        ASP Programming FAQs    .Net Development        .Net Development FAQs    Visual Basic Programming        Visual Basic Programming FAQs    Software Design        Software Design FAQs    ColdFusion Development        ColdFusion Development FAQs    Delphi Programming        Delphi Programming FAQs    Regex Programming        Regex Programming FAQs    XML Programming        XML Programming FAQs    Other Programming Languages        Other Programming Languages FAQs Web Design    HTML Programming        HTML Programming FAQs    JavaScript Development        JavaScript Development FAQs    CSS Help        CSS Help FAQs    Flash Help        Flash Help FAQs    Photoshop Help        Photoshop Help FAQs    Web Design Help        Web Design Help FAQs    Website Critiques        Website Critiques FAQs    Search Engine Optimization        Search Engine Optimization FAQs Mobile Programming    Mobile Programming        Mobile Programming FAQs    iPhone SDK Development        iPhone SDK Development FAQs    Android Development        Android Development FAQs    BlackBerry Development        BlackBerry Development FAQs Web Site Management    Business Help        Business Help FAQs    Development Software        Development Software FAQs    Scripts        Scripts FAQs Databases    Database Management        Database Management FAQs    DB2 Development        DB2 Development FAQs    MySQL Help        MySQL Help FAQs    PostgreSQL Help        PostgreSQL Help FAQs    Firebird SQL Development        Firebird SQL Development FAQs    MS SQL Development        MS SQL Development FAQs    Oracle Development        Oracle Development FAQs    LDAP Programming        LDAP Programming FAQs System Administration    Mail Server Help        Mail Server Help FAQs    Apache Development        Apache Development FAQs    Security and Cryptography        Security and Cryptography FAQs    Antivirus Protection        Antivirus Protection FAQs    DNS        DNS FAQs    IIS        IIS FAQs    Networking Help        Networking Help FAQs    FTP Help        FTP Help FAQs Operating Systems    BSD Help        BSD Help FAQs    Linux Help        Linux Help FAQs    UNIX Help        UNIX Help FAQs    Windows Help        Windows Help FAQs    Mac Help        Mac Help FAQs Web Hosting    Web Hosting        Web Hosting FAQs    Free Web Hosting        Free Web Hosting FAQs    Web Hosting Requests        Web Hosting Requests FAQs    Web Hosting Offers        Web Hosting Offers FAQs Computer Hardware    Computer Hardware    CPUs        CPUs FAQs    Cooling        Cooling FAQs    Embedded Programming        Embedded Programming FAQs    Motherboards        Motherboards FAQs    Multimedia Hardware        Multimedia Hardware FAQs Other    Dev Shed Lounge        Dev Shed Lounge FAQs    Development Articles        Development Articles FAQs    Beginner Programming        Beginner Programming FAQs    Hire A Programmer        Hire A Programmer FAQs    Project Help Wanted        Project Help Wanted FAQs Latest News Updated Hourly    Technology News    Business News    Science News Forum Information    Forum Rules/Guidelines        Forum Rules/Guidelines FAQs    Forum Announcements        Forum Announcements FAQs    Dev Shed Gaming Center        Go to the Dev Shed Battle Arena        Go to the Dev Shed Arcade Games        Go to the Legend of the Green Dragon    Suggestions & Feedback        Suggestions & Feedback FAQs

 Forums: » Register « |  Free Tools |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support |