1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

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

    R.E.Mus Гость

    Репутация:
    0
    Код:
     
    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 массивами другое дело... :)
     
Загрузка...
Похожие Темы - Сложная программа
  1. GnS
    Ответов:
    3
    Просмотров:
    1.706
  2. Sniff
    Ответов:
    8
    Просмотров:
    510
  3. miisha
    Ответов:
    2
    Просмотров:
    149
  4. ChesterCreep
    Ответов:
    1
    Просмотров:
    512
  5. Ondrik8
    Ответов:
    0
    Просмотров:
    118
Статус темы:
Закрыта.

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