30. marts 2002 - 17:53Der er
3 kommentarer og 1 løsning
har brug for et godt råd og en go ide!
Find the products of X times Y, where X and Y are integers which are greater than 0 and less than 1000. From these products find the sum of any which are palindromes
Dette er en opg jeg skal lave men jeg er ikke lige helt sikker på hvordan jeg skal gribe det an!
noget i retningen af:
dim x, y as integer dim sum as long
for x = 1 to 999 for y = 1 to 999 product = x * y if (product = (CInt(StrReverse(CStr(varTal))))) Then 'palindrom sum = product end if next y next x
men dette giver jo som i nok allerede har gættet et enormt overflood (eller hvordan man staver til det)
Jeg er rimelig sikker på jeg har misforstået opgaven er der nogen der har en go ide???
Jeg læser den på samme måde som dig. Jeg har ændret lidt i din kode, og tilføjet en listbox, så nu kører den uden fejl.
Der er 5064 palindromer :)
Private Sub Command1_Click() Dim x, y As Integer Dim Product As Long Dim sum As Long Dim intantal As Integer For x = 1 To 999 For y = 1 To 999 Product = x * y If (Product = (CLng(StrReverse(CStr(Product))))) Then 'palindrom intantal = intantal + 1 List1.AddItem Product sum = sum + Product End If Next y Next x MsgBox sum & " - " & intantal End Sub
Selvtak og takker for pointene antallet af palindromer er 5064 - summen af disse 5064 palindromer er 509033471 :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.