Строковый Тип.

Тема в разделе "Pascal and Delphi", создана пользователем TWENTY-ONE, 11 ноя 2011.

  1. TWENTY-ONE

    TWENTY-ONE Гость

    Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству:
    - каждая буква входит в слово не менее 2-х раз.
     
  2. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    В чем проблема? задавайте конкретные вопросы.
     
  3. TWENTY-ONE

    TWENTY-ONE Гость

    Не могу написать условие для этой проги.
     
  4. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Если нужны не ответы, а полный конечный код называйте цену.
     
  5. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Заменяете все точки,скобки,запятые... на пробелы
    Заменяете все двойные,тройные и т.д. пробелы на одинарные
    Затем как самый простой вариант, сделать масив строк и заполнить их символами "от пробела до пробела"

    Поскольку каждое слово содержит от 1 до 8 букв, то делаете масив a:array[1..8] of integer
    Делаете цыкл for:
    Код (Delphi):
    for i:=1 to length(s) do
    for j:=1 to length(s) do
    begin
    if (s[i]=s[j])and(i<>j) then a[i]:=a[i]+1;
    end;
    Проверяете каждый элемент полученого масива и если все числа в нём менше 2, то сравниваете данное слово с последним и выводите.
     
Загрузка...

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