работа с текстом

[nejimakc]

отредактировать заданное предложение, заменяя многоточие точкой. Предложение произвольное.

[RomiKon]

function TextEdit(Text: String): String;
var
I, J, K: String;
begin
Result:='';
for I:=1 to Length(Text) do
begin
if Text[I] = '.' then
begin
Inc(J);
if J > 2 then
begin
Result:=Result+'.';
J:=0;
end;
end else
begin
for K:=0 to J-1 do
Result:=Result+'.';
J:=0;
Result:=Result+Text[I];
end;
end;
end;

Как так, проверить нет времени да сделать можно короче.

[Stilet]

Предлагаю такое:

MODULE Предложение;
 IMPORT StdLog,Strings;
 PROCEDURE do*(Строка:ARRAY OF CHAR);
 VAR i,k,res:INTEGER;
  s:ARRAY(255) OF CHAR;
 BEGIN
  i:=0;
  WHILE Строка[i]#CHR(0) DO 
   s[i]:=Строка[i];
   INC(i);
  END;
  StdLog.Clear;
  StdLog.String(Строка);
  i:=0;
  WHILE i#-1 DO
   Strings.Find(s,'...',i,k);
   IF k#-1 THEN
    Strings.Replace(s,k,3,'.');
   END;
   i:=k;
  END;
  StdLog.String(s);
 END do;

END Предложение.
"Предложение.do('Привет... мир мой мир')";

[Niro]

Хм, подразумевал ли автор что многоточие - это именно три точки?
под любое количество точек больше двух можно так

   readln(stroka);
   repeat
   i:=i+1;
   if (stroka[i]='.') and (stroka[i+1]='.') then begin
                                          delete(stroka,i,1);
                                          i:=i-1;
                                       end;
   until i=length(stroka);
   writeln(s);

А вообще автору надо быть повежливее

[Stilet]

это именно три точки?

Кто знает...

[Mad_Cat]

while pos('..',s)<>0 do 
delete(s,pos('..',s),1)

[Mad_Cat]

Дубль ....Глюк