+ Ответить в теме
Показано с 1 по 4 из 4

Тема: Задача на строки

  1. #1
    Juhn is on a distinguished road
    Регистрация
    23.12.2007
    Возраст
    28
    Сообщений
    9
    Вес репутации
    0

    По умолчанию Задача на строки

    Помогите плз написать прогу по паскалю
    Условие такое: в ведённой строке заменить все фрагменты "pavasaris" на "vasara"

    Надеюсь кому то будет не сложно, а то блин завтра в к.р будет такая задача....

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    Moderator Куратор
    system architect
    MOTOCoder is on a distinguished road
    Регистрация
    14.01.2008
    Адрес
    Россия, Псков
    Сообщений
    542
    Вес репутации
    12

    По умолчанию Re: Задача на строки

    Вообще с такими задачами, тем боле, без каких-либо наработок - в РМЗ.
    Задача-проще некуда:
    Код Delphi:
    1. var
    2.  S,SB:string;
    3.  P:integer;
    4.  
    5. const
    6.  Src='pavasaris';
    7.  Dst='vasara';
    8.  L=Length(Src);
    9.  
    10. begin
    11. readln(S);
    12.  P:=Pos(Src,S);
    13.  while P>0 do
    14.  begin
    15.   SB:=Copy(S,P,Length(S)-P+1);
    16.   Delete(SB,1,L);
    17.   Delete(S,P,Length(S)-P+1);
    18.   S:=S+Dst+SB;
    19.   P:=Pos(Src,S);
    20.  end;
    21.  writeln(S);
    22.  readln;
    23. end.
    Ни что так не ограничивает фантазию программиста, как компилятор...

  4. #3
    programmer un4-funeral is on a distinguished road Аватар для un4-funeral
    Регистрация
    18.04.2008
    Возраст
    29
    Сообщений
    58
    Вес репутации
    11

    По умолчанию Re: Задача на строки

    а зачем было длину в константе объявлять ?

  5. #4
    Moderator Куратор
    system architect
    Хыиуду has a spectacular aura about Хыиуду has a spectacular aura about
    Регистрация
    06.03.2005
    Адрес
    Москва
    Сообщений
    2,388
    Вес репутации
    19

    По умолчанию Re: Задача на строки

    Шоб было. Можно еще попробовать сократить - для данного конкретного случая
    Код :
    1. while pos('pavasaris', s)<>0 do
    2.     s:=copy(s, 1, pos('pavasaris', s)-1)+'vasara'+copy(s, pos('pavasaris', s)+9, length(s));
    Искусство программирования - заставить компьютер делать все то, что вам делать лень.
    Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.

+ Ответить в теме

Похожие темы

  1. Задача на строки !
    Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.:confused: помогите пожалуйста ...
    от ZimAN в разделе Решите мне задачку
  2. Задача на строки
    Помогите, пожалуйста решить эту задачу, заранее спасибо! Задан текст, преобразовать его, удалив все запятые, предшествующие первой точке и заменив...
    от litis в разделе Решите мне задачку
  3. поиск строки с заданым словом и вставка строки ниже
    уважаемые подскажите, как в листе excel найти строку со словом например "test" и ниже ее вставить строку со словами "test_test"? я только начинаю...
    от shery в разделе MS Office и VB(A).
  4. СТРОКИ для VBA
    Все задачи на строки Дана строка. Преобразовать ее, заменив точками все двоеточия (:), встречающиеся среди первых n/2 символов, и заменив точками...
    от Wuddy в разделе MS Office и VB(A).
  5. Строки: Вывод строки со звуком
    Интересует как можно выводить строки(допустим в цикле),сопровождаемые звуковым сигналом... Знаю ,что там для этого есть какой-то "\a". Так куда его...
    от qwertyuiop в разделе C и C++

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения