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

@Юляшко · Регистрация: 02.03.2010

Дан текстовый файл. Удалить из него все лишние пробелы, оставив между словами не более одного пробела. Результат поместить в новый файл. Я вот написала но у меня когда я делаю 5 пробелов он удаляет не все пробелы пробел(((

вот программа

Pascal

uses crt;
var stroka,zag: string;
 
    f1,f2: File of string;
    i,k,pr: integer;
    temp:string;
 
   procedure delete(var stroka:string);
   var i:integer;
   begin
    for i:=1 to length(stroka) do
    if (stroka[i]=' ') and (stroka[i+1]=' ') then delete(stroka,i+1,1);
    end;
begin
writeln('введите текст: ');
readln(stroka);
delete(stroka);
writeln(stroka);
 
end.

@yanyk1n · 01.05.2010, 14:21

Pascal

procedure Erase(var st:string);
begin
 while st[1]=' ' do delete(st,1,1);
 while st[length(st)]=' ' do delete(st,length(st),1);
 while pos('  ',st)>0 do delete(st,pos('  ',st),1);
end;

Добавлено через 36 секунд
А вы до кучи обозвали свою процедуру Delete, когда она уже является системной.

@Юляшко · 01.05.2010, 14:25 **[ТС]**

а почему он пишет неверное количество фактических параметров?

Pascal

begin
writeln('введите текст: ');
readln(st);
delete(st); // вот тут
writeln(st);
 
end.

@yanyk1n · 01.05.2010, 14:26

Юляшко, я еще раз говорю - delete - системная процедура, обозвать так свою вам нельзя. Используйте другое название.

@Юляшко · 01.05.2010, 14:28 **[ТС]**

а все поняла! разобралась! спасибо большое

@yanyk1n 4341 / 1473 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	01.05.2010, 14:26	4
	Юляшко, я еще раз говорю - delete - системная процедура, обозвать так свою вам нельзя. Используйте другое название. 0

@Юляшко 2 / 2 / 1 Регистрация: 02.03.2010 Сообщений: 95
	01.05.2010, 14:28 [ТС]	5
	а все поняла! разобралась! спасибо большое 0

Опции темы

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

Решение