[ zarkomd @ 04.06.2006. 20:35 ] @
Da samo opisem sta program treba da radi , i gde mi se pojavljuje greska
Imam 4 txt datotake koje nisu formatirane kako bih hteo, prvo ih formatiram i
upisujem u 4 nove, i u 4 niza. (evo sad tek vidim da mi te nove datoteke mozda
i nisu potrebne)... ok to kao radi ...
e sad glavni deo programa treba da iz tih nizova, koji su istih dimenzija!!!,

(po jedna je rec u redu u svakoj ne formatiranoj txt datoteci, i ima ih isti broj
samo prazna mesta i neke simbole zamenjujem sa 0,u formatiranim txt datotekama)

kad zadam jednu vrednost, program treba da je nadje u prvom nizu recimo to je clan" i ",
i onda treba da ispise i "i"-te clanove ostala 3 niza.

Ja vec nekih 2 sata buljim u kod i ne vidim gresku.
Sta se desava :
pascal mi ne izvrsava read komandu.
Izvrsava mi prvi read(pitanje1); al dalje sipak...
dal on ne moze da barata sa tolikim brojem informacija
il sta je problem?

Za ove tekst datoteke mozete da uzmete bilo koje
(moje imaju 763 reda sa jednom reci)

Evo koda:
http://www.ptt.yu/korisnici/a/n/anstain/program.txt




[ Whois @ 04.06.2006. 23:04 ] @
Koliko sam mogao da rastumacim,trazis mozda nesto ovako? (Kucano iz glave i garant ima sintaksnih gresaka)

sto se tice tvog programa umesto read stavi readln, onaj drugi read(pitanje3) ti nema smisla posto ga opet ucitavas par redova nize .


Code:

var
    kod : array [1..770] of string[6];
    cena : array[1..770] of string[10];
    bod : array [1..770] of string[8];
    proizvod:array [1..770] of string[35];
    i, n, ind: integer
    u1,u2,u3,u4:text;
   ulaz: string;
begin

  assign(u1,'ukod.txt);
  reset(u1);'
  assign(u2,'ucena.txt);
  reset(u2);'
  assign(u3,'ubodovi.txt);
  reset(u3);'
  assign(u4,'upro.txt);
  reset(u4);
  n:=0;
  while not eof(u1) and (n<770) do
    begin
      inc(n);
      readln(u1, kod[n]);
      readln(u2,cena[n]);
      readln(u3, bod[n]);
      readln(u4, proizvod[n]);
    end;
  while (n>0) and (ulaz<>'kraj') do
   begin
      readln(ulaz);
      ind := 0;
      for i:= 1 to n do
        if ulaz=kod[i] then
          ind=i 
     if ulaz<>'kraj' then
        if ind=0 then
          writeln('Nema ga')
       else
          writeln(kod[ind],cena[ind],bodovi[ind],proizvod[ind]); 
   end;
end;

[ zarkomd @ 05.06.2006. 08:21 ] @
Proradilo je hvala Whois ;)