Random uvek daje istu vrednost - pascal

Random uvek daje istu vrednost - pascal

offline
  • Pridružio: 01 Mar 2005
  • Poruke: 549
  • Gde živiš: Apatin

Zasto uvek daje iste vrednosti prilikom random procedure cak sam pokusao da provucem kroz 3 randoma ali nesupeva uvek izbaci iste vrednosti?
Procedure skakanje; begin   clrscr; assign(f,'skakaci.dat'); reset(f); assign(g,'skok.dat'); rewrite(g); while not eof(f) do begin read(f,skakavac); writeln('Upravo je skocio takmicar: ',skakavac.ime); writeln; randomize; jump.trsk:=random(50)+100; jump.sifra:=skakavac.sifra; writeln(skakavac.ime,' je ostvario rezultat ',jump.trsk,' metara'); writeln; write(g,jump); end; close(f); close(g); meni; end;

Dopuna: 23 Jun 2005 21:02

Ljudi uzdam se u vas veceras i sutra ujutru Smile

Napisite barem da neznate!



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 26 Jun 2004
  • Poruke: 732
  • Gde živiš: Altina, Zemun

Napiši bar koju vrednost izbaci Smile



offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24130
  • Gde živiš: Wien

Stavi Randomize negde na pocetku, tako da se pozove samo jednom u toku izvrsavanja programa, a ne u sklopu petlje.

offline
  • Pridružio: 01 Mar 2005
  • Poruke: 549
  • Gde živiš: Apatin

Malo sam ja eksperimentisao i pomerao neke stvari pa sam uspeo sa stavljanjem randomize iza begina sada imam problema prilikom upisivanje sortirane liste u datoteku ali nema veze snacu se vec nekako Wink
Hvala bobby i KOLE89 u svakom slucaju

offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

Zameni taj tvoj kod iz prvog posta sa ovim:
while not eof(f) do Begin x1:=random(50); begin read(f,skakavac); writeln('Upravo je skocio takmicar: ',skakavac.ime); writeln; randomize; jump.trsk:=x1+100; jump.sifra:=skakavac.sifra; writeln(skakavac.ime,' je ostvario rezultat ',jump.trsk,' metara'); writeln; write(g,jump); end; end; close(f); close(g); meni; end;

offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

Nikako!!!

Randomize treba da se pozove samo jednom u toku cele aplikacije.
Zvanje randomize vise puta u toku programa cini da random brojevi sve manje budu random.

offline
  • Pridružio: 01 Mar 2005
  • Poruke: 549
  • Gde živiš: Apatin

Stenley ::Malo sam ja eksperimentisao i pomerao neke stvari pa sam uspeo sa stavljanjem randomize iza begina sada imam problema prilikom upisivanje sortirane liste u datoteku ali nema veze snacu se vec nekako Wink
Hvala bobby i KOLE89 u svakom slucaju


Ljudi problem je resen pa bi mogli staviti lock ako sortiranje neresim kako treba otvoricu novu temu pa cu vam staviti ceo kod programa!

offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

@beli0135
Imam ceo source programa, uradio sam onako kako sam gore napisao i radi sada kako treba. Znaci dobro "lupa" brojeve. Smile

offline
  • Pridružio: 01 Mar 2005
  • Poruke: 549
  • Gde živiš: Apatin

HVALA SVIMA
ali snasli smo se Smile




ipak sam mogao da racunam na vas posebno na tebe null

Dopuna: 24 Jun 2005 7:21

procedure lista; begin clrscr; assign(f,'skakaci.dat'); reset(f); assign(g,'skok.dat'); reset(g); k:=filesize(f); while not eof(g) do begin for i:=1 to k do begin read(g,jump); a[i]:=jump; end; end; for i:=1 to k do begin for j:=2 to k-1 do begin if a[i].trsk<a[j].trsk then begin kanta:=a[i]; a[i]:=a[j]; a[j]:=kanta; end; end; end; for i:=1 to k do begin reset(f); seek(f,a[i].sifra); read(f,skakavac); writeln(i,'  ',skakavac.ime,'  ',jump.trsk); end; meni;close(f);close(g); end;
Ova proceduratreba da sortira takmicare po redu ali neradi to kako treba ispise mi sifre takmicara i imena uredu ali njihovi skokovi su uvek isti!U cemu je fazon?

Ko je trenutno na forumu
 

Ukupno su 619 korisnika na forumu :: 45 registrovanih, 6 sakrivenih i 568 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Petar, A.R.Chafee.Jr., Aleksandar Mitrovic 2, aljosa7, Apok, babaroga, BlackPhantom, bobeNS, bojank2, celik, cikadeda, dzenan_y, faxovi, GTA, ILGromovnik, j22, JOntra2, Metanoja, mihajlot2013, Mlav, nedeljkovici, nesa1962, novator, orjen2, pera12345, perica5, pristinski korpus, Raptor1, repac2, rovac, srecko81, Srki94, suton2, Toni, trajkoni018, USSVoyager, Vlada1389, vladom6, vlvl, W123, Zandar, zdrebac2, zodiac94, Zvrk2, |_MeD_|