Доработать прогу на Delphi

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by V-Pupkin, 23 Feb 2010.

  1. V-Pupkin

    V-Pupkin New Member

    Joined:
    20 Feb 2010
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Задание:

    Разработать программу ,которая в качестве входного параметра получает путь к двум текстовым файлам.
    Оба файла необходимо считывать построчно.Нужно определить можно ли из слов в строке первого файла собрать строку второго.

    Я немного уже сделал.. Осталось сделать чтоб строка из масива разбивалась на слова в массиве для последущего сравнения с другой строкой..

    исходник
     
  2. Retro

    Retro New Member

    Joined:
    4 Jun 2009
    Messages:
    3
    Likes Received:
    3
    Reputations:
    0
    PHP:
    procedure SizeS_in_S2(S,S2:string; var N:integer);
    var 
    tempS:string//временаая строка для сравнения
        
    i:integer; {счетчик}
    BEGIN
        tempS
    :=''; {обнуляем строку}
        
    N:=0; {кол-во попаданий 0}
        for 
    := 1 to length(S) do 
    {
    проходим всю строкуи рассматирваем ее слова(раздпробелами)}
        
    begin
    {если символ не пробели при этом у нас не стоят два пробела подряд то
    добавляем к врем
    строке символ}
            if (
    S[i] <> ' ')or( (S[i] = ' ')and( S[i-1] = ' ') )
                
    then tempS := tempS S[i]
            else 
    begin
    {если мы поймали пробле первыйто получили уже слово и работаем с ним}
                if 
    postempSS2) = 0 then break 
    {
    слово не найдено во второй подстроке значит по заданию не подохдоит}
                else 
    inc(N);
                {
    в этом случае увеличиваем счетчик}
                
    tempS:=''; {времстроку обнуляем до следующего слова}
            
    end;    
        
    end;
    END;



    -  срока которую поделить на слова
    S2  строка 2
    -яв которой должны быть слова (всеиз строки S;
    tempS временная строкаэлемент Sкоторый ищется в строке S2;
    Nвозвращает кол-во слов которые подошли из S в S2;
    _http://ifolder.ru/16544631 тута немного исправлено, доделай сам
     
    #2 Retro, 23 Feb 2010
    Last edited: 23 Feb 2010
  3. V-Pupkin

    V-Pupkin New Member

    Joined:
    20 Feb 2010
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    спс. вправил в свою прогу все фурычит супер)