Obsah fóra
PravidláRegistrovaťPrihlásenie




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

Užívateľ
Užívateľ
[Pascal] Nah_cislo - Zdrojak - surne

Registrovaný: 07.03.07
Prihlásený: 24.12.23
Príspevky: 803
Témy: 169
Príspevok NapísalOffline : 13.05.2008 19:48

{93. Nah_cislo_2
Vytvorte program, ktorý vygeneruje N celých náhodných čísel z intervalu <a,b> }


Offline

Užívateľ
Užívateľ
[Pascal] Nah_cislo - Zdrojak - surne

Registrovaný: 07.03.07
Prihlásený: 24.12.23
Príspevky: 803
Témy: 169
Príspevok Napísal autor témyOffline : 13.05.2008 20:09

toto potrebujem velmi surne. diky vopred


Offline

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

Registrovaný: 30.04.08
Prihlásený: 15.05.15
Príspevky: 884
Témy: 3
Príspevok NapísalOffline : 13.05.2008 20:29

nooo trosku som len upravil tento zdrojak... :) podla mna by to malo byt dobre :oops: ...
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.


Offline

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

Registrovaný: 13.04.07
Prihlásený: 15.05.09
Príspevky: 68
Témy: 9
Príspevok NapísalOffline : 14.05.2008 15:41

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


Offline

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

Registrovaný: 30.04.08
Prihlásený: 15.05.15
Príspevky: 884
Témy: 3
Príspevok NapísalOffline : 14.05.2008 19:52

woup, mas pravdu...zvolil si si zaujimavy sposob, a imho lepsi nez ten moj :D 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 :slaver:







_________________
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…
Offline

Užívateľ
Užívateľ
[Pascal] Nah_cislo - Zdrojak - surne

Registrovaný: 07.03.07
Prihlásený: 24.12.23
Príspevky: 803
Témy: 169
Príspevok Napísal autor témyOffline : 18.05.2008 9:49

diky


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


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. [Pascal] Faktorial - zdrojak - surne

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

2

6024

20.05.2008 18:02

Axwell Zobrazenie posledných príspevkov

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

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

7

934

25.03.2008 23:37

Roberbo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. [Pascal] sucet_k - zdrojak - velmi surne

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

6

930

28.06.2008 22:55

neutronmind Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. [Pascal] Tri najvacsie - zdrojak - surne

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

13

1209

20.05.2008 20:41

Axwell Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. [Pascal] Sucet_NC - zdrojak - velmi surne

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

27

1238

16.05.2008 14:55

Speeder21 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. [Pascal] Sucet_int - Zdrojovy kod - velmi surne

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

25

1701

14.05.2008 8:00

stopa27 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. [Pascal] Mocniny - Zdrojovy kod - velmi surne

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

2

1953

10.05.2008 19:28

Axwell Zobrazenie posledných príspevkov

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

v PHP, ASP

22

718

29.02.2008 16:11

martin90 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Dostatocny Zdrojak na zostavu?

v Ostatné

8

364

09.01.2012 15:57

mig07 Zobrazenie posledných príspevkov

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. SURNE! Potrebujem pomoct s vylepsenim internetu SURNE!

v Siete

15

500

01.03.2013 14:43

shiro 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

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

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

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

6

727

08.01.2009 17:45

majka090 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