slowa5

Posted on January 29, 2012, 2:55 pm UTC by pp (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<>' ') or (eoln(plik1)) 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.     readln(plik1);
  27.     writeln(plik2);
  28.    end;
  29. end;
  30.  
  31. begin
  32.  assign(plik1, 'D:\plik1.txt');
  33.  reset(plik1);
  34.  assign(plik2, 'D:\plik2.txt');
  35.  rewrite(plik2);
  36.  slowa5(plik1, plik2);
  37.  close(plik1);
  38.  close(plik2);
  39.  end.
  40.  

Comments

bb