Строковый Тип!!!

[LegionuS]

Цель работы: Используя процедуры и функции обработки строк, произвести необходимые операции над строками.

Дана строка S. Преобразовать строку, заменив в ней каждую точку многоточием (тремя точками).

[Stilet]

i:=0;
while i<=length(s) do begin
 if s[i]='.' then begin insert(s,i,'..'); inc(i,3);end else inc(i);
end;

Правда не проверял.

[LegionuS]

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

i:=0;
while i<=length(s) do begin
 if s[i]='.' then begin insert(s,i,'..'); inc(i,3);end else inc(i);
end;

Правда не проверял.

А не мог бы полностью написать программу если не сложно!

[XeruH]

А может стоит хоть раз в учебник заглянуть?
Тебе осталось то тут объявить переменные и получить строку от пользователя!

[Stilet]

НУ чтож вот полностью:

var i:integer;s:string;
begin
i:=0;        s:='Hello .world.';
while i<=length(s) do begin
 if s[i]='.' then begin insert('..',s,i); inc(i,3);end else inc(i);
end;
write(s);
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Я кста в первом примере с insert малость прокосячил...

[Olesya777]

Помоги пожалуйста решить: Дана строка S. Преобразовать строку, заменив в ней каждую точку многоточием (трем
точками). (Строковый тип)

[Mad_Cat]

Дана строка S. Преобразовать строку, заменив в ней каждую точку многоточием (трем
точками). (Строковый тип)

как вариант

var s,s1:string;i:integer;
begin
readln(s);
s1:='';
for i:=1 to length(s) do
begin
if s[i]:='.' then s1:=s1+'..';
s1:=s1+s[i];
end;
s:=s1;
writeln(s);
readln;
end.