Форум » Обработка числовых последовательностей » Помощь [строки] №3654 » Ответить
Помощь [строки] №3654
Optimus: Здравствуйте. Решаю задачу №3654. Вот моё решение: [quote]program c4; var a:array ['a'..'z'] of integer; i:integer; ch:char; Begin repeat read(ch); //Вводим слово if ch in ['a'..'z'] then a[ch]:=a[ch]+1;//Записываем кол-во каждой буквы в ячейку массива Until ch='.'; //цикл работает до точки for i:=1 to 255 do //открываем цикл по таблице ASCII begin if (chr(i) in ['a'..'z'])and(a[chr(i)]>0) then //проверяем каждый символ, если он есть в слове writeln(chr(i)); //выводим символ end; end. [/quote] Мне нужно придумать способ отсортировать данные по возрастанию и по алфавиту, как лучше всего это сделать?
Ответов - 3
Поляков: Optimus пишет: Мне нужно придумать способ отсортировать данные по возрастанию и по алфавиту, как лучше всего это сделать? Посмотрите решение на сайте.
Optimus: Я видел решение на сайте. Оно мне показалось не совсем удобным. Именно поэтому я интересуюсь, мое решение можно доработать и сделать сортировку?
oval: посмотрите здесь №25 решение Е.И. Тищенко
полная версия страницы