Замена многоточия одной точкой в строке S.

[Карась]

Сообщение от Xeon332.

Приветствую.
Посмотрите пожалуста задачу:

Var
I: string;
A: array[1..255] of char;
Begin
For i:=length(a) downto 1 do
Begin
While pos('..',a)>0 do
Delete (a,pos('..',a),1);
Writeln;
End;
Writeln;
End.

Условие: 1) Дана строка S. Преобразовать строку, заменив в ней каждое многоточие одной точкой.



вЫДАЕТ ПОЧЕМУ ТО ОШИБКУ ПРИ ТАКОМ РЕШЕНИИ... Не подскажете в чём ошибка?

Ответ от меня:
Желательно для получения ответов на такие вопросы не пользоваться личкой. Не потому, что мне или комуто лень отвечать, а потому, что:
- можно быть очень занятым и не заходить на форум неделями.
- никто не может "поругать" мой ответ.
- я могу просто незнать ответа.
- некоторые пользуются поиском и может быть в этой задаче они найдут для себя что нибудь интересное.
[/off]

1. Непонятно зачем обьявлен массив...
2. i := length(a) Значение i заданно в разделе var как String.
3. Возможное решение этой задачи:

Var S : String;
      i : Byte;

BEGIN
Readln (S);
 For i := Length(S) DownTo 1 Do
   If (S[i] = '.') And (S[i - 1] = '.') Then Delete (s, i, 1);
Writeln(S);
Readln;
END.

[Stilet]

никто не может "поругать" мой ответ.

Хыхы Чесный человек ))
Поругаю. Можно?

Многоточие это три а не две точки.

И предложу свой вариант:

var s:string;i:integer;
begin
s:='qwqwq...ere..erere...ertrtr...wr...ere';
repeat
 i:=pos('...',s);
 if i<>0 then delete(s,i,3);
until i=0;
writeln(s);
readln;
end.

[Карась]

Хм..... я предполагал что Многоточие это много точек....
Тобишь всё что больше одной точки это многоточие.

[Alex21]

Сообщение от Stilet

Многоточие это три а не две точки.

Не факт
Многото́чие (…) — знак препинания в виде нескольких (в русском языке трёх) поставленных рядом точек.

[Stilet]

Лана, убедили.
Пусть автор теперь выбирает
Оффтоп: я никогда и в других языках не видел в многоточии больше или менбше трех точек

[puporev]

Чтобы заменить три точки на одну нужно написать так
for i:=length(s) downto 1 do
while pos('...',s)>0 do delete(s,pos('...',s),2);
две точки удаляем, а одна остается.

[Stilet]

а-а-а точно. Провтыкал )

[GAGARIN-NEW]

StringReplace чем не подходит ??

[puporev]

По умолчанию требовалось решение в Паскале.

[GAGARIN-NEW]

Сообщение от puporev

По умолчанию требовалось решение в Паскале.

Ясно. Если бы требовалось решение в делфи то данная функция незаменима.