[es] - Treba mi pomoc oko pravljenja 2d matrica

habeg

Član broj: 128380
Poruke: 27
80.74.160.*

Profil

Treba mi pomoc oko pravljenja 2d matrica

^{05.01.2007. u 15:59 - pre 210 meseci}

Radim domaci pa mi treba mala pomoc oko pretrazivanja 2d matrica u pascal-u. Konkretno, program treba da pronalazi elemente koji se razlikuju od drugih u svojoj vrsti i koloni. Napisao sam potprogram za ucitavanje elemenata i kada sam uradio pp za obradu koju sam vec opisao upao sam u neke silne petlje i javlja mi se stack overflow error.Znaci, treba mi samo pomoc oko pretrage matrice i poredjenja elemenata.Pa ako ima neka dobra dusa...

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Treba mi pomoc oko pravljenja 2d matrica

^{05.01.2007. u 17:47 - pre 210 meseci}

> Radim domaci pa mi treba mala pomoc oko pretrazivanja 2d matrica u pascal-u. Konkretno, program treba da pronalazi elemente koji se razlikuju od drugih u
> svojoj vrsti i koloni.

Da li si koristio dvodimenzionalni niz za smeštaj elemenata? Napravi dve procedure, jednu za pretragu redova a drugu za kolone (mogu se i objediniti ali ti je ovako lakše). Njima se prosleđuje indeks reda ili kolone koja se pretražuje. Dalje ti treba još jedan niz ili još bolje TStringList u koji ćeš dodavati elemente s tim što pre dodavanja uradiš proveru da li već postoji i ako da, obrišeš ga. Na kraju ćeš u TStringList imati jedinstvene elemente.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

PeraKojotSuperGenije
Sasa Popovic
Beograd

Član broj: 44507
Poruke: 126
*.72.eunet.yu.

Profil

Re: Treba mi pomoc oko pravljenja 2d matrica

^{06.01.2007. u 15:17 - pre 210 meseci}

Postuj taj tvoj kod bez obzira sto ne radi, pa cemo da vidimo o cemu se radi.

Sendvic uvek pada na namazanu stranu!

Odgovor na temu

habeg

Član broj: 128380
Poruke: 27
80.74.160.*

Profil

Re: Treba mi pomoc oko pravljenja 2d matrica

^{06.01.2007. u 16:26 - pre 210 meseci}

Da, koristio sam taj niz. Ali da li bi mogao malo bolje da mi objasnis kako da smestam te dobijene elemente u taj novi niz (TStringList jos nismo radili). Kako da proveravam da li su ti elementi u nizu jer koliko znam 'in' ne mogu da upotrebim.
Hvala unapred
Prikacio sam nesto mada mislim da cete se smejati:)

Prikačeni fajlovi

NOVA_MAT.PAS - 1.55k

NOVA_MAT.BAK - 1.55k

Odgovor na temu

_v!rus_
BGD

Član broj: 40451
Poruke: 313
*.dsl.siol.net.

+1 Profil

Re: Treba mi pomoc oko pravljenja 2d matrica

^{06.01.2007. u 18:46 - pre 210 meseci}

Mislim da je problem to sto sa tom drugom matricom na steku probijes stek. Za glavnu matricu upotrebis 100x100x4 bajta = ~40kb, kada deklarises jos jednu od 40k probijes 64k limit za code+data+stack u pascalu, drugim recima smanji sa 100 na nesto manje.

Druga stvar, batali to greska: boolean, ionako nema smisla, jer dok greska = true propadne do tog glavnog while loopa, ode mast u propast. Bolje koristi Halt(0) ili napravi f-ju za unos integera, nesto kao

Code:

function GetInt(Prompt: String): Integer;
var
  V: Integer;
begin
  repeat
    Write(Prompt);
    ReadLn(V);
    if V < 0 then
      WriteLn('Broj mora biti veci od 0.');
  until V >= 0;
end;

I sta uopste znaci "pronalazi elemente koji se razlikuju od drugih u svojoj vrsti i koloni"?

_{[Ovu poruku je menjao _v!rus_ dana 06.01.2007. u 20:03 GMT+1]}

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Treba mi pomoc oko pravljenja 2d matrica

^{06.01.2007. u 19:20 - pre 210 meseci}

> Da, koristio sam taj niz. Ali da li bi mogao malo bolje da mi objasnis kako da smestam te dobijene elemente u taj novi niz
> (TStringList jos nismo radili). Kako da proveravam da li su ti elementi u nizu jer koliko znam 'in' ne mogu da upotrebim.

E pa sada dolazi do izražaja smisao domaćeg zadatka, učenje. Imaš primere u helpu, u kodu koji dolazi uz Delphi komponente, na netu, pa potraži. Ako nisi radio sa TStringList onda koristi nešto drugo, recimo dodatni (jednodimenzionalni) niz u koji ćeš upisivati stavke po istom principu.
Nešto me zanima, da li vi imate neki udžbenik ili skripte po kome radite?

Odgovor na temu