Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Jel oce neko da mi uradi zadatak u Delphiju

[es] :: Pascal / Delphi / Kylix :: Jel oce neko da mi uradi zadatak u Delphiju

[ Pregleda: 3808 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

ivanicas
Ivana Savic
Beograd

Član broj: 24813
Poruke: 1
*.vdial.verat.net



Profil

icon Jel oce neko da mi uradi zadatak u Delphiju17.04.2004. u 13:49 - pre 242 meseci
Meni je ludi profesor zadao da uradim neki program za raspust al nista nije objasnio! Ako neko moze da pomogne bila bih zahvalna! Vrlo! Javljajte se sto pre. Raspust je jos samo 2 dana! UPOMOC!
 
Odgovor na temu

rilax
Sergio Reluck
/root/Serbia/Kurshumliya

Član broj: 22393
Poruke: 32
*.vdial.verat.net



Profil

icon Re: Jel oce neko da mi uradi zadatak u Delphiju17.04.2004. u 14:29 - pre 242 meseci
E, ajd' daj taj zadatak da vidimo kakav je...
10 BEGIN
20 HOME_SWEET_HOME
30 GOTO 20
 
Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
*.ptt.yu

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Re: Jel oce neko da mi uradi zadatak u Delphiju17.04.2004. u 16:58 - pre 242 meseci
Da, ajde javi sta treba da radi program, pa da raspalimo !!!
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Jel oce neko da mi uradi zadatak u Delphiju18.04.2004. u 12:21 - pre 242 meseci
Evo pošto sam ja dobio ovo na private a naravno nemam vremena da ga rešavam, pa vi izvolite:

Napraviti Delphi projekat koji unosi gradove i rastojanja medju njima u string grid-u.Rastojanja su izrazena celim brojevima ako 2 grada nisu direktno povezana putem treba uneti -1. Program po selektovanju dva grada nalazi minimalan put izmedju njih. Ako puta nema vraca poruku da gradovi nisu povezani!
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
195.252.103.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: Jel oce neko da mi uradi zadatak u Delphiju18.04.2004. u 13:56 - pre 242 meseci
znam ovo, da pogledam malo pa cu poslati...valjda
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

-zombie-
Tomica Jovanovic
freelance programmer
ni.ac.yu

Član broj: 4128
Poruke: 3448
*.beotel.net

Sajt: localhost


+5 Profil

icon Re: Jel oce neko da mi uradi zadatak u Delphiju18.04.2004. u 16:31 - pre 242 meseci
Citat:
Gojko Vujovic:
Evo pošto sam ja dobio ovo na private


hehe, da nisi možda i "ti ovde najpametniji".. :-P

 
Odgovor na temu

rilax
Sergio Reluck
/root/Serbia/Kurshumliya

Član broj: 22393
Poruke: 32
*.vdial.verat.net



Profil

icon Re: Jel oce neko da mi uradi zadatak u Delphiju18.04.2004. u 17:37 - pre 242 meseci
Mozes da uradis sa obicnim backtrackom. Nabi u jednu matricu NxN brojke tako da je na mestu A,B udaljenost grada A od B ili -1 ako nisu povezani putem. Ovim si opisao graf povezanosti. Onda napravi niz tipa Boolean kojim kontrolises da li je grad preko koga prolazis vec usao u sastav puta, jer ti petlje u grafu sigurno nisu potrebe. Treba ti jos jedna varijabla u kojoj cuvas minimalni put, i obicna rekurzija da to obradi...

recimo:

const maxn=200;
var veze: array [maxn, manx] of integer;
min, put, i, n, A, B: integer;
ukljucen: array[1..maxn] of Boolean;

// ovde dodje kod koji strpa podatke iz grida u matricu veze
// u n je broj gradova, A i B su gradovi izmedju kojih trazis rastojanje
for i:=1 to n do ukljucen:=n;
min:=MaxInt; //ili neki veliki broj od kog je minimalno rastojanje sigurno manje...
put:=0;

procedure Obidji(g : integer);
var cik: integer;
begin
ukljucen[g]:=true;
if (g=B) and (put<min) do min:=put;
for cik:=1 to n do
if (veze[g, cik]<>-1) and (not ukljucen[cik]) do
begin
put:=put+veze[g, cik];
Obidji(cik);
put:=put-veze[g, cik];
end;
uklucen[g]:=false;
end;

procedureu pozivas sa Obidji(A); i u min pokupi najkrace rastojanje.

Javi ako ima bug, da ispravljamo....

BTW: Sigurno ima dobrih heuristika ili brand&bacch-ova za ovo ali nemam kad da se majem sa time sada...
10 BEGIN
20 HOME_SWEET_HOME
30 GOTO 20
 
Odgovor na temu

MilošV
Podgorica

Član broj: 7996
Poruke: 484
195.66.163.*



+1 Profil

icon Re: Jel oce neko da mi uradi zadatak u Delphiju18.04.2004. u 17:39 - pre 242 meseci
Naravoučenije ove teme: kad hoćeš da momci sa ES-a odrade nešto umjesto tebe, samo se registruj sa nekim ženskim korisničkim imenom (po mogućstvu mazno-erotskim, npr. Ilona, Silvija...)
Eh, pitam se kakvi bi odgovori pali da je naša Ivanica odabrala username "Milorad"
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Jel oce neko da mi uradi zadatak u Delphiju

[ Pregleda: 3808 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.