[Programare]Virus

[Hertz]

Oamenii de stiinta au notat ca un anume virus are un ciclu al vietii ca acesta:

Ziua 1: virusul e nascut din o diviziune a 'mamei' lui

Ziua 2: virusul se divide in doi virusi (unul dintre ei e un virus nou)

Ziua 3: virusul se divide in doi virusi din nou (unul dintre ei e un virus nou)

Ziua 4: virusul s-a divizat deja de 2 ori.Acum e gata sa moara.

Ziua 5: virusul moare.

Un membru unic ca acesta a fost colectat de oamenii de stiinta.Dupa 8 zile, populatia e de 47.Intrebarea e: Dupa cate zile intreaga populatie de virusi originara din acest singur virus va ajunge la 1,000,000,000,000 membrii ?

[CyberWolf08]

Raspuns: 57 zile

Rezolvarea in VB.net

  Dim VD1, VD2, VD3, VD4, VD5, TotalVirus, CurrDay As Double
        VD1 = 1
        CurrDay = 0
        While TotalVirus <= 1000000000000

            VD5 = VD4
            VD4 = VD3
            VD3 = VD2
            VD2 = VD1
            VD1 = VD2 + VD3
            CurrDay = CurrDay + 1
            TotalVirus = VD1 + VD2 + VD3 + VD4
            'TextBox1.Text = TextBox1.Text + CurrDay.ToString + " " + VD1.ToString + " " + VD2.ToString + " " + VD3.ToString + " " + VD4.ToString + vbNewLine
        End While
        TextBox1.Text = CurrDay

[Hertz]

Gresit asdf

[CyberWolf08]

EDIT: A, am inteles gresit problema. Deci populatia initiala pentru crearea populatiei de 1,000,000,000,000 este defapt populatia obtinuta dupa 8 zile(adica 47 de virusi). Asta inseamna ca in ziua 49(adica 57(zile negesare pentru imultirea de la 1 membru) - 8(zile negesare pentru a obtine 47 membri) populatia e de 1322157322203, iar in ziua 48 e 817138163596, nu?

Edited August 13, 2009 by CyberWolf08

[Hertz]

Da asdfasdf