Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 8 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Pascal

Registrovaný: 23.12.10
Prihlásený: 10.09.22
Príspevky: 1056
Témy: 157
Bydlisko: KK/PP/BA
Príspevok NapísalOffline : 08.10.2011 22:49

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


Offline

Správca fóra
Správca fóra
Pascal

Registrovaný: 08.08.09
Príspevky: 12449
Témy: 39
Príspevok NapísalOffline : 08.10.2011 23:18

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


Naposledy upravil killer dňa 08.10.2011 23:32, celkovo upravené 1






_________________
always is always wrong
Online

Skúsený užívateľ
Skúsený užívateľ
Pascal

Registrovaný: 11.01.09
Prihlásený: 28.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOnline : 08.10.2011 23:29

A nemalo by to byt skor takto?
Kód:
x := random( b - a ) + a;


// dufam, ze pouzitie Randomize; netreba pripominat


Offline

Užívateľ
Užívateľ
Pascal

Registrovaný: 23.12.10
Prihlásený: 10.09.22
Príspevky: 1056
Témy: 157
Bydlisko: KK/PP/BA
Príspevok Napísal autor témyOffline : 09.10.2011 14:58

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...


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 03.03.11
Prihlásený: 14.08.15
Príspevky: 703
Témy: 7
Bydlisko: Kežmarok
Príspevok NapísalOffline : 09.10.2011 15:18

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 :D


Online

Skúsený užívateľ
Skúsený užívateľ
Pascal

Registrovaný: 11.01.09
Prihlásený: 28.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOnline : 09.10.2011 19:52

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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 03.03.11
Prihlásený: 14.08.15
Príspevky: 703
Témy: 7
Bydlisko: Kežmarok
Príspevok NapísalOffline : 09.10.2011 20:04

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.


Offline

Užívateľ
Užívateľ
Pascal

Registrovaný: 23.12.10
Prihlásený: 10.09.22
Príspevky: 1056
Témy: 157
Bydlisko: KK/PP/BA
Príspevok Napísal autor témyOffline : 09.10.2011 21:30

Ok teraz to funguje. vtedy mi to nejak blblo :)
Vdaka za pomoc.


Odpovedať na tému [ Príspevkov: 8 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. Free Pascal a Turbo Pascal

v Assembler, C, C++, Pascal, Java

0

381

19.12.2014 13:18

Styracoz Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pascal

v Assembler, C, C++, Pascal, Java

4

2031

01.03.2018 8:02

MTK Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

11

1282

07.04.2007 16:50

programator Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

6

727

08.01.2009 17:45

majka090 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pascal

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Assembler, C, C++, Pascal, Java

40

1448

11.12.2016 22:08

viki Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

19

3054

30.04.2007 19:54

nikita Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

0

698

03.05.2009 12:35

ebb Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

2

1101

09.03.2007 14:08

misolax Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pascal

v Assembler, C, C++, Pascal, Java

7

822

14.05.2011 20:04

F3RY Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal

v Assembler, C, C++, Pascal, Java

2

566

24.06.2010 20:17

KatjushaMan Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal...

v Assembler, C, C++, Pascal, Java

5

901

18.10.2008 19:02

redog Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. PASCAL - pesnicka

v Assembler, C, C++, Pascal, Java

0

692

11.05.2008 13:09

Zdravotnik Zobrazenie posledných príspevkov

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie. Pascal zaznam

v Assembler, C, C++, Pascal, Java

1

345

28.04.2014 18:41

Ďuri Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pascal : pchar

v Assembler, C, C++, Pascal, Java

1

470

03.02.2011 18:18

juho Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pascal uloha

v Assembler, C, C++, Pascal, Java

12

738

26.11.2011 21:59

F3RY Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Program pascal

v Assembler, C, C++, Pascal, Java

1

419

21.12.2017 23:45

magic Zobrazenie posledných príspevkov


Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra