| | |
| Stránka: 1 z 1
| [ Príspevkov: 6 ] | |
Autor | Správa |
---|
Registrovaný: 07.03.07 Prihlásený: 24.12.23 Príspevky: 803 Témy: 169 | Napísal Axwell: 13.05.2008 19:48 | |
|
{93. Nah_cislo_2
Vytvorte program, ktorý vygeneruje N celých náhodných čísel z intervalu <a,b> }
|
|
Registrovaný: 07.03.07 Prihlásený: 24.12.23 Príspevky: 803 Témy: 169 | Napísal autor témy Axwell: 13.05.2008 20:09 | |
|
toto potrebujem velmi surne. diky vopred
|
|
Registrovaný: 30.04.08 Prihlásený: 15.05.15 Príspevky: 884 Témy: 3 |
nooo trosku som len upravil tento zdrojak... podla mna by to malo byt dobre ...
Kód: program cisla; var A,B,N,Y,Sucet,I,Pocet: integer;
begin Pocet:=0; Sucet:=0; Randomize; write('Zadajte interval: '); readln(A,B); write('Zadajte pocet cisel, ktore sa maju vygenerovat: '); readln(Y);
while Pocet<>Y do begin N:=Random(B+1); if N>=A then begin writeln(N); Pocet:=Pocet+1; end; end; readln; end.
|
|
Registrovaný: 13.04.07 Prihlásený: 15.05.09 Príspevky: 68 Témy: 9 |
hmm viem ze je to nerealne ale co ak ti bude stale vyberat len cisla mensie ako A? ja by som to robil inak:
Kód: program cisla; var a,b,n,i: integer;
begin Randomize; write('Zadajte interval: '); readln(a,b); write('Zadajte pocet cisel, ktore sa maju vygenerovat: '); readln(n); for i:=1 to n do if a>b then write('zadal si zly interval') else writeln('nahodne cislo je ', Random(b-a)+a);
readln; end.
dufam ze je to dobre ak nie tak sry
|
|
Registrovaný: 30.04.08 Prihlásený: 15.05.15 Príspevky: 884 Témy: 3 |
woup, mas pravdu...zvolil si si zaujimavy sposob, a imho lepsi nez ten moj mozno keby si ten moj program spustil na nejakom prastarom pocitaci, tak by sa to generovalo dost dlho... pri dnesnych pocitacoch je to vsak zanedbatelne... vazne super
_________________ Empty your memory, with a free()… like a pointer! If you cast a pointer to an integer, it becomes the integer, if you cast a pointer to a struct, it becomes the struct… The pointer can crash…, and can overflow… Be a pointer my friend… |
|
Registrovaný: 07.03.07 Prihlásený: 24.12.23 Príspevky: 803 Témy: 169 | Napísal autor témy Axwell: 18.05.2008 9:49 | |
|
diky
|
|
| Stránka: 1 z 1
| [ Príspevkov: 6 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| [Pascal] Faktorial - zdrojak - surne v Assembler, C, C++, Pascal, Java | 2 | 6024 | 20.05.2008 18:02 Axwell | | Heslo - Pascal - Zdrojak - Surne v Assembler, C, C++, Pascal, Java | 7 | 934 | 25.03.2008 23:37 Roberbo | | [Pascal] sucet_k - zdrojak - velmi surne v Assembler, C, C++, Pascal, Java | 6 | 930 | 28.06.2008 22:55 neutronmind | | [Pascal] Tri najvacsie - zdrojak - surne v Assembler, C, C++, Pascal, Java | 13 | 1209 | 20.05.2008 20:41 Axwell | | [Pascal] Sucet_NC - zdrojak - velmi surne v Assembler, C, C++, Pascal, Java | 27 | 1238 | 16.05.2008 14:55 Speeder21 | | [Pascal] Sucet_int - Zdrojovy kod - velmi surne v Assembler, C, C++, Pascal, Java | 25 | 1701 | 14.05.2008 8:00 stopa27 | | [Pascal] Mocniny - Zdrojovy kod - velmi surne v Assembler, C, C++, Pascal, Java | 2 | 1953 | 10.05.2008 19:28 Axwell | | invisible zdrojak v PHP, ASP | 22 | 718 | 29.02.2008 16:11 martin90 | | Dostatocny Zdrojak na zostavu? v Ostatné | 8 | 364 | 09.01.2012 15:57 mig07 | | Free Pascal a Turbo Pascal v Assembler, C, C++, Pascal, Java | 0 | 381 | 19.12.2014 13:18 Styracoz | | SURNE! Potrebujem pomoct s vylepsenim internetu SURNE! v Siete | 15 | 500 | 01.03.2013 14:43 shiro | | Pascal [ Choď na stránku: 1, 2 ] v Assembler, C, C++, Pascal, Java | 40 | 1448 | 11.12.2016 22:08 viki | | pascal... v Assembler, C, C++, Pascal, Java | 5 | 901 | 18.10.2008 19:02 redog | | pascal v Assembler, C, C++, Pascal, Java | 19 | 3054 | 30.04.2007 19:54 nikita | | Pascal v Assembler, C, C++, Pascal, Java | 7 | 822 | 14.05.2011 20:04 F3RY | | pascal v Assembler, C, C++, Pascal, Java | 6 | 727 | 08.01.2009 17:45 majka090 |
| 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
|
|