[ milos04 @ 20.12.2009. 20:38 ] @
moze li neko da mi pomogne oko ovog programa, problem mi je shto ne znam bash sa .txt fajlovima u pascalu, ne znam kako da se shetam po uchitanom .txt i kako da iz .txt fajla saberem dva i vise vremena koja su uneshena kao xx:yy:zz.... hwala swima unapred. pozz

a) poziva potprogram koji ucitava imena datoteka sa kojima ce raditi,
b) poziva odgovarajuci potprogram koji izvrši traženu obradu nad datotekama,
c) ponavlja prethodne korake sve dok korisnik za ime datoteke ne zada prazan string.
cita ulaznu datoteku sa podacima o dial-up pristupima, gde je svaki red po formatu idKorisnika username hh:mm:ss (identifikacija korisnika – ceo broj, korisnicko ime – string do 20 znakova, dok je poslednji podatak o vremenu provedenom na vezi u satima, minutima i sekundama) i koja u može u susednim redovima imati podatke o istom korisniku (isti su identifikacija korisnika i korisnicko ime); program treba da napravi izlaznu datoteku ciji su redovi formata kao kod ulazne datoteke; u izlaznoj datoteci se nalaze zbirni podaci o dužini trajanja konekcija za svakog korisnika pojedinacno (za svakog korisnika u zasebnom redu);

Program treba da cita ulaznu datoteku uz vodenje racuna o tipu podataka koji se cita. Za sve podatke koje ima smisla grupisati, osmisliti sopstveni tip zapisa i koristiti promenljive tog tipa, tamo gde je to moguce. Podatke iz datoteka nije dozvoljeno smeštati u bilo kakvu zbirku podataka u memoriji (na primer, niz). Smatrati da ulazna datoteka ima 0 ili više redova. Radi lakšeg citanja, smatrati da svi stringovi sadrže tacno jednu rec. Ako nešto u postavci zadatka nije dovoljno precizno definisano ili ako su neki od zahteva medusobno suprotstavljeni, usvojiti razumnu pretpostavku i rešiti zadatak korišcenjem te pretpostavke. Osmisliti i napisati na papiru nekoliko primera ulaznih podataka sa kojima ce se program testirati, kao i ocekivani izlaz za odabrane primere. Test primere otkucati u bilo kom tekst editoru i priložiti zajedno sa tekstom programa. Potprogrami ne smeju pristupati promenljivama glavnog programa direktno, vec samo putem svojih argumenata.

Po uspešnom rešavanju osnovnog zadatka, napraviti modifikaciju programa tako da program obradjuje samo one linije iz ulaznih datoteka ciji je redni broj u skupu vrednosti iz opsega [1,255], koje korisnik unosi sa tastature.

· dz4.PAS, koja sadrži izvorni tekst programa na programskom jeziku Pascal;
· dz4_mod.PAS, koji sadrži modifikovani program koji radi sa skupovima;
· dz4_u1.txt, …, dz4_uN.txt, koje sadrže nekoliko odabranih test primera kojima ce program biti testiran.
[ captPicard @ 21.12.2009. 00:17 ] @
Do kuda si ti stigao sa rješavanjem? Reci di je zapelo pa ćemo ti pomoći.
[ milos04 @ 21.12.2009. 09:59 ] @
evo dokle sam stigao

program zadatak4 (dz4_u1,dz4_u2);
uses CRT;
type clan = record
ID: integer;
kor: array [1..20] of char;
time: record
sat: integer;
min: 0..50;
sec: 0..50;
end
end;

var korisnik: clan;
ulaz, izlaz: file of clan;
procedure unos;
begin
assign(ulaz, 'c:\dz4_u1.txt');
reset(ulaz);
assign(izlaz, 'c:\dz4_u2.txt');
rewrite(izlaz);
end;

procedure obrada(var ulaz, izlaz: file of clan);
begin
while not (eof(ulaz)) do
begin
read (ulaz, korisnik);
end;

close(ulaz);
close(izlaz)
end;

begin
clrscr;
unos;
obrada(ulaz,izlaz);
readln;
end.

[Ovu poruku je menjao milos04 dana 21.12.2009. u 20:09 GMT+1]

[Ovu poruku je menjao milos04 dana 21.12.2009. u 20:10 GMT+1]
[ tkaranovic @ 22.12.2009. 13:52 ] @
Prvi postavljeni kod pre izmena je bio sa tekstualnim fajlom a ovaj nije. Sa tekstualnim fajlom bi moglo:

Code:

  fajl,rezfajl: text;
  id,c,st,mn,se: integer;
  sid: array[0..3] of char;
  korisnik: array[0..20] of char;
  sat: array[0..2] of char;
  min: array[0..2] of char;
  sek: array[0..2] of char;
  dtck1,dtck2: char;
...
    AssignFile(fajl, 'f.txt');
    reset(fajl);
    readln(fajl, sid, korisnik, sat, dtck1, min, dtck2, sek);
    close(fajl);

    if dtck1+dtck2 = '::' then begin
      val(sid,id,c);
      val(sat,st,c);
      val(min,mn,c);
      val(sek,se,c);

      AssignFile(rezfajl, 'r.txt');
      rewrite(rezfajl);
      writeln(rezfajl, id:3, korisnik:20, st:2, ':', mn:2, ':', se:2);
      close(rezfajl);
...


nizovi karaktera imaju jedan više karakter za nulu koja označava kraj niza.