Mohli by ste pomôcť?? prosím viem program ale enviem ako mám spraviť aby sa vygenerovali len jedno číslo nie rovnaké..zadanie....:
Vytvorte program, ktorý vygeneruje N navzájom rôznych celých čísel z intervalu
<a,b>. díky moc..... pascale ak sa dá
program
- beardie
- Středně pokročilý

- Registrován: 10. srp 2005
Re: program
randomize;
a potom ked ti x vygeneruje, tak si podmienkou urci:
if x>a, pokracujes v generovani
if x<b, pokracujes v generovani
inak ho vypises
priebezne si davaj do premennej pocet vypisanych cisel, pocet = pocet + 1;
cele to das do cyklu repeat until pocet = N;
a potom ked ti x vygeneruje, tak si podmienkou urci:
if x>a, pokracujes v generovani
if x<b, pokracujes v generovani
inak ho vypises
priebezne si davaj do premennej pocet vypisanych cisel, pocet = pocet + 1;
cele to das do cyklu repeat until pocet = N;
¿ʇı ʇ,usı 'ƃuıʎouuɐ ʎʇʇǝɹd sı uʍop ǝpısdn ƃuıpɐǝɹ
- pato3335
- Nováček

-
- Registrován: 15. říj 2009
Re: program
Neviem či so to presne pochopil.....ale pracujem tam s poliami....takže interval a,b tam nemám použiť alebo ako to myslíš ty?
- pato3335
- Nováček

-
- Registrován: 15. říj 2009
Re: program
Musím už ísť tak zajtar kebyže môžeš odpíš ešte lebo chcel by som radu v tom.....Díky
- beardie
- Středně pokročilý

- Registrován: 10. srp 2005
Re: program
ked mi napises normalne zadanie, tak ti napisem normalny pseudokod 
¿ʇı ʇ,usı 'ƃuıʎouuɐ ʎʇʇǝɹd sı uʍop ǝpısdn ƃuıpɐǝɹ
- bubanek
- Středně pokročilý

- Registrován: 24. dub 2005
- Bydliště: D1
Re: program
Kód: Vybrat vše
const max=50;
var p:array[1..max] of integer;
i,a,b: integer;
begin
randomize;
read(a,b);
for i:=1 to max do p[i]:=random(b-a)+a;
end;- pato3335
- Nováček

-
- Registrován: 15. říj 2009
Re: program
díky ale to je asi zle preože napríklad...zadám interval 1,20 a dám náhodne 20 čísel a musí byž číísel od 1...20 samozjreme rzohádzane...každé číslo má byť iba raz!....? díky