Вот и причина, почему два сайта у меня - сайт с сервера в МЭИ ненадежен...
На всякий случай вот задание и пример к лаб.1 Lab-1-StrSet2017-35.doc и к лаб.2 Lab-2-TypedFile2016-35.doc
Подсказка к сортировке кириллицы с Ё по алфавиту - разбейте кириллицу на три части: множество букв до Ё, сама буква Ё(ё), множество букв после Ё.
Подсказка по сортировке двойного алфавита (Аа..Яя, Aa..Zz) - перед сравнением букв надо менять их регистр (функции ANSIUpperCase, ANSILowerCase, UpperCase, LowerCase, UpCase, LowCase) учитывая, что
для латиницы в Delphi много функций:
'F'<'f' , но ANSIUpperCase('F')=ANSIUpperCase('f')=UpperCase('F') = UpperCase('f')=UpCase('F')=UpCase('f')='F'
'F'<'f' , но ANSILowerCase('F')=ANSILowerCase('f')=LowerCase('F') = LowerCase('f')=LowCase('F')=LowCase('f')='f'
'F'<'G'<'Z'<'f' , но ANSIUpperCase('F')=ANSIUpperCase('f')='F' < 'G' < 'Z' < 'f'= ANSILowerCase('F') = ANSILowerCase('f')
'F'<'G'<'Z'<'f' , но UpperCase('F') = UpperCase('f') = 'F' < 'G' < 'Z' < 'f'= LowerCase('F') = LowerCase('f')
'F'<'G'<'Z'<'f' , но UpCase('F')=UpCase('f')='F' < UpCase('G') < 'Z' < 'f'=LowCase('F')=LowCase('f') < 'g' < 'z'
для кириллицы в Delphi:
Ё<Б<В<Я<б , но ANSIUpperCase(Ё)<ANSIUpperCase(Б)=ANSIUpperCase(б) <ANSIUpperCase(В)<ANSIUpperCase(Я)
'Я'<'я' , но ANSIUpperCase('Я')=ANSIUpperCase('я')='Я'
'Я'<'я' , но ANSILowerCase('Я')=ANSILowerCase('я')='я'
(в PascalABC без приставки ANSI - как для латиницы (см.выше), насколько помню)
|
