[es] - Pomoc oko jednog pascal programa

zarkomd

Član broj: 63329
Poruke: 44
*.eunet.yu.

Profil

^{04.06.2006. u 20:35 - pre 217 meseci}

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

Odgovor na temu

Whois

Član broj: 92214
Poruke: 37
*.panet.co.yu.

Profil

Re: Pomoc oko jednog pascal programa

^{04.06.2006. u 23:04 - pre 217 meseci}

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;

Odgovor na temu