Pascal darbības ar text failiem

[GUNIS95]

Sveiki!

Uzdevums:

Ja ievades failā viena otrai sekojošas rindas ir vienādas tad izvadfailā starp šīm rindām ievadīt vārdu COPY. Kāds varētu dot kādu ideju?

[VIL]

if a=b then c:=a+#13+#10+'COPY'+#13+#10+b;

Labots Februāris 16, 2015 - VIL

[GUNIS95]

Lūk kods, līdz galam nestrādā, kas īsti nav pareizi?

program Lab1;
uses CRT;

  var
InpFile,        {Ievada datu fails}
OutFile   :text;      {rezultatu fails}
 i:integer;
 InputString, OutputString,OutputString1  : string;
 OutfileName: string;
 CONST
 InpFileName='Lab1Inp.txt';


begin
                {   Failu sagatavo­ana I/O darbŅbŌm  }
  Assign(InpFile, InpFileName );  { Datu ievada fails }
  Reset(InpFile);
  writeln(' ievadi rezultata faila vaardu');
  readln(OutFileName);
  assign(OutFile, OutFilename);   { Rezultatu fails }
  rewrite(OutFile);
                {Failu apkalp­anas darbŅbas }
  i:=0;
  while (not EOF (InpFile)) do
  begin

   readln(InpFile, InputString);
   OutputString:=InputString;
   readln(InpFile, InputString);
   OutputString1:=InputString;
   seek(InpFile,i);
   i:=i+1;

    Writeln(OutFile,OutputString);
  If OutputString=OutputString1 then Writeln(OutFile,'COPY');
    Writeln(OutFile, Outputstring1);
  end;
                {   Failu aizversana }
  close(InpFile); close(OutFile);
  readln;
  end.

[VIL]

liekās rindas: viss, kas satur mainīgo "i" un seek.

pirms cikla OutputString piešķiram kaut ko sliktu, piem., '';

ciklā lasām vienu stingu un pieglabājam iekš InputString

ja InputString=OutputString , tad drukājam 'COPY';

pēc tam OutputStringā ieliekam InputString vērtību un izdrukājam Outputstringu.

 

ar to vajadzētu pietikt.

OutputString1 ir lieks mainīgais.