Pascal: školski zadaci

Zanima me jedna stvar uz datoteke. Recimo postoji datoteka u pascalu(koju treba učitati te izbaciti vrijednost u drugu). Prebrojo sam 552 znakova(ukupan broj znakova treba izbaciti). No pascal u izlaznoj datoteci izbaci 555. Nije mi jasno zašto. Siguran sam da je sve u redu sa kodom a i da sam dobro izbrojio. U biti program mora izbaciti broj znakova(ukljucujuci i praznine) iz datoteke.

Ili "entere" (chr 13 i/ili 10). Ovisi kakva je datoteka (binarna, tekstualna), odnosno kako se iščitava (binarno, tekstualno).

Ako ih trebaš samo prebrojati uzemš neki brojač i prije otvaranje datoteke ga inicjaliziraš na 0.Kada kreneš čitati podatke iz datoteke samo stavi da ti se brojač povećava za 1.

e ako bi mi moga pomoci jos jedan zadatak.treba ispisati koliko je natjecatelja pisalo grupu B,tj kako da to pretražim.izgled datoteke:Ana Anic

A

50

Ivo Ivic

B

70

Pero Peric

A

20

Eva Evic

A

30

Jozo Jozic

B

95

Gogo Gogic

A

100

Marko Maric

B

95

Petar Markovic

B

85

Ivo Ancic

A

70

Goran Borić

A

60

program podaci;

uses crt;

type element=record

ime:string;

grupa:char;

bod1:integer;

end;

var odgovor:integer;

t:text;

br:integer;

x:element;

y:array[1..100] of element;

begin

assign(t,'c:\B\osobe.txt.');

reset(t);

br:=0;

while not eof(t)do

begin

br:=br+1;

readln(t,x.ime);

readln(t,x.grupa);

readln(t,x.bod1);

end;

close(t);

readln;

end.

hvala ti puno

za emerika jel nisam siguran jer sam poslao pp

ono kaj si mi rekao bas i ne radi.mozes li provjeriti da nisam negdje pogrijesio.znaci kada pokrenem program program mi ispisuj krivo ime tj ispise mi 3 imena

program podaci;

uses crt;

type element=record

ime:string;

grupa:char;

bod1:integer;

end;

var

t:text;

br,br1,i:integer;

x:element;

suma,min:integer;

y:array[1..100] of element;

begin

assign(t,'c:\B\osobe.txt.');

reset(t);

min:=1000;

while not eof(t)do

begin

readln(t,x.ime);

readln(t,x.grupa);

readln(t,x.bod1);

if  x.bod1<min then min:=x.bod1;

if  x.bod1=min then writeln(x.ime)

end;

writeln('najmanje bodova:', x.ime);

close(t);

readln;

readln;

end.

sorry ne bas.jel bi mi mogao napisati kod jer ne kuzim kako mislis proci kroz datoteku dva puta.

hmm, interesantno, ali rješio sam problem ručno kako bi se reklo. Pascal automatski u postojeću tekstualnu datoteku koju otvara upisuje na početku neka čudna tri znaka. No ako se uđe u tu datoteku preko programa - desni klik i ''open file at cursor'' i izbrišu ta tri znaka preko pascala sve je ok. Ta se tri znaka ne vide u txt datoteci nego se moraju otvoriti baš preko tog ''open file at cursor''(dev-pascal čini se nema tu opciju ali turbo i free imaju). Što je najgore svi podatci u izlaznoj datoteci automatski su pogrešni(zbog te greške). Ali eto na svu sreću uspio sam to nekako rješiti.

da ali oni nisu vidljivi u notepadu, samo u pascalu evo na sclici ta tri znaka, ne mogu pronaći nigdje u ascii koji su to znakovi.

ma slični su onima u extended ascii table

187, 191 ova posljednja dva.

EE, BB,BF prva ta tri pod ovim offsetom(da li  te to zanima?) ili? Pa stvarno mi nije jasno zašto bi to radio, ma u programskom kodu ništa ne dodajem samo učitavam.

to sam dobio u hex editoru(evo kako znakovi izgledaju u hex editoru - ), evo postat cu kod ako treba

program zadatak;

var dat1, dat2:text;

x:char;

a,b,c,d,e,p:integer;

samogl,znakov: set of char;

begin

samogl:=['A','E','I','O','U'];

a:=0;

b:=0;

c:=0;

d:=0;

e:=0;

p:=0;

assign(dat1,'dattekb.txt');

assign(dat2,'izlazb.txt');

reset(dat1);

rewrite(dat2);

while not eof(dat1) do

begin

while not eoln(dat1) do

begin

read(dat1,x);

inc(e);

inc(p);

if not (upcase(x) in samogl) and not(x=' ')then

inc(b);

if x=' ' then inc(c);

end;

if p mod 2<>0 then inc(d);

p:=0;

readln(dat1);

inc(a);

end;

writeln(dat2,'broj redaka: ',a);

writeln(dat2,'broj suglasnika: ',b);

writeln(dat2,'broj razmaka: ',c);

writeln(dat2,'broj redaka s neparnim brojem znakova: ',d);

writeln(dat2,'Ukupan broj znakova: ',e);

close(dat1);

close(dat2);

end.

Eto ga cijeli program, i dali to ima ikakve veze s ovim chr13,chr10 o kojima si govorio. Mislim ništa ne dodajem u postojeću datoteku, samo u izlaznu izbacujem rezultat. Više stvarno nisam u ništa siguran.

Evo ovako, datoteka je i sam zadatak i već je u njoj napisan bio sadržaj koju nam je dao profa, nismo morali nikakav sadržaj dodati u datoteku, nego ju učitati i u izlaznu datoteku ispisati rješenja. Izgleda da je problem u datoteci koju je profa postavio. Recimo kad ja sam sad stvorim datoteku i napišem bilo kakvi sadržaj u nju preko notepada, radi bez problema.

Hm, ali nije mi jasno kako je uspio nam dati takvu datoteku? Zar nam nije trebao reći o tome. Sad nam ocjena ovisi o tome, a on je rješenja prihvaćao onakvima kakva su preko notepada(znači 2 od 5 rješenja valja), pa ćemo sad zbog ta tri znaka mi biti krivi. Znači nije do nas. Em nikad nismo radili preko tih kodova. Samo mi nije jasno kako ih je uspio ubaciti.

Pa traži se ukupan broj znakova(valjda sve spada u to). Radili smo već tako nešto slično i nikad nismo morali postavljati uvjet za takvu vrstu znakova, pa ni on sam ih nikad ne stavlja.

Ma za sve se traže znakovi(ma eno u kodu što sam postavio prije imaš šta se sve traži) osim za suglasnike(tu se podrazumijevaju samo slova naravno). Znači jednostavno je problem u zadatku koji je nejasno postavljen i datoteci. Kod je po pravilu ispravan. Ali kako su ti kodovi dospjeli u datoteku? Siguran sam da ih nije namjerno stavio.