VPF::Пояснение задач - Форум программистов

R.E.Mus

Дата 26.12.2005, 18:41 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Есть задача {на турбо паскале (Условие:Пользователь вводит строку и подстроку произвольной длины, для каждого совпедения подстроки удалить их нечётные совпадения и поместить в начало строки.)

Код


program a1;

uses Crt;

var
  str1,str2,str3: string;
  Ch: Char;
  done,done2,chet: Boolean;
  n,nom: word;

begin
  clrscr;
  repeat
   clrscr;
   writeln('vvedite stroku 1 ... ');
   readln(str1);
   writeln('vvedite stroku 2 ... ');
   readln(str2);
   chet:=false;
   str3:='';
   done:=false;
   done2:=false;
   repeat
    n:=pos(str2,str1);
    if n>0 then
     begin
      if chet then
       begin
        str3:=str3+copy(str1,1,n-1+length(str2));
        delete(str1,1,n-1+length(str2));
        chet:=not chet;
       end
      else
       begin
        str3:=str3+copy(str1,1,n-1);
        str3:=str2+str3;
        delete(str1,1,n-1+length(str2));
        chet:=not chet;
       end
     end
    else
     begin
      str3:=str3+str1;
      done:=true;
     end;
   until done;
   writeln(str3);
   writeln('ESC - выход... ');
   Ch:=ReadKey;
   case Ch of
    #27: done2:=true;
   else
   end;
  until Done2;
end.

Лбъясните как она работает...Если можно поподробней...Заранее благодарствую...

Zero

Дата 26.12.2005, 23:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(R @ 26.12.2005, 19:41)

Лбъясните как она работает...Если можно поподробней...Заранее благодарствую...

Дык начни сам разбирать, а те строки которые не понятны спрашивай...

Guedda

Дата 30.12.2005, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: 78

ClrScr = отчистить экран smile

--------------------

Ll 2

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »