LINUXSOFT.cz
Nazwa użytkownika: Hasło:     
    CZ UK PL

> Komentarze :: Poradna Prosím o vysvětlení (Pascal)

Prosím o vysvětlení (Pascal) 10.6.2007 17:42
Nikola Asusova

Ahojky...měla bych takové malé přání..
Potřebovala bych vysvětlit tento řádek, který je psaný v PASCALU

nahodne := (rozsah div 10)+random(rozsah-rozsah div 10);

děkuji

Re: Prosím o vysvětlení (Pascal) 10.6.2007 19:15
Ondřej Čečák

nahodne := (rozsah div 10)+random(rozsah-rozsah div 10);

To vypada jako kdyby se obsah promenne "rozsah" deleno (celociselne) 10 plus vystup funkce "random()" (ktera vypise nahodne cislo z intervalu 0 az "rozsah" - "rozsah" deleno 10) ulozi do promenne "nahodne".

Stacilo pouzit google. ;)

Re: Prosím o vysvětlení (Pascal) 10.6.2007 21:37
Nikola Asusova

Taky děkuji.

Re: Prosím o vysvětlení (Pascal) 10.6.2007 20:16
dvhx

Ach jo,

rozsah nadobuda tieto hodnoty: 10, 100, 1000, 10000, ...

Pre rozsah 10:

nahodne := (10 div 10) + random(10 - 10 div 10) = 1 + random(9) (random(m) vracia nahodne cisla 0..(m-1)), cize toto vrati nieco medzi 1 a 9, teda len 1-ciferne cislo

Pre rozsah 100:

nahodne := (100 div 10) + random(100 - 100 div 10) = 10 + random(90) cize toto vrati nieco medzi 10 a 99, teda len dvojciferne cisla

Porobne pre rozsah 1000 vracia ren 3-ciferne cisla.

Ide o to ze tam nemoze byt:

nahodne := random(rozsah)

pretoze napr. random(1000) by mohlo vratit 42 co je 2-ciferne cislo, takto pre rozsah 1000 vybera nahodne cisla z rozsahu 100-999.

Re: Prosím o vysvětlení (Pascal) 10.6.2007 21:36
Nikola Asusova

Děkuji, docela mi to pomohlo


KOMENTARZE
Prosím o vysvětlení (Pascal) 10.6.2007 17:42 Nikola Asusova
  |- Re: Prosím o vysvětlení (Pascal) 10.6.2007 19:15 Ondřej Čečák
  | L Re: Prosím o vysvětlení (Pascal) 10.6.2007 21:37 Nikola Asusova
  L Re: Prosím o vysvětlení (Pascal) 10.6.2007 20:16 dvhx
    L Re: Prosím o vysvětlení (Pascal) 10.6.2007 21:36 Nikola Asusova
Tylko zarejestrowani użytkownicy mogą dopisywać komentarze.
> Szukanie oprogramowania
1. Pacman linux
Download: 4791x
2. FreeBSD
Download: 8984x
3. PCLinuxOS-2010
Download: 8488x
4. alcolix
Download: 10804x
5. Onebase Linux
Download: 9568x
6. Novell Linux Desktop
Download: 0x
7. KateOS
Download: 6142x

1. xinetd
Download: 2331x
2. RDGS
Download: 937x
3. spkg
Download: 4549x
4. LinPacker
Download: 9801x
5. VFU File Manager
Download: 3116x
6. LeftHand Mała Księgowość
Download: 7002x
7. MISU pyFotoResize
Download: 2700x
8. Lefthand CRM
Download: 3486x
9. MetadataExtractor
Download: 0x
10. RCP100
Download: 3001x
11. Predaj softveru
Download: 0x
12. MSH Free Autoresponder
Download: 0x
©Pavel Kysilka - 2003-2024 | mailatlinuxsoft.cz | Design: www.megadesign.cz