Как сделать сортировку по алфавиту в паскале

Добавил пользователь Владимир З.
Обновлено: 10.09.2024

вот тебе от меня мой личный код pascal у меня было это задание и аж 2 петёрки поставили а вот и код:

Код Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 type mass = array [ 1 .. 50 ] of string ; var a : mass; i , j , n : integer ; begin write ( 'Введите кол-во фамилий: ' ) ; readln ( n ) ; for i := 1 to n do begin write ( 'Введите' , i , '-ую фамилию: ' ) ; readln ( a [ i ] ) ; end ; writeln ( 'Несортированный список:' ) ; writeln ; for i := 1 to n do writeln ( a [ i ] ) ; for j := 1 to n do for i := 1 to n do if ord ( a [ j ] [ 1 ] ) ord ( a [ i ] [ 1 ] ) then swap ( a [ i ] , a [ j ] ) ; writeln ; for i := 1 to n do writeln ( a [ i ] ) ; end .

Преобразовать строку так, чтобы буквы каждого слова в ней были отсортированы по алфавиту. Вот тут нашел прогу, но не работает: Код: Uses crt; var ch: set of char; first_word, text, new_string: string; temp, k: char; i: integer; begin clrscr; ch:=[];new_string:=' '; write('Enter text:');readln(text); first_word:=copy(text,1,pos(' ',s)-.

Помогите пожалуйста не могу сделать, как преобразовать время в строку,работаю c Excel, надо вытащить с ячейки время указанное в ней и преобразовать в строку.

Найти в файле строку, содержащую первое по алфавиту слово, и удалить ее - Pascal (Паскаль)

Буквы текста упорядочены по алфавиту - Pascal (Паскаль)

Текст задан последовательностью литер, за которыми идет '.' . Написать программу, которая определяет выполнено ли следующее условие: Буквы текста упорядочены по алфавиту.

Задана строка из смеси русских строчных и заглавных букв. Преобразовать её в строку с пробелами между буквами - Pascal (Паскаль)

Задана строка из смеси русских строчных и заглавных букв. Преобразовать её в строку с пробелами между буквами. P/s: если можно с комментариями)).

Преобразовать строку символов, удалив из нее все символы, не являющиеся буквами - Turbo Pascal

Прошу Вас, помогите! Дана строка символов. преобразовать строку символов, удалив из нее все символы, не являющиеся буквами, и заменив все малые буквы одноименными большими буквами.

Преобразовать данную строку в строку из тех же букв, но с чередованием больших и малых - Assembler, MASM, TASM

упорядочить по алфавиту в паскале - Pascal ABC

помогите пожалуйста разобраться: как отсортировать все буквы в строке по алфавиту.

Задача! - Pascal (Паскаль)

Обработка символов и строк на языке паскаль Задача Упорядочить строку по убыванию длин слов.

Сортировка слов при вводе большими буквами - Turbo Pascal

Дана строка, содержащая русский текст. Если в тексте есть слово, в котоpом есть две одинаковые согласные буквы, то удалить из слов текста звонкие согласные, в противном случае пpодублиpовать в словах, содеpжащих не менее 3-х гласных, гласные буквы. Полученные слова вывести в алфавитном поpядке. ( Звонкие согласные: бвгжздйлмнр ) Проблема.

Преобразовать строку, оставив в ней только символы, являющиеся цифрами - Pascal ABC

Составить подпрограммы для решения следующих задач: 1. Даны натуральные M, N и матрица действительных чисел размером MxN. Определить среднее арифметическое каждого из столбцов. 2. Задана строка символов. Преобразовать эту строку, оставив в ней только символы, являющиеся цифрами и заменив каждую из этих цифр прописной буквой латинского алф.

Преобразовать матрицу путем деления всех элементов на максимальный элемент матрицы - Pascal (Паскаль)

Дана матрица F(5,6) действительных чисел. Преобразовать ее путем деления всех элементов на максимальный элемент матрицы.

Скажите, где можно скачать совершенно оригинальный Turbo Pascal 7.0/7.1, с инсталлятором, не модифицированный и не просто скопированный после инсталляции? И насколько учебники по Turbo Pascal применимы к Free Pascal? Есть ли существенные различия.

сортировка файла простым слиянием - Delphi для начинающих

Помогите пожалуйста как можно отсортировать файл в котором даны такие строки DFERGGDRGJKJKJ IOEWKJSFKJBCXD и в этом файле должно отсортировать каждую строчку по алфавиту, строк может быть много В выходном файле должно быть в одну строчку по алфавиту.

анаграмма на Паскале - Pascal ABC

Задача на СТРОКИ - C для начинающих

Дана строка символов. Преобразовать строку символов,удалив из нее все символы,не являющиеся буквами,и заменив все малые буквы одноименными большими буквами.(видел такую на форуме,но она на Паскаль) Заранее Спасибо:).

Преобразовать строку, удалив из нее все символы, не являющиеся буквами или цифрами - С++ для начинающих

Дана строка символов. Преобразовать строку, удалив из нее все символы, не являющиеся буквами или цифрами.

Действия с матрицами и вычисление функции - Pascal (Паскаль)

Помогите, пожалуйста, решить 3 задачки(желательно с комментариями) 1. В матрице A (m*n) каждую строку разделить на минимальный элемент этой строки 2. Из матрицы A (m*n) вычеркнуть столбец и строку, на пересечении которых находится максимальный элемент. 3. вычислить arcsinx=arctg(x/корень квадратный(1-x^2) Заранее спасибо.

Замена точек - Turbo Pascal

Дана строка символов S. Преобразовать строку, заменив в ней каждую из групп стоящих рядом точек одной точкой.

Преобразовать одномерный массив целых чисел - Pascal (Паскаль)

Преобразовать одномерный массив целых чисел (n =20). Найти сумму элементов массива. Записать сумму вместо отрицательных элементов. Вывести полученый массив на экран. Упорядочить полученный массив методом выбора и вывести ещё раз.

Составить программу на языке Паскаль нахождения суммы чисел на [10:100] кратных 3 и 4 - Free Pascal

1) Составить программу на языке Паскаль нахождения суммы чисел на [10:100] кратных 3 и 4. 2) Составить программу на языке Паскаль выводы в строку всех двузначные числа С помощью циклов.

Сортировка списка строк с использованием стандартных алгоритмов библиотеки STL - С++ для начинающих

Сортировка слов по количеству в них букв 'А'. Сортировка списка строк с использованием стандартных алгоритмов библиотеки STL. Мне не полностью программу. А реализацию данной функции. Вот эта выполняет сортировку слов по алфавиту по возрастанию. Возможно ли её переделать, чтобы выполнялась сортировка по кол-ву букв 'А' в слове? bool oper.

Обменная сортировка - Pascal (Паскаль)

Задан массив A(N). Добавить массив С(К). Выполнить обменную сортировку. В полученном массиве вычислите среднее геометрическое и среднее арифметическое значения для положительных элементов.

Сортировка разделением - Pascal (Паскаль)

Задан массив А (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном массиве определите количество элементов, которые меньше заданного значения М.

Сортировка двумерного массива по убыванию методом выбора - Turbo Pascal

Сортировка по строкам. Характеристика строки - модуль суммы отрицательных значений. Помогите плиз.

Составить новую строку из слов, записанных в обратном порядке - Pascal (Паскаль)

дана произвольная строка символов составить новую строку состоящую из слов записанных в обратном порядке.

выводит на экран строку , состоящую из звездочек - Pascal (Паскаль)

Написать программу , которая выводит на экран строку , состоящую из звездочек. Длина строки (кол-во звездочек) является параметром функции.

Задача на Двумерный массив - Pascal (Паскаль)

Удалите из массива А(n,m) первую строку с максимальным элементом (считается, что в массиве несколько максимальных элементов).

Упорядочить символы в строке по алфавиту - Turbo Pascal

Здравствуйте,помогите пожалуйста сделать задание:"Упорядочить символы в строке по алфавиту".

Как преобразовать шестнадцатеричное число в строку? - С++ для начинающих

как записать в строку шестнадцатеричное число? например 111111111 в основании 16 в строке должно выглядеть как 4581298449 в основании 10.

Создать текстовый файл ( Паскаль) - Pascal (Паскаль)

Создать текстовый файл, состоящий из случайного количества (не более 30-и) строк. В каждой строке файла содержится случайное количество (не более 20-и) целых чисел, разделенных пробелами. Найти в файле строку, сумма чисел которой минимальна, и удалить ее (если таких строк несколько, то удалить все).

Сайт о паскале. Все о Pascal - Pascal (Паскаль)

Сортировка двумерной матрицы - Pascal (Паскаль)

Упорядочить в порядке возрастания элементы строк данной матрицы, после чего упорядочить строки по убыванию последних элементов полученных строк.

Задача на матрицу (Паскаль) - Turbo Pascal

Помогите составить программу: Дана прямоугольная матрица. Найти строку с наибольшей и наименьшей суммой элементов. Вывести на экран найденные строки и суммы их элементов.

Сортировка первой половины массива по возрастанию элементов с четными индексами - Pascal (Паскаль)

Задан одномерный массив. Сортировать его первую половину по возрастанию элементов с четными индексами.

Для каждой из матриц с использованием процедуры распечатать ту строку, в которой находится ее максимальный элемент - Pascal (Паскаль)

Даны три матрицы А, В, С размером MxN. Для каждой из них с использованием процедуры распечатать ту строку, в которой находится ее максимальный элемент.

Массив: Отсортировать каждую четную строку и найти максимальный элемент главной диагонали. - Pascal (Паскаль)

помогите, пожалуйста решить! Создать массив целых чисел В 10х10. Отсортировать каждую четную строку и найти максимальный элемент главной диагонали.

Как вывести строку в обратном порядке? - Turbo Pascal

Задание Дано предложение. Заменить в нем все вхождения буквосочетания "ах" на "ух". Вывести строку в обратном порядке. Как заменить "ах" на "ух" я нашел на форуме: Код: Var s:string; i:integer; Begin write('Введите строку: ');readln(s); For i:=1 to length(s)-1 do if (s[i]='а')and(s[i+1]='х') then s[i]:='у'; writeln('Полученная строка.

как записать функцию в паскаль? - Pascal (Паскаль)

помогите, пожалуйста, как должна выглядеть функция в паскале?? Миниатюры.

Преобразовать данную последовательность символов - Pascal ABC

Дана строка s, содержащая менее чем 150 символов. Преобразовать данную последовательность символов, заменив все группы букв aб на ба и наоборот. Использовать стандартные процедуры и функции в действиях над строками.

Включение вашего ID publisher AdSense Это просто и быстро, используя соответствующую форму.

Сам по себе Бичик примечателен тем, что он не только программист, а ещё и целый магистр богословия. Заботы по упорядочиванию неотсортированных данных интересуют его только в рамках мирской профессии. Куда более уважаемого теолога волнует наведение порядка в хаосе современного общества, накануне Вознесения для истинно верующих и Страшного Суда для всех остальных.

Что касается алгоритма, то это единственно известная мне сортировка, за использование которой её изобретатель требует деньги.


Автору очень нравится расхваливать свой алгоритм и на сайте сортировки (web-архив) божится, что его метод обладает многочисленными достоинствами:

  • В среднем в 2-3 раза быстрее чем быстрая сортировка, в зависимости от списка.
  • Устойчивость.
  • Нет вырожденных случаев.
  • Не использует сравнения.
  • Не использует обмены.
  • Не использует опорные элементы.
  • Работает одинаково хорошо с короткими и с длинными списками.
  • Экономична по памяти.
  • Первые отсортированные элементы уже доступны для использования в других процессах, пока сортируется оставшаяся часть списка (другими словами – сортировка устойчива).

Как и любая разновидность MSD-radix sort бичиковское творение сортирует не по всем разрядам. Процесс прекращается сразу как только список будет отсортирован, а не до тех пор пока не обработаются все разряды. Так же можно указать количество первых разрядов по которым произведётся упорядочивание, если старшинство по младшим разрядам не имеет особого значения.

Для сортировки требуется два вспомогательных массива.

Один из них назовём трекер слов (WT – word tracker), с помощью него мы будем группировать слова, имеющих одинаковые буквы в i-м разряде. Для самого первого найденного такого слова в списке заносится значение 0. Для каждого последующего найденного слова с той же буквой в i-м разряде в трекере слов отмечается индекс предыдущего слова, соответствующего этому же признаку.


В приведённой таблице показан первый этап сортировки, когда слова группируются по первой букве. В процессе сортировки, когда происходит переход от разряда к разряду значения в этом массиве меняются, отражая цепочки слов, начинающихся с одной буквы и имеющие одинаковые литеры в том или ином месте.

Ещё один массив – трекер символов (LT – letter tracker). В нём отмечаются индексы самого первого (или последнего) слова в списке, в котором в соответствующем разряде находится определённый символ. Отталкиваясь от этого слова, с помощью трекера слов восстанавливается цепочка всех остальных лексем, имеющих в i-м разряде соответствующую букву.


Сейчас в таблице приведены индексы последних слов из списка, которые начинаются с той или иной буквы.

1. Не создавайте несколько одинаковых тем, ибо модератор может расценить их, как спам и удалить все.
2. Для решения задач по GPSS есть отдельная тема. Все задачи по GPSS опубликовывать в этой теме! Перед опубликовыванием вашей задачи просмотрите всю тему, возможно вы сразу найдете решение.
3. Давайте вашим темам ОСМЫСЛЕННЫЕ названия, а также указывайте язык программирования. Пример: [Pascal]:Работа с файлами и записями.
4. Использования тега CODE обязательно при публикации текста программы.

Темы, оформленные с явным игнорированием правил и отсутствием смысла, будут закрыты/удалены!
Вам помогли? Напишите об этом здесь (в портфолио фрилансера)

Фрилансерам:
5. Демпинг цен запрещен (даже если Вы готовы работать бесплатно). Цены обсуждаются в приватном общении. Если вы готовы рещить задачу бесплатно, просто решите ее быстрее, чем возникнет предложение сделать это за деньги.
6. Пользователям, входящим в группу Newbie, запрещается предлагать свои услуги (завуалированно в т.ч.)
7. В посте с предложением выполнить работу, обязательно указывать ссылку на свое портфолио в Отзывы, Благодарности, Портфолио Это правило работает и в том случае, если вы выполняете работу бесплатно.
8. Реклама (даже завуалированная) своих фриланских сайтов запрещена

Читайте также: