Задача на файлы

[Janetka]

В текстовом файле задан набор слов. Построить из них любую цепочку таким образом, чтобы символ в конце слова совпадал с символом в начале следующего. Решить на Паскале.

[DIgorevich]

Решить на Паскале.

Просьба о помощи уже звучит как приказ???

[Janetka]

Приказ и просьба не одно и тоже. Просто если кто-нибудь знает как решить эту задачу, то буду очень признательна, если вы мне поможите))

И тишина....Значит тут мне не помогут ((((

[DIgorevich]

Могу алгоритм подсказать... Каким образом задан набор слов?

[Janetka]

Подскажите)))
Что вы имеете в виду под "каким образом"? Об этом в условии задачи ничего не было написано. Главное, чтобы результат был правильным, а как решать это уже дело каждого))

[DIgorevich]

Ну тогда:
1) подсчитываете кол-во слов;
2) заносите слова в массив;
3) берем первое слово из массива
4) удаляем его из массива
5) присваиваем строковой переменной это слово + пробел
6) получаем последнюю букву (до пробела) из строковой переменной
7) далее циклом:
7.1) проходим по массиву до первого вхождения
7.2) если первая буква из элемента массива равна букве из пункта 6 то
7.3) присваиваем нашей строковой переменной найденное слово + пробел
7.4) удаляем из массива найденное слово
8) повторяем пункты 6-7.4

Как-то так...

[Janetka]

Спасибо, что согласились помочь))
Сейчас попробую написать программу согласно вашему алгоритму.

Подскажите, как правильно записать цикл (с пункта №7). Вот пока что у меня получилось.

var 	f1,f2:text;                                                               
           i,n,dl:integer;                                                           
    	s,slovo,bukva:string;                                                     
    	a:array [1..100] of string;                                               
begin                                                                         
{формируем первый файл}                                                       
assign(f1,'file1.txt');{устанавливаем связь файловой переменой с физическим файлом на диске}
rewrite(f1); {открываем файл для записи}                                      
readln(n);     {определим количество вводимых строк}                          
for i:=1 to n do begin                                                        
readln(s); {вводим с клавиатуры строки}                                       
writeln(f1,s); {записываем последовательно строки в файл}                     
{заносим слова в массив}                     
a[i]:=s;                                                                      
end;                                                                          
close(f1); {заканчиваем работу с первым файлом}                               
{берем первое слово из массива}                                               
slovo:=a[1]+' ';                                                              
{удаляем первое слово из массива}                                            
a[1]:=' ';                                                                    
{получаем последнюю букву из строковой переменной до пробела}                 
dl:=length(slovo);                                                            
bukva:=copy(slovo, dl-1, 1);                                                  


                                         
end.

[Vikenty]

Сообщение от DIgorevich

Просьба о помощи уже звучит как приказ???

копируешь задание в тему, и его вам решают, так?

[DIgorevich]

Начиная с этого момента нужен был цикл:

for i:=0 to n do
begin //проходим по массиву
{получаем последнюю букву из строковой переменной до пробела}
dl:=length(slovo);
bukva:=copy(slovo, dl-1, 1); 
for y:=0 to n do
begin
if bukva = a[y][1] then
begin
  slovo:=slovo+a[y]+' ';
  a[y]:='';
end;
end;
end;

Как-то так, не проверял... Суть в том, что мы проходим по всему массиву. Ищем в подцикле совпадения букв и добавляем в строковую переменную.

[Janetka]

Я считаю, что задачи по программированию под силу только тем людям, которые имеют к этому ярко выраженные способности. К сожалению, у меня этих способностей нет, но это не освобождает меня от сдачи зачета по программированию. Для кого-то решение этой задачки займет полчаса, для меня же - дни и недели. Вот я и зашла сюда, рассчитывая на помощь, а не на насмешки и подколы....

Моё последнее сообщение было адресовано Vikenty...
А вам, DIgorevich, спасибо за помощь)) Сейчас попробую ваш вариант...

Цикл в программу записала, вот только вывод нужен. Скажите, а выводить я что должна???