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

Тема в разделе "Delphi - Базы данных", создана пользователем R.E.Mus, 26 дек 2005.

Статус темы:
Закрыта.
  1. R.E.Mus

    R.E.Mus Гость

    Код (Text):
     
    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 массивами другое дело... :)
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей