slowa5

Posted on January 29, 2012, 3:26 pm UTC anonymously (about 24 days ago)

Code (highlighted for Pascal)

 Copy     Print
  1. program slowa5;
  2. var plik1,plik2:text;
  3.  
  4. procedure slowa5(var plik1,plik2:text);
  5.   var slowo:string;
  6.       k:integer;
  7.       c:char;
  8. begin
  9.     while not eof(plik1) do begin
  10.       k:=0;
  11.       slowo:='';
  12.       while not eoln(plik1) do begin
  13.         read(plik1,c);
  14.         if (c<>' ') then begin
  15.                           inc(k);
  16.                           slowo:=slowo+c; end
  17.                                           else
  18.                                                if k=5 then begin
  19.                                                    write(plik2, slowo, ' ');
  20.                                                    k:=0;
  21.                                                    slowo:=''; end
  22.                                                       else begin
  23.                                                     k:=0;
  24.                                                     slowo:=''; end;
  25.         end;
  26.         if k=5 then write(plik2, slowo);
  27.     readln(plik1);
  28.     writeln(plik2);
  29.    end;
  30. end;
  31.  
  32. begin
  33.  assign(plik1, 'D:\plik1.txt');
  34.  reset(plik1);
  35.  assign(plik2, 'D:\plik2.txt');
  36.  rewrite(plik2);
  37.  slowa5(plik1, plik2);
  38.  close(plik1);
  39.  close(plik2);
  40.  end.
  41.