Работа со строками

@BiTwaR · Регистрация: 12.11.2009

Author24 — интернет-сервис помощи студентам

Всем привет.
Можете помочь написать вот такую програмку: Дана строка символов. Преобразовать ее на месте, заменив каждую из групп стоящих рядом точек тремя точками.

@Puporev · 12.11.2009, 22:47

2 точки это тоже группа?

@BiTwaR · 12.11.2009, 22:58 **[ТС]**

Да, две тоже считаются группой. (любое количество стоящих рядом точек это группа и если стоит одна точка, то ее тоже надо на 3 точки менять)

@Puporev · 12.11.2009, 23:18

Pascal

uses crt;
var s:string;
    i,j,k,p:byte;
begin
clrscr;
writeln('Stroka:');
readln(s);
i:=1;
while i<=length(s) do
if s[i]='.' then
 begin
  j:=i;k:=1;
  while s[j+1]='.' do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k<3 then
   begin
    for p:=1 to 3-k do
    insert('.',s,i);
    i:=i+3;
   end
  else if k>3 then
   begin
    for p:=1 to k-3 do
    delete(s,i,1);
    i:=i+3;
   end
  else if k=3 then i:=i+3;
 end
else i:=i+1;
write(s);
readln
end.

@BiTwaR · 12.11.2009, 23:47 **[ТС]**

О да =) Отлично работает. Спасибо большое =)

@BiTwaR 0 / 0 / 0 Регистрация: 12.11.2009 Сообщений: 21
		1
	Работа со строками 12.11.2009, 22:38. Показов 594. Ответов 4 Метки нет (Все метки) Всем привет. Можете помочь написать вот такую програмку: Дана строка символов. Преобразовать ее на месте, заменив каждую из групп стоящих рядом точек тремя точками. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.11.2009, 22:47	2
	2 точки это тоже группа? 0

@BiTwaR 0 / 0 / 0 Регистрация: 12.11.2009 Сообщений: 21
	12.11.2009, 22:58 [ТС]	3
	Да, две тоже считаются группой. (любое количество стоящих рядом точек это группа и если стоит одна точка, то ее тоже надо на 3 точки менять) 0

@BiTwaR 0 / 0 / 0 Регистрация: 12.11.2009 Сообщений: 21
	12.11.2009, 23:47 [ТС]	5
	О да =) Отлично работает. Спасибо большое =) 0