Pascal teksta apstrāde

[og1oc]

Jāpilda mājasdarbs divas stundas jau čakarējos, bet nevaru izdomāt.

Uzd tāds, varbūt varat palīdzēt.

 

Programma ievadīt Text failu, veikt tā apstrādi un apstrādes rezultātu izvadīt citā TEXT failā. Ja ievades failā divas viena otrai sekojošas rindas ir vienādas, tad izvades failā starp vienādajām rindām iespraust rindu ar tekstu COPY.

 

 

Paraugs kurš jāmaina:

 

program Lab1;

uses CRT;

  var

InpFile,        {Ievada datu fails}

OutFile   :TEXT;      {rezultatu fails}

 InputString, OutputString : string;

 OutfileName: string;

 CONST

 InpFileName='Lab1Inp.txt';

 begin

  Assign(InpFile, InpFileName );  { Datu ievada fails }

  Reset(InpFile);

  writeln(' ievadi rezultata faila vaardu');

  readln(OutFileName);

  assign(OutFile, OutFilename);   { Rezultatu fails }

  rewrite(OutFile);

  CLRSCR;

 

 

 

 

 

  while (not EOF (InpFile)) do

  begin

   readln(InpFile, InputString);

   OutputString:=InputString;

   writeln( OutputString);

   OutputString:='Apstraadaatais teksts="' + Outputstring + '"';

   writeln( OutputString);

   Writeln(OutFile, Outputstring);

   end;

  close(InpFile); close(OutFile);

  end.

[VIL]

   readln(InpFile, InputString);

   OutputString:=InputString;

 

starp šīm rindām ieliec

 

if InputString=OutputString then Writeln(OutFile, 'COPY');

[og1oc]

Tavs ieteikums diemžēl nestrādā. Ja nu kādam noder ir gatavs.

 

 

program Lab1;

uses crt;

var InpFile, OutFile: text;

OutFileName: string;

PreviousString,CurrentString:string;

const InpFileName='lab1inp.txt';

begin

clrscr;

 

PreviousString:=' ';

CurrentString:='';

 

Assign (InpFile, InpFileName);

Reset (InpFile);

 

writeln ('Ievadi faila nosaukmu!');

readln (OutFileName);

 

Assign (OutFile, OutFileName);

Rewrite (OutFile);

 

while (not EOF (InpFile)) do 

begin

 

readln (InpFile, CurrentString); 

writeln (CurrentString); 

 

if PreviousString = CurrentString then 

begin

Writeln(OutFile, 'COPY'); 

end;

 

PreviousString := CurrentString;

CurrentString:='Apstraadaatais teksts="'+CurrentString+'"';

writeln( CurrentString);

Writeln(OutFile,CurrentString);

 

 

end;

PreviousString := CurrentString;

close (InpFile); close (OutFile);

readkey;

end.