Avatar billede exploit Nybegynder
30. marts 2002 - 17:53 Der 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???

Exploit! :D
Avatar billede kaffe Nybegynder
30. marts 2002 - 18:11 #1
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
Avatar billede exploit Nybegynder
30. marts 2002 - 18:25 #2
takker Kaffe! Kan godt se at jeg har være lidt smådum!

Men det var dog 5090471 palindromer og ikke de 5064!

Takker!
Avatar billede exploit Nybegynder
30. marts 2002 - 18:26 #3
rettelse:  509033471
Avatar billede kaffe Nybegynder
30. marts 2002 - 18:33 #4
Selvtak og takker for pointene
antallet af palindromer er 5064 -
summen af disse 5064 palindromer er 509033471 :-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester