ARCHIV

Diskuze: Poradna Pascal - random

Pascal - random (link)	12.10.2010 20:40 Michaela Jírů
Ahoj, s pascalem začínám a dostala jsem se k problému, kdy jsem potřebovala generovat nádodná čísla. použila jsem tedy uses crt, randomize a nakonec random (6). \program ale neházel výsledky, jaké jsem očekávala. Nechala jsem si tedy vypsat 10 těchto náhodně generovaných čísel a výsledkem bylo například : 1222222220, prostě jedna cifra se vždy několikrát opakovala. Tak by mě zajímalo, jestli je chyb na straně mé a použití randomu není tak snadné, jak jsem očekávala, nebo jestli je tohle normální?Díky

Re: Pascal - random (link)	14.10.2010 16:50 Aleš Hakl
Bydliště: Praha
Na jake platforme a kompilatoru? Muzete ukazat kompletni zdrojovy kod? To ze random vraci relativne dlouhe sekvence stejnych cisel jeste nemusi nutne znamenat, ze nevraci nahodna cisla. Naopak sekvence cisel, ktere nejsou nahodna, ale nekdo chce aby tak vypadali se daji poznat podle toho, ze dlouhe sekvence stejnych cislic neobsahuji. Jinak randomize je treba volat idealne jenom jednou na zacatku programu, ne pred kazdym volanim random (kdyz jej budete volat pokazde, tak vam random bude vracet stale totez cislo, pro nejakou hodnotu "stale", treba mikrosekundu). Jinak vystup z random nikdy nejsou zrovna dobra nahodna cisla a hodi se tak na hry a podobna nenarocna vyuziti.

Re: Pascal - random (link)	15.10.2010 19:51 Michaela Jírů
Nevím, co myslíte platformou, ale zkusím odpovědět, že mám Widows XP, překladč Free Pascal. Dostala jsem ve škole úkol naprogramovat program, který vypočte, za kolik hodů průměrně padne šestka. Zdrojový kód: program kostka; uses crt; var hod, soucet, pokus, pocet, i : integer; prumer : real; begin soucet:=0; pokus:=0; pocet:=0; hod:=0; prumer:=0; for i:= 1 to 30000 do begin randomize; hod:= random (6); writeln (hod); if hod<>5 then pocet := pocet+1 else begin pocet:=pocet+1; soucet:=soucet + pocet; pokus:=pokus+ 1; pocet:=0; end; end; prumer:=soucet/pokus; writeln ('průměrný počet hodů je' , prumer); readkey; end.

Re: Pascal - random (link)	16.10.2010 11:21 Radim Kolář
Věk: ( ~51 let) , Bydliště: Louny
to randomize nesmi byt uvnitr for cyklu

Re: Pascal - random (link)	16.10.2010 13:02 Jan Němec
Věk: ( ~47 let)
program kostka; uses crt; var hod, soucet, pokus, pocet, i : integer; prumer : real; begin soucet:=0; pokus:=0; pocet:=0; hod:=0; prumer:=0; randomize; for i:= 1 to 30000 do begin hod:= random (6); writeln (hod); if hod<>5 then pocet := pocet+1 else begin pocet:=pocet+1; soucet:=soucet + pocet; pokus:=pokus+ 1; pocet:=0; end; end; prumer:=soucet/pokus; writeln ('průměrný počet hodů je' , prumer); readkey; end.

Re: Pascal - random (link)	18.10.2010 21:28 Michaela Jírů
Chtěla bych moc poděkovat, program jsem upravila a už funguje podle mých představ.

DISKUZE

Příspívat do diskuze mohou pouze registrovaní uživatelé.

Vyhledávání software

Vyhledávání článků

Rozšířené vyhledávání

Linux News

28.11.2018 23:56 /František Kučera
Prosincový sraz spolku OpenAlt se koná ve středu 5.12.2018 od 16:00 na adrese Zikova 1903/4, Praha 6. Tentokrát navštívíme organizaci CESNET. Na programu jsou dvě přednášky: Distribuované úložiště Ceph (Michal Strnad) a Plně šifrovaný disk na moderním systému (Ondřej Caletka). Následně se přesuneme do některé z nedalekých restaurací, kde budeme pokračovat v diskusi.
Komentářů: 1

12.11.2018 21:28 /Redakce Linuxsoft.cz
22. listopadu 2018 se koná v Praze na Karlově náměstí již pátý ročník konference s tématem Datová centra pro business, která nabídne odpovědi na aktuální a často řešené otázky: Jaké jsou aktuální trendy v oblasti datových center a jak je optimálně využít pro vlastní prospěch? Jak si zajistit odpovídající služby datových center? Podle jakých kritérií vybírat dodavatele služeb? Jak volit vhodné součásti infrastruktury při budování či rozšiřování vlastního datového centra? Jak efektivně datové centrum spravovat? Jak co nejlépe eliminovat možná rizika? apod. Příznivci LinuxSoftu mohou při registraci uplatnit kód LIN350, který jim přinese zvýhodněné vstupné s 50% slevou.
Přidat komentář

6.11.2018 2:04 /František Kučera
Říjnový pražský sraz spolku OpenAlt se koná v listopadu – již tento čtvrtek – 8. 11. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma umění a technologie, IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

4.10.2018 21:30 /Ondřej Čečák
LinuxDays 2018 již tento víkend, registrace je otevřená.
Přidat komentář

18.9.2018 23:30 /František Kučera
Zářijový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 20. 9. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

9.9.2018 14:15 /Redakce Linuxsoft.cz
20.9.2018 proběhne v pražském Kongresovém centru Vavruška konference Mobilní řešení pro business. Návštěvníci si vyslechnou mimo jiné přednášky na témata: Nejdůležitější aktuální trendy v oblasti mobilních technologií, správa a zabezpečení mobilních zařízení ve firmách, jak mobilně přistupovat k informačnímu systému firmy, kdy se vyplatí používat odolná mobilní zařízení nebo jak zabezpečit mobilní komunikaci.
Přidat komentář

12.8.2018 16:58 /František Kučera
Srpnový pražský sraz spolku OpenAlt se koná ve čtvrtek – 16. 8. 2018 od 19:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát jsou tématem srazu databáze prezentaci svého projektu si pro nás připravil Standa Dzik. Dále bude prostor, abychom probrali nápady na využití IoT a sítě The Things Network, případně další témata.
Přidat komentář

16.7.2018 1:05 /František Kučera
Červencový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 7. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát bude přednáška na téma: automatizační nástroj Ansible, kterou si připravil Martin Vicián.
Přidat komentář

Více ... Přidat zprávičku

Poslední diskuze

31.7.2023 14:13 / Linda Graham
iPhone Services

30.11.2022 9:32 / Kyle McDermott
Hosting download unavailable

13.12.2018 10:57 / Jan Mareš
Re: zavináč

2.12.2018 23:56 / František Kučera
Sraz

5.10.2018 17:12 / Jakub Kuljovsky
Re: Jaký kurz a software by jste doporučili pro začínajcího kodéra?

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2024) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze