Сложная программа

  • Автор темы R.E.Mus
  • Дата начала
Статус
Закрыто для дальнейших ответов.
R

R.E.Mus

#1
Код:
program super_string;

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.
Как видете здесь написан код программы (Условие: Пользователь вводит строку и подстроку произвольной длины, для каждого совпедения подстроки удалить их нечётные совпадения и поместить в начало строки)... Помогите разобраться как она работает...исли можно поподробнее с описанием кода...особенно где идёт основная часть...Понимаете девушка попросила чтоб я ей объяснил смысл этой проги и как она работает...А я со строками не дружу...C массивами другое дело... :)
 
Статус
Закрыто для дальнейших ответов.