Pascal

F3RY · Napísal **F3RY**: 08.10.2011 22:49 | Pascal

Cawte mam mensi problem s jednou ulohou v pascale.
Mam vygenerovat nahodne cislo v intervale od a po b.
skusal som toto:

Kód:

x:=random(a)+(b);

alebo

Kód:

x:=(b)+random(a)+1;

Ani jeden nefunguje spravne. Generuje to sice cisla, ale uplne odveci...
Dakujem

killer · Napísal **killer**: 08.10.2011 23:18 | Pascal

funkcia random ma v tomto pripade vseobecnu syntax asi takuto:

Kód:

x:=random(a)+b

kde a je zaciatocne cislo intervalu a b je pocet moznych vysledkov,rozsah (neviem ako to lepsie napisat)
priklad:
a=10, b=60
x vypise cisla od 10 do 70

Fico · Napísal **Fico**: 08.10.2011 23:29 | Pascal

A nemalo by to byt skor takto?

Kód:

x := random( b - a ) + a;

// dufam, ze pouzitie Randomize; netreba pripominat

F3RY · Napísal autor témy **F3RY**: 09.10.2011 14:58 | Pascal

Dakujem obom.
Killer

Kód:

x:=random(a)+b

Nefunguje. Ten isty problem. Napr. ked zadam prve cislo 2 a druhe 5 tak mi vypisuje cisla od 2 po7, cize on si ich spocita, alebo co...
fico
Dakujem toto mi pomohlo a funguje spravne. Randomize je samozrejmostou

//Zbytocny prispevok. Ani

Kód:

x := random( b - a ) + a;

nepomohlo. Chvilu sa zdalo, ze funfuje dobre, ale robi to iste co som popisal vysie...

LordKJ · Napísal **LordKJ**: 09.10.2011 15:18 | Pascal

Kód:

var
a,b,c,d:integer;
begin
randomize;
readln(a);
readln(b);
d:=0;
repeat
c:=random(b+1);
if (c>=a) and (c<=b) then writeln(c); d:=d+1;
until d=b;
readln;
end.

take nieco? , zbytocne dlhe ja viem , prve co ma napadlo som napisal

Fico · Napísal **Fico**: 09.10.2011 19:52 | Pascal

ferdo93 píše:

//Zbytocny prispevok. Ani

Kód:

x := random( b - a ) + a;

nepomohlo. Chvilu sa zdalo, ze funfuje dobre, ale robi to iste co som popisal vysie...

Posli sem cely program, pretoze toto musi fungovat. Dajme tomu, ze A=10 a B=30. B-A = 20. Cize random(20) vygeneruje cislo v rozsahu 0-19. Nasledne sa k tomuto cislu pripocita A. Cize minimalne cislo moze byt 10 a maximalne 29 co je presne interval cisiel A az B, nie? Musis mat niekde inde chybu.

LordKJ · Napísal **LordKJ**: 09.10.2011 20:04 | Pascal

no ked som sa tak zamyslel nad tym mojim , tak to pise hluposti ( no neviem preco ma napadlo pisat kazdy random) :oops:

,

Kód:

x := random( b - a ) + a;

samozrejme funguje.

F3RY · Napísal autor témy **F3RY**: 09.10.2011 21:30 | Pascal

Ok teraz to funguje. vtedy mi to nejak blblo

Vdaka za pomoc.

Pascal

Pascal

Podobné témy

Free Pascal a Turbo Pascal

pascal

Pascal

pascal...

pascal

pascal

pascal

pascal

Pascal

Pascal

pascal

Pascal

pascal help

PASCAL - definicie

[Pascal] Neparne_2

pascal stranka