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 889 korisnika na forumu :: 61 registrovanih, 9 sakrivenih i 819 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 8u47, A.R.Chafee.Jr., AK - 230, alkatraz080, bojankrstc, bokisha253, Bubimir, cavatina, celik, comi_pfc, dankisha, darkangel, DejanSt, Dimitrise93, DonRumataEstorski, galijot, Georgius, girici2, hooraay, hyla, ILGromovnik, Ivica1102, JOntra, Karla, kolle.the.kid, krkalon, Krusarac, Kubovac, kunktator, kybonacci, laurusri, lord sir giga, Maschinekalibar, mercedesamg, Mi lao shu, Mihajlo, milimoj, moldway, mrav pesadinac, Ne doznajem se u oružje, Nemanja.M, oldtimer, operniki, opt1, ozzy, Panter, panzerwaffe, pein, Penzula, repac, rodoljub, Shinobi, Sirius, theNedjeljko, tmanda323, tomigun, Tvrtko I, uruk, VJ, yrraf, 1107