nahodne cislo z mnoziny [pascal]

• Citovať príspevok

Príspevok od používateľa BX » 04 jan 2009, 0:27

Zdravim, naozaj si nejako neviem rady s tymto, pretoze neviem v pascale polia a zevraj sa to roby cez ne
Ide o to ze chcem vygenerovat nahodne cislo z mnoziny napr.{4,5,6,7,8}
Nie od jednotky, ale iba zo zadanych hodnot... v podstate K+ zadarmo
Dakujem vopred...

• Citovať príspevok

Príspevok od používateľa chrono » 04 jan 2009, 0:33

• Citovať príspevok

Príspevok od používateľa BX » 04 jan 2009, 0:34

ako som uz pisal polia NEVIEM, tagze mi treba nejaky kus zdrojaku...
ak sa to ale da inak tak privitam radsej to

• Citovať príspevok

Príspevok od používateľa chrono » 04 jan 2009, 0:38

Okrem toho poľa mi napadajú už len dve možnosti:
1. case (vygeneruješ náhodné číslo a v case potom vrátiš to číslo z tvojho zoznamu).
2. urobíš si nejaký vzorec, ktorý pre náhodné čísla dá všetky tie čísla, ktoré potrebuješ.

• Citovať príspevok

Príspevok od používateľa BX » 04 jan 2009, 0:40

No uz je noc, tagze ani jedno z toho som nepochopil
To druhe este chapem, no na to sa teraz uz nezmozem, ale to case som vazne nepochopil ako sa to da...

• Citovať príspevok

Príspevok od používateľa konyk87 » 04 jan 2009, 0:45

neviem sice ake cisla vracia funkcia random() v pascale, ale ak random(20) vrati cele cisla 0-19, tak tvoja spomenuta mnozina sa da vygenerovat aj prikazom random(5) + 4
... random vrati cislo 0-4 a k nemu pripocitas 4 - tym padom sa ti budu generovat cisla 4-8..

\\tento sposob je vsak vhodne pouzit ak cisla z mnoziny, z ktorej chces generovat "idu za sebou", t.j. {3, 4, 5, 6} alebo {23, 24, 25, 26, 27, 28}..
ak by ich bolo par vynechanych, tak by sa to este mozno dalo osetrit nejakymi podmienkami..ak by bola ta mnozina (viacmenej) nahodna, tak tento sposob zrejme nebude fungovat, napr {-3, 42, 10, 7, -8, 23}

• Citovať príspevok

Príspevok od používateľa chrono » 04 jan 2009, 0:51

BX napísal:No uz je noc, tagze ani jedno z toho som nepochopil
To druhe este chapem, no na to sa teraz uz nezmozem, ale to case som vazne nepochopil ako sa to da...

Len som ti chcel naznačiť, že ak sa ti nepáčia polia, nič jednoduchšie už asi nenájdeš.

• Citovať príspevok

Príspevok od používateľa neutronmind » 04 jan 2009, 11:15

Takto by to mohlo vyzerat s pouzitim pola.

Kód: Vybrať všetko

program cisla;
const
POCET = 5;
pole: array[1..POCET] of integer = (4,5,6,7,8);

begin
randomize;
writeln('Vygenerovane cislo: ', pole[random(POCET)+1]);
readln;
end.

• Citovať príspevok

Príspevok od používateľa audiotrack » 04 jan 2009, 11:16

BX napísal:ako som uz pisal polia NEVIEM, tagze mi treba nejaky kus zdrojaku...
ak sa to ale da inak tak privitam radsej to

Kód: Vybrať všetko

uses crt;
var pole:array[1..5] of integer;  /* patprvkove ciselne pole */
begin
clrscr;
randomize;  /* znovunastavenie generatora pseudonahodnych cisel */
  pole[1] := 3;  /* postupne naplnenie pola nejakymi hodnotami */
  pole[2] := 32;
  pole[3] := 4;
  pole[4] := 6;
  pole[5] := 7;
  writeln(pole[random(5)+1]);  /* vypisanie nahodneho prvku */
  repeat until keypressed;  /* cakanie na klaves */
end.

//damn! neskoro

• Citovať príspevok

Príspevok od používateľa BX » 04 jan 2009, 13:00

OK dakujem velmi silno Chcel som to robit tak ze dam a:=random(5) a potom dam vypisat write(a+40) aby vypisovalo od 40 do 45 Ale asi to spravim poliami...
diki moc.

• Citovať príspevok

Príspevok od používateľa neutronmind » 04 jan 2009, 13:52

Zalezi od konkretneho zadania. Ak mas vypisovat nahodne cisla len z nejakeho intervalu, tak polia nemusis pouzit a riesit to tak, ako si pisal v poslednom prispevku. Ak by si vsak mal generovat cisla z nejakej lubovolne danej mnoziny, napr. {10, 15, 123, 350}, tak pole musis pouzit.

• Citovať príspevok

Príspevok od používateľa BX » 04 jan 2009, 14:13