Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2012, 18:16   #1
Proskurina
Форумчанин
 
Регистрация: 27.05.2012
Сообщений: 109
По умолчанию

Задана строка символов. Преобразовать эту строку, удалив из нее те символы, которые соседствуют с символом "_".

как решаеться эта задача. я пробовала её решить так, посмотрите пожалуйста решение и испавьте если что не так
Код:
Program us;
uses crt;
var s: string; c: char ;
 procedure ModS (cc: char; var ss: string);
var i: byte;  sc: string;
begin
for i:=length(ss) downto 1 do
    begin
    sc:=copy(s,i,3);
    if sc[2]=cc then
   begin
  delete(s,i+1,1);
  delete(s,i-1,1);
 end;
 end;
end;
 begin
write('Stroka ');
 readln(s);
write('Simvol, "sosedei" kotorogo nado udalit');
readln(c);
ModS (c,s);
write('Stroka',s);
end.

Последний раз редактировалось Stilet; 27.05.2012 в 22:15.
Proskurina вне форума Ответить с цитированием
Старый 28.05.2012, 09:40   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Код:
var
   s : string;
   ch : Char;
   i : Integer;
   
begin
     ReadLn (s);
     ReadLn (ch);

     i := 1;
     while i <= Length(s) do begin
           if s[i] = ch then begin
              Delete (s, i+1, 1);
              Delete (s, i-1, 1);
              Inc (i,2);
           end
           else
               Inc (i);
           
     end;
     WriteLn (s);
end.
не проверял
Poma][a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана последовательность символов (строка). Группу символов, разделенную с одной или обеих сторон пробелам viper1941 Паскаль, Turbo Pascal, PascalABC.NET 1 14.04.2011 08:46
Задана строка, что состоит из слов, разделенная одним или несколькими пропусками... (Pascal) bot0 Помощь студентам 3 25.12.2010 12:29
Ввести строку символов,в которой задана последовательность целых чисел (возможно со знаком), разделенных killoff1234 Помощь студентам 0 16.05.2010 18:37
Дана строка символов.Преобразовать строку,заменив в ней каждую из групп стоящих рядом точек одной точкой V I K T O R I Y A Паскаль, Turbo Pascal, PascalABC.NET 1 03.05.2009 09:56
Дана строка S. Преобразовать строку, заменив в ней каждое многоточие одной точкой.Строки в C++ slog Помощь студентам 9 16.12.2008 20:14