Kolekcija zadataka u PASCAL-u

Ne razumem sto si stavio "while i<=n and p do begin" to "p", msm da nema potrebe, stavio si gore, na pocetku funkcije "p:=true;", a dole ispod if "p:=false;", tako da mislim ako vec nije tacno to pod if naredbom, automatski je true....Probaj samo bez p...

p.s. Mada mi upste nije jasno sta se trazi u zadatku...;)

@savkic hvala nisam mogao da verujem da je do toga a meni je problem sto koristim Windows 7 (64 bitni) pa imam veliku muku sa kompajliranjem a ne vidim gde mi fali end cini mi se da sam ih sve pozatvaro, zato sam i ovako odvajao da bih se lakse snasao ja ili sam corav ( slab imam vid a ne nosim naocare) ili sam napravio neku vecu gresku...

@Marko Simulak
Pa stavio sam p iz razloga ako je taj uslov i<=n i ako je p tj. ako je zadovoljava taj uslov true oda da radi to dole... Bem li ga, ja sam tako naucio :S...

A u zadatku se trazi da recimo ako imam neku matricu 3x3 :
1 6 3
5 4 1
8 1 2

U ovom slucaju bi broj b bila jedinica (1) i ako u svakoj koloni ima taj neki broj b da mi ispishe 1 odnosno ako nema da ispishe 0 u prevodu ima i nema :)... Ja sam ga tako skapirao...

Aha, ok, sve u svemu kompajlira i sa p kada je ovo (i<=n) u zagradi. Al meni i dalje izbacuje gresku vec kada ga pokrenem, i ucitam brojeve, stavi "stack overflow error"....ma sta god to znacilo...:D

To owerflow javlja zbog toga sto prelazi onaj dozvoljeni opseg u paskalu maxint ( oko 32787) ali ne znam sta racuna ili sta radi jer treba da ispita da li u sve tri (ili koliko stavish) kolone postoji broj b nebi trebalo da ista racuna samo da predje kroz matricu tj. kroz kolone i da ispita... Ajd probaj ti da ga uradish savkic pa daako nesto zajedo napravimo :), mene najvishe zeza ovaj kompajler jer ga pokrecem iz onog Dbox-a emulator onaj pa i kad kompajluje jednom sve propadne (zakuje) i moram iz pocetka :S

Pa kontao sam i ja da je to, i uzeo sam ovo sto se vi rekli, ali nece, isto mi pise...Ae reci mi kako ti napises brojeve da i ja ako stavim, msm po redu kako unosis?? :D

pa unosim elemente matrice ono za prvu vrsu recimo 1 "space" 2 "space" ... pa za sledecu vrstu lupim enter pa unosim u sledecu elemente... tako sam radio do sad al ovaj nikako da proradi :D

Nz, kazem ti, meni ovo izbaci sta god da unesem..provericu jos jednom kod, pa javljam..:D

E da, sada mi pade na pamet, imam i ja jedan zadatak, koji radim vec duze vreme, i ne ide bas najbolje, ja sam smislio, msm, radili su to ljudi pre mene, al nz da li su u paskalu, msm da su u javi, al sve u svemu, mora da moze i ovde, zadatak je tipa da ja napisem program nesto kao "decrypter", koji npr: u jednom .txt fajlu imam reci(original), onda meni korisnik unese npr: ako je rec STO(original), unese "OST", i da meni program izbaci STO, ukoliko ima ta rec u "reci(original)", a ukoliko nema, pa bilo sta, tipa "nema"...Ima li ideje?? predpostavljam da treba sa onim assign i rewrite i ostalim...

Tacno treba da radish pomocu datoteka ili kako ih josh vec zovu, assign ti sluzi samo da se pozicionirash na tu datoteku ili taj fajl kolko znam paskal samo prespoznaje assign(f,"Decripter.dat"); nisam radio do sad sa .txt extenzijama, nisam stigo dotle a necemo ih ni radit na faxu ja mislim ali ipak cu ih pogledat ako ih ima uopste :)... :)

pa stvar je u tome sto nisam ni ja, nego ja kao pitacu profesoricu, kada ono prosli cas mi to radili..mada nije bas savrseno jasno, a i stringove mi nismo radili ono ka length i ostalo sto moze kod njih, tako da se i sa tim zezam po netu...

e jos kad profesorica sve znala, ih :)

a i ne vidim sto bi pitao nju pored google-a:

http://pascal-programming.info/lesson9.php

Uh, toliko toga ima, da ne mogu sve odjednom da popamtim....sl skolske godine i onako radim i dalje paskal, ima vremena...:D

Evo ja uradih ovo cudo al nikako rezultat da mi izbaci :D nego lupam enter u nedogled dok sam ne izbaci kad vidi da se nista ne desava :D

nz, pokusavam da resim ovaj, ali to je....:/

Da li znate zbog cega nece da mi zatvori datoteku, kada je ispisem iako upisem u kod "while not eof" i "close(f);"..?? Nece da se zatvori user screen kada pritisnem ctrl i z...??

Moj sam zavrsio samo sam brojac spustio ispod end :) zato je bila beskonacna petlja... a taj tvoj daj pa cemo davidimo gde ti je greska treba while not eof(f) ... mozda ti je na drugo mesto greska...

Evo ovaj najprostiiji...

while not eof(a) ; tako treba a za otvaranje i pristupanje datoteci tj za njenu prirpremu koristish reset(a); sve zavisi sta program treba da radi...