Дан текстовый файл, удалить лишние пробелы кроме одного

@dareal · Регистрация: 25.11.2012

Дан текстовый файл f, преобразовать его строки, т.е. убрать лишние пробелы кроме одного, и преобразованные строки
записать в файл g.

подскажите как исправить

Pascal

Program rgr1_1;
uses crt;
var f,g:text; s:string; n:integer;
begin
assign (f,'C:\pasc\new.txt');
assign (g,'С:\pasc\past.txt');
reset (f);
rewrite (g);
while not eof (f) do
begin
  readln(f,s);
  n:=pos(' ');
  while n>0 do
 begin
  delete (s,n,1);
  n:=pos(' ');
end;
  writeln (g,s);
end;
close (f);
close (g); 
end.

@Cyborg Drone · 03.06.2013, 23:56

Pascal

1	n:=pos(' ');

Это... что за кака?

Pascal

  //....
  readln(f,s);
  while pos('  ', s) > 0 do delete (s,pos('  ', s),1); //в pos по два пробела
  writeln (g,s);
  //....

Вот так. И переменная n тогда лишняя.

Всего Вам доброго.

Опции темы