Pascal: školski zadaci

Evogac, ma program mi sad bez problema radi to nije problem.

grupa B

ZADATAK za ocjenu - Rad sa tekstualnim datotekama (za 3R. mat.gimnazije)

Napisi program koji cita tekstualnu datoteku dattekb.txt

i ispisati slijece podatke u izlaznu datoteku pod nazivom izlazb:

a) broj redaka u ulaznoj tekstualnoj datoteci dattekb.txt

b) broj suglasnika u ulaznoj tekstualnoj datoteci dattekb.txt

c) broj razmaka (space znak) u ulaznoj tekstualnoj datoteci dattekb.txt

d) broj redaka koji imaju neparni broj znakova u retku ulazne datoteke dattekb.txt

e) ukupan broj znakova u ulaznoj datoteci dattekb.txt (u znakove ulaze i razmaci)

Edit: Ma ja sam siguran da on ne zna za te ascii kodove jer bi inače rekao gdje smo pogriješili, ali sve ćemo saznati za koji dan. Objasniti ću mu i pitati za te znakove iz proširene ascii tablice i pokazati mu preko pascala i notepada gdje je došlo do greške.

Sve u svemu Hvala

Da mogao sam obrisati ta tri znaka, ali problem sam uočio kasnije jer smo zadatak rješavali na satu i nismo baš imali vremena. A nismo nikada radili uvjete za te ascii pa ni kad smo vježbali. Nisu ni bili potrebni jer nismo radili sa takvim datotekama. Samo eto kako su se ta tri znaka pojavila u datoteci. Da li ima veze sa tim preko čega je ubacivao sadržaj ili je taj zadatak odnekud kopirao tko će znati ili je došlo do neke greške.

Što se tiče prošlog zadatka sve je rješeno, i na kraju je sve odlično ispalo, a drugačije nije ni moglo.

A sad da krenem na nešto drugo:

Ovako radim na vecem programu, tj.bazi podataka ucenika. Javlja mi se stalno jedan iritantan problem. Kad otvorim novu datoteku(tj.novi razred) i upišem nove podatke - učenike(ime,prezime,prosjek ocjena) nikada ne želi prikazati zadnji slog, prilikom izvršavanja drugih procedura. Ali kad ponovo pokrenem program (izašem iz programskog okruženja i ponovo uđem) broj slogova se uredno prikazuje.

Edit: a trebao bih pomoc i oko ove procedure i mislim da je ona glavni problem jer se javlja u svim ostalim(znaci treba prilikom svakog dodavnja sloga, pregleda, itd... otvoriti postojeću datoteku/razred i kasnije raditi s njom). Odnosno npr. želim dodati slog i ''U koji razred želite dodati novog učenika'' i sad ta procedura i kasnije klasika sa dodavanjem slogova na kraj datoeke, i spomenuo sam da imam problema več ranije sa prikazom zadnje sloga. Da li je kod ispravan ili bi trebao nešto mijenjati.

procedure postojecaDatoteka(var razred:slogovi);

var

  imedat:string[50];

  otvori:boolean;

begin

   repeat

   write('Ime razreda koji želite otvoriti? ');

   readln(imedat);

   assign(razred,imedat);

{$I-}

   reset(razred);

{$I+}

   otvori:=(IOresult=0);

   if not otvori then

     writeln('Razred sa imenom ',imedat,' ne postoji')

     else

     writeln('Razred sa imenom ',imedat,' je otvoren')

   until otvori;

end;

Da, u pravu si.

Recimo kod dodavanja novih slogova na kraj sam stavio zatvaranje datoteke ''razred'' i sad radi uredno.

Zašto mi u devpascalu ne želi otvoriti postojecu datoteku, tj.kaze da ne postoji, a turbo hoce. Vjerovatno je problem u lokacijama. Ili možda ne. Jer kad pokrenem neki drugi pascal program otvara normalno.

Ma ni ne trebam te pitati(a nisam ni toliko glup da guglam, razumijem se u korištenje softwera) Samo sam sada malo više prionio programiranju. No nema veze sa time, sa lokacijamam itd. Sve je do ovih zatvaranja datoteka, mora se dobro paziti kao što si rekao. Ova procedura postojecaDatoteka je jedina kojoj ne treba close(što je logično) dok kod ovih ostali ako rade sa datotekom najsigurnije ju je pred kraj zatvoriti. Onda radi sa oba programa.

Uostalom hvala na ovom upozorenju sa zatvaranjem, ubuduće ću više paziti na to. Ova procedura postojeće datoteke je malo poremetila program.

Jasno mi je o čemu pričaš. Naravno, to sam i provjerio kod devpascala, kod mene je radni direktorij tamo gdje se nalazi i sam devpascal, tj njegov .exe. Odatle se i otvaraju datoteke. I naravno da to nekada zna ovisiti i nekim drugom stvarima poput samog OS-a,IDE... Imao sam takvih situacija još prije sa programima druge vrste. No problem trenutno nije bio ''putanjske'' naravi nego ove u samom kodu.

Ajmo može li ko pomoći da nađem grešku : http://www.bug.hr/forum/topic/programiranje/determinanta/163658.aspx

Pozdrav!

Treba mi hitno pomoc.

Paskal - 2 razred srednje


-Unijeti petocifren cijeli broj. Ispisati njegovu srednju cifru. 

Unaprijed hvala!

Pitanje, imamo zadatak koji treba riješiti preko pokazivaca. Recimo trebamo unijeti nekih 5 elemenata i izracunati prosjek. Da li je u tim situacijama dopusteno koristiti petlje, staticke varijable, itd. Pokazivacka varijabla bi mi bio samo element(ocjena,visina...). Imao bih brojac koji bi zbrajao pokazivacke varijable(recimo zb:=zb+p^) tijekom petlje i na kraju u ispisu bi ostavio prosjek(zb/n). Da li takav nacin rjesavanja sa pokazivcima ispravan? Da li ove ispisne varijable(zb, n) isto moraju biti prikazane preko pokazivaca?

NIKAD nije u redu to tako napraviti. Uvuci redove onog što je na hijerarhijski nižoj razini jer se ovako ne vidi što je unutar, a što izvan petlje. Također, curi ti memorija. Pet puta rezerviraš memoriju za p (napraviš pet instanci p), a oslobiš samo jednu, zadnju kreiranu! Dakle, dolazi ti do curenja memorije.

Nadalje, ispitaj u koju svrhu bi se trebali koristiti pokazivači. Ovo što si napravio u kodu se nikad tako ne radi, jer je besmisleno. Pokazivači se tipično koriste za vezane liste. I za još neke druge stvari. Međutim ti u tom programu koristiš pokazivač za ono za što si mogao upotrijebiti i običnu varijablu - i tad ne bi imao curenja memorije.

To što si napravio NIJE vezana lista - to uopće nije lista! Lista je kad se pomoću pokazivača unutar instance objekta (sljedeci) seliš s jednog na drugi objekt. Ti si instancirao jedan objekt i ne seliš se nikamo.

http://pascal-programming.info/articles/linkedlists.php

http://www.daniweb.com/software-development/pascal-and-delphi/threads/105876/linked-list-in-pascal

Napisati ne, sigurno. Zapitaj se što znaš iz Pascala?, da li znaš raditi sa tekstualnim datotekama, znaš li raditi sa funkcijama, na kraju krajeva osnovni upis/ispis?

Evo ti link za rad sa txt datotekama u Pascalu:
http://www.pascal-programming.info/lesson9.php

Pređi nekoliko zadataka sa txt datotekama i onda se baci na svoj zadatak - program za vođenje datoteke.

To je preteško za nas... Jedino da ti nešto napraviš pa ćemo mi pokušati dovršiti.

Nisam vješt u Pascalu, gotovo da nemam pojma, tako da što se sintaksičkih grešaka tiče ne mogu ti pomoći, ali mislim da je stvar u drugoj for petlji, gdje izračunavaš sumu ocjena.
U toj petlji ostavi samo

SumaOcjena:=SumaOcjena+ocjena[i];
Nakon što se izvrti petlja, onda izračunaš prosjek, tj.
prosjek:=SumaOcjena/14;

Koliko znam u Pascalu intendancijom ubacivaš u petlju, pretpostavljam da je tako, onda bi i ovo

if ocjena[i]=1 then writeln ('Nedovoljan (1)') else

trebao ubaciti u petlju.

Možda griješim, ali probaj uraditi ovo što sam ti rekao, ili čekaj nekoga ko radi sa Pascalom.

Evo malo pitanjce u vezi grafike u Pacalu, kod izgleda ovako:

program pravokutnik;

uses graph;

var gd,gm,x1,y1,x2,y2,c:smallint;

begin

randomize;

writeln('Pritisnite Enter za izvodjenje programa ');

readln;

detectgraph(gd,gm);

initgraph(gd,gm,' ');

line(0,0,getmaxx,getmaxy);

line(getmaxx div 2,0,getmaxx div 2,getmaxy);

line(0,getmaxy div 2,getmaxx,getmaxy div 2);

x1:=2*getmaxx div 3;

y1:=getmaxy div 5;

x2:=9*getmaxx div 10;

y2:=1*getmaxy div 3;

c:=random(getmaxcolor)+1);

setfillstyle(1,c);

bar(x1,y1,x2,y2);

settextstyle(0,0,4);

outtextxy(50,0,'Pravokutnik');

readln;

closegraph;

end.

Moram nacrtati u Pacalu sliku (slika1). Radio sam to preko omjera ekrana, znam da sam si zakomplicirao(omjere sam uzeo od oka), ali jedino tako sam se snašao jer ovaj pravokutnik mora biti u 2.kvadrantu, a u onom trokutu mora pisati Pravokutnik(pravokutnik ne smije prelaziti svoj kvadrant kao što ni tekst trokut). Može li se ovaj kod nekako urediti, odnosno pojednostaviti.