MyCity » Pascal -> Delphi » minimum nece, maximu hoce

minimum nece, maximu hoce

Napisano na dan: 22.2.2007

minimum nece, maximu hoce
Sledeća strana Pagination

Idi na vrh

Poslao: 22 Feb 2007 19:22
Idi na vrh
offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

Imam problem.
U list box se unose neki brojevi, kada se u combobox-u izabere minimum ili maximum u edit polju gde je rezultat treba da mi pokaze minimum ili maximum.
Maximum radi, ali minimum nece.Samo pokaze 0.
Evo tog dela koda, ako neko moze da vidi u cemu je greska.

case combobox1.ItemIndex of 0: begin         min:=x[1];         for i:=2 to strtoint(edindex.Text) do         if min>x[i] then min:=x[i];          edrez.Text:=floattostr(min);          end; 1: begin         max:=x[1];         for i:=2 to strtoint(edindex.Text) do         if max<x[i] then max:=x[i];          edrez.Text:=floattostr(max);          end;

Unapred hvala.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 22 Feb 2007 19:31
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Gde citas x ?
Sta se nalazi u edindex ?



Poslao: 22 Feb 2007 21:44
Idi na vrh
offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

uspeo sam da se snadjem.
Nisam ti dao dovoljno podataka, x je niz, a edindex broj koji se uvecava za jedan svaki put
x[1]
x[2]....

stvar je bila jer brojac treba da se krece do strtoint(edindex.text)-1 , jer ako ide do bez -1, onda zadnji racuna kao nulu.

imam samo jos jedno pitanje, jer moze da se koristi funkcija mod sa realnim brojevima.
Meni ne moze nikako.....

Poslao: 22 Feb 2007 21:58
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

nikom ne moze...

koristi FRAC...
da bi dobio MOD, napravi nesto ovako

function MyMOD(AValue:double):integer; begin   result:= Trunc(Frac(AValue)*10); end;

Poslao: 23 Feb 2007 01:28
Idi na vrh
offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

Sta ti je u Edit-u "edindex"? Duzina niza?
Verovatno kod minimuma probijes duzinu niza pa za naredne indexe koje nemas u nizu uzme 0 i to ti ispise.

Poslao: 23 Feb 2007 12:20
Idi na vrh
offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

Reseni su svi problemi.
Hvala.

@NuLLCoDe
Jeste u tome problem.napisao sam u prethodnom postu, samo nisi video.

Poslao: 23 Feb 2007 13:41
Idi na vrh
offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

Ups, sorry. Sad videh, taj deo sam preskocio.

MyCity » Pascal -> Delphi » minimum nece, maximu hoce

Ko je trenutno na forumu
 

Ukupno su 8628 korisnika na forumu :: 94 registrovanih, 7 sakrivenih i 8527 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 8u47, 9191vs, aca018, ajo baba, aleksjevt, Asteker, Automaticar, bojan_t, Boris90, boro975, bpvl, braca57, Bubimir, bunker, Coficab, curiosity, Czrweni, d29, deLacy, delrey, Dimitrise93, Djokkinen, djukapfc, Dorcolac, Dovla 1980, dragisa dragisa, DragoslavS, dusanobr, Dusko_Dugousko, FileFinder, FilipSRB, Glavni Oružni, gobrad, goxin, HrcAk47, In_hero, JimmyNapoli, JK, Jovan.D, kaput21, kaskadija, Kawasaki1000, Komder, komsija1, Koser, kuntalo, laki_bb, Lazarus, Leonov, Lieutenant, Litostroton, lord sir giga, Lotus, M74AB3, MagicniHerpes, Marko Marković, max power, MB120mm, mercedesamg, mikidragi, Milan A. Nikolic, mino bosanac, miso2709, Mrav Obrad, Muki 123, nebojsag, Nole, ozzy, paja69, PlayerOne, Posmatrac77OKB, probisic, Razdroid, repac, Rok A Bit, rovac, sajorg, samocitam, sap, Semberija, Shilok, skvara, styg, Tamna_strana_Meseca, The Boss, troki1971, Tvrtko I, Vlada1389, Yugol33, Zastava, zlukic, zubri, |_MeD_|, Žrnov