Poraďte v začátcích programování – Visual Basic – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Poraďte v začátcích programování – Visual Basic – Fórum – Programujte.comPoraďte v začátcích programování – Visual Basic – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
David
~ Anonymní uživatel
131 příspěvků
29. 1. 2016   #1
-
0
-

Dobrý den, začínám programovat a nevím si rady s mnoha jednoduchými zadáními.
Nechci to vzdát a proto zkouším hledat odpověď zde na fóru. Jak vyřešit např: toto:
"Vygenerujte 20 celých náhodných čísel v rozsahu 10..50. Zjistěte, o kolik se jejich střední hodnota (průměr) liší od středu intervalu, tedy od 30."

Nahlásit jako SPAM
IP: 217.197.41.–
Reklama
Reklama
David
~ Anonymní uživatel
131 příspěvků
30. 1. 2016   #2
-
0
-

#1 David
sám si odpovím :-)

Sub main()

Dim d20 As Integer
Dim sum As Integer
Dim prum As Single
Dim rozdil As Single

Dim nahodnaCisla As Integer
Dim ret As String
ret = ""
sum = 0

For d20 = 1 To 20

nahodnaCisla = Round(Rnd * (40) + 10)
ret = ret + Str(nahodnaCisla)
sum = sum + nahodnaCisla

Next d20

prum = Str(sum) / 20

rozdil = prum - 30

MsgBox "20 náhodných čísel v rozsahu 10-50" + Chr(10) + Chr(10) + ret + Chr(10) + Chr(10) + " se od svého průměru " + Str(prum) + Chr(10) + Chr(10) + " liší o " + Str(rozdil)


End Sub

Nahlásit jako SPAM
IP: 217.197.41.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 11 hostů

Podobná vlákna

Poradte — založil Jonxix

VŠ- poradte — založil fixxa

Poradte — založil dalaman

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý