Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.01.2013, 20:10
Ivanidius Ivanidius вне форума
Прохожий
 
Регистрация: 14.01.2013
Сообщения: 1
Репутация: 10
Восклицание Последняя буква одного слова совпадает с началом другого. Сортировка

Оч. нужна помощь. Сессия через неделю, а застрял наглухо.

Задача: Дан набор слов, отсортировать так, чтобы конец предыдущего совпадал с началом следующего. тычет меня носом в те строчки, что красным, а я пытаюсь добыть первый и последний символы.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..5] of string;
    i,j:integer;
    nach,kon:char;
begin
for i:=1 to 5 do begin
a[i]:=StringGrid1.Cells[i-1,0];
end;
b[1]:=a[1];

for i:=1 to 4 do begin
  for j:=2 to 5 do begin

    nach:=b[i][1];
    kon:=a[j][Length(a[j])];

    if nach=kon then
      begin
        b[i+1]:=a[j];
      end;
  end;
end;

for i:=1 to 5 do begin
StringGrid2.Cells[i-1,0]:=b[i];
end;

end;

end.
Админ: Пользуемся тегами для оформления кода!

Последний раз редактировалось Ivanidius, 14.01.2013 в 22:22.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:06.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025