Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];

Вниз

Сравнение двух слов   Найти похожие ветки 

 
Yegorchic ©   (2006-08-04 10:45) [0]

Есть ли у кого алгоритм сранения двух слов по алфафиту?


 
Kolan ©   (2006-08-04 10:51) [1]

Это как "по алфавиту"? Гдето тут на сайте есть ф-ция сравнивающая строки и выдающая совпадение в процентах.


 
Yegorchic ©   (2006-08-04 10:55) [2]

Т.е. если отсортировать массив из char = { b, a, y } то будет { a, b, y }. Вот тоже, только не char, а string.


 
Yegorchic ©   (2006-08-04 10:57) [3]

Ой, надо вот так, только не массив, а просто два слова. Ну можно и массив...


 
Kolan ©   (2006-08-04 11:01) [4]


> сранения

Я прочел как сравнения, а вы имели в виду сортировки?


> Т.е. если отсортировать массив из char = { b, a, y } то
> будет { a, b, y }. Вот тоже, только не char, а string.

Ознакомьтесь с ASCII таблицей. У каждой буквы есть свой код. Его и можно использовать для сортировки.

Общий смысл:
1. Берешь строку.
2. Заводишь еще одну для результата.
3. Просматривя первую формируещь вторую.


 
Separator ©   (2006-08-04 11:02) [5]

*задумчиво чешет репу*
А такая труктура не поможет:
ivar s1, s2: string;
begin
   s1:= "1123";
   s2:= "234";
   if s1 < s2 then ShowMessage(s1) else ShowMessage(s2);
end;

???


 
Yegorchic ©   (2006-08-04 11:09) [6]


> Separator ©   (04.08.06 11:02) [5]


Нда, действительно :-)
Кажется помогла..


 
Stakan ©   (2006-08-04 11:10) [7]

if AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) < 0 then
   ShowMessage("1-я раньше по алфавиту")
 else if AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) > 0 then
   ShowMessage("1-я позже по алфавиту")
 else
   ShowMessage("Равны")

ЗЫ Посмотри как поведёт себя ф-я в случае сравнения заглавных и маленьких букв


 
DprYg ©   (2006-08-04 11:16) [8]

Обычные операции сравнения <,=,> работают так. Если сравниваются строки разной длины, то большей считается более длинная строка. Если одинаковой - принимаются в расчет символы в одинаковых позициях - сравниваются их коды.


 
Stakan ©   (2006-08-04 11:25) [9]

DprYg ©   (04.08.06 11:16) [8]
Неправда Ваша.
var s1, s2: string;
begin
  s1:= "аааа";
  s2:= "б";
  if s1 < s2 then ShowMessage(s1) else ShowMessage(s2);
end;

Будет показана строка s1 (аааа).

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


 
Kolan ©   (2006-08-04 11:27) [10]

Странно, я так и не понялчто надо сделсть...


 
TrainerOfDolphins ©   (2006-08-04 12:58) [11]

А ты сначала объясни толком, что тебе надо. Расставить слова по алфавиту?


 
Yegorchic ©   (2006-08-04 14:41) [12]


> TrainerOfDolphins ©   (04.08.06 12:58) [11]


Да всё, уже подсказали же...

Спасибо всем!!



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.043 c
15-1153980738
IceBeerg
2006-07-27 10:12
2006.08.27
Где XP хранит список часто используемых программ?


15-1153997361
ПЛОВ
2006-07-27 14:49
2006.08.27
Примерчик бы :-)


15-1154461397
AntiUser
2006-08-01 23:43
2006.08.27
В Израиле обнаружен изолированный "Затерянный Мир"


1-1152823459
01
2006-07-14 00:44
2006.08.27
PopupMenu сейчас на экране или убралось


15-1154358587
Ketmar
2006-07-31 19:09
2006.08.27
вот так c memory leaks борются





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский