Sunday, September 30, 2001, si napisal: > 3. Vlastni vypocet: > mam 12ti mistne cislo, a potrebuji secist cislice na lichych pozicich > a pak na sudych pozicich. > Priklad: 123456789012 > a = 1 + 3 + 5 + 7 + 9 + 1 > b = 2 + 4 + 6 + 8 + 0 + 2 > urcite to jde jednoduse udelat nejakym cyklem, ale ja zaboha nedokazu > ve VBA zjistit, zda je cislo liche... :( Vo Visual Basic-u: 'deklaracie a inicializacia premennych Dim liche As Integer, sude As Integer Dim Str_cislo As String sude = 0 liche = 0 'cyklus Str_cislo = Str("123456789012") 'pretypujem to na string For i = 1 To 13 Step 2 liche = liche + Val(Mid(Str_cislo, i + 1, 1)) sude = sude + Val(Mid(Str_cislo, i, 1)) Next V premenej liche mas ten sucet cisiel na lichej pozicii a v sude mas sucet cisiel na sudej pozicii. S pozdravom, krutohlav
This archive was generated by hypermail 2.1.2 : 30. 09. 2001, 17:34 CEST