VPF::[Pascal] Анаграмы - Форум программистов

shef

Дата 31.10.2006, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 3.11.2005

Репутация: нет
Всего: нет

Міститься рядок довжиною не більше 255 символів, у якому через один або декілька пропусків слідують слова. Знайти всі групи анаграм (Анаграма - це слово, яке утворюється з іншого слова перестановкою його букв) у цьому рядку та вивести кожну групу з нового рядка. Всі слова повинні йти через пропуск у порядку, у якому вони зустрічаються в рядку.
Однакові слова виводити не можна.
Приклад вхідних і вихідних даних:
123 321 1234 12345 123456 231 132 3241 123457 123

123 321 231 132
1234 3241

marykone

Дата 31.10.2006, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2722
Регистрация: 2.5.2006
Где: Краснодар

Репутация: нет
Всего: 67

а как насчет еще и на русском спросить

--------------------

получил ответ, пометь вопрос как решенный (правый верхний угол вашей темы).

Snowy

Дата 31.10.2006, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 4
Всего: 484

Модератор: Перенесено из паскаля

Snowy

Дата 31.10.2006, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 4
Всего: 484

Цитата(marykone @ 31.10.2006, 14:21

)

а как насчет еще и на русском спросить

Вводится строка длинною не более 255 символов, в которой через один или несколько пробелов слtдуют слова. Найти все групы анаграм в этой строке и вывести каждую групу с новой строки.
Все слова должны идти через пробел в порядке, в котором они встречаются в строке.
Однаковые слова выводить нельзя.
Пример в родном посте.
Под анограммой здесь видимо понимается простая перестановка символов, а не анограмма.

Цитата(anwe @ 31.10.2006, 15:35

)

Ну а язык-то, язык!

А язык - то Паскаль smile

ivashkanet

Дата 1.11.2006, 12:23 (ссылка)

(нет голосов)

Загрузка ...

Кодю потиху

Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 9
Всего: 149

А у меня вопрос:

Цитата(shef @ 31.10.2006, 12:10

)

символів

--- это только цифры или нет?

--------------------

design, simplicity, and experience with a technology focus

shef

Дата 1.11.2006, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 3.11.2005

Репутация: нет
Всего: нет

Да только числа!

ivashkanet

Дата 1.11.2006, 16:01 (ссылка)

(нет голосов)

Загрузка ...

Кодю потиху

Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 9
Всего: 149

Хорошо, значит идея такая:
1) Выделяем все слова в отдельный массив.
2) Формируем второй массив, в котором находятся отсортированные слова
3) Просто сравниваем "слова" из второго массива и формируем группы (но из первого массива. Ведь индекс "слов" в массивах тот же).
4) Отсеить повторения в группах.

P.S. Паскаль давно не видел, так что буду писать долго smile

P.P.S. И еще, как в паскале перевести символ в число? (типа "1" в 1) Или, хотя бы, узнать его код?
P.P.P.S. Может есть рациональнее метод smile

--------------------

design, simplicity, and experience with a technology focus

anwe

Дата 2.11.2006, 01:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 9
Всего: 23

shef, я уже после увидел, что символы это цифры, поэтому сделал для всех символов.
Алгаритм такой, как описал ivashkanet, только 4) сидит внутри 3) в виде невыводимых символов.
Держи.

Код


//процедура удаления повторяющихся наборов символов (слов)
procedure udalenie;
var pi,pq,pl:Word;
label l1;
begin
l1:
for pi:=0 to razmer_mas-2 do          //цикл для слов, с которыми будет сравниваться
for pl:=pi+1 to razmer_mas-1 do     //цикл для сравниваемых слов
        begin
        if slova[pi]=slova[pl] then        //если совпадают надо удалять
                begin
                for pq:=pl to razmer_mas-2 do
                slova[pq]:=slova[pq+1];  //затирается повторный элемент (двигаются все левее)
                slova[pq]:='';                   //последний элемент очищается
                dec(razmer_mas);           //уменьшение размера массива
                goto l1;
                end;
        end;
end;

//основная процедура
var s:String;                       //введенная строка
slova:array of string;          //динамический массив строк
simvol,razmer_mas,l,k,nomer_simvla,sovpad_simvol:Word;
label l1;

begin
writeln('Введите строку не более 255 символов с пробелами');
readln(s);
l:=Length(S);                    //определить длину строки
simvol:=1;
razmer_mas:=0;
repeat                             //повтор пока не выйдет за длину строки
if s[simvol]<>' ' then       //если это не пробел
        begin
        inc(razmer_mas);
        SetLength(slova,razmer_mas);     //увеличиваем на 1 размер массива
        end;
while s[simvol]<>' 'do                           //пока не встретим пробел
        begin
        slova[razmer_mas-1]:=slova[razmer_mas-1]+s[simvol]; //заносим символы в массив
        inc (simvol);
        if simvol=l+1 then goto l1;
        end;
inc(simvol);
until simvol>l;
l1:
writeln('');
writeln('Анаграммы:');
udalenie;                                          //удаляем повторяющиеся симводы
razmer_mas:=Length(slova);                //определяем размер массива после удаления повторов
for k:=0 to razmer_mas-2 do                //цикл для слов, с которыми будут сравниваться
begin
if slova[k]=chr($0D)+chr($0A) then      //невыводимые символы не сравниваются
continue;
for l:=k+1 to razmer_mas-1 do            //цикл для перебора сравниваемых слов
        begin
        sovpad_simvol:=0;
        for simvol:=1 to Length(slova[k]) do  //цикл для символов в сравниваемых словах
                begin
                if l=k+1 then
                s:=slova[k];                              //начальное значение
                nomer_simvla:=Pos(slova[k][simvol],slova[l]);  //найти вхождение символа в сравниваемой строке
                if nomer_simvla<>0 then             //есть вхождение?
                        begin                                  //да - идем дальше
                        sovpad_simvol:=sovpad_simvol+1;          //кол-во совпадающих символов
                        if (sovpad_simvol=Length(slova[k]))and(sovpad_simvol=Length(slova[l]))then
                                begin                                     //кол-во символов равно длине обоих слов?
                                s:=s+' '+slova[l];                      //да - добавляем к строке
                                slova[l]:=chr($0D)+chr($0A); //так как внесенное слово не может быть сравниваемым,
                                end;                          //заменяем его на невыводимый символ
                        end;
                end;
        end;
if s<>slova[k] then              //если результирующая строка больше начальной
writeln(s);                           //вывод
s:='';                           //удаление символов строки
end;
end;

Lubega

Дата 4.11.2006, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.11.2006

Репутация: нет
Всего: нет

shef? ты де**ил чтоли?
Неужели ты не понимаеш,что уже в первой лиге препод знает и за это решение тебе ноль поставит?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »