Па
Павел

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

нужен код программы

ОЗ
Олег Зуев

program z1;
uses crt;
var a,b:string; i,j,k,m,n:integer; p:char;
begin
clrscr;
readln(a);
b:='абвгдежзийклмнопрстуфхцчшщъыьэюя';
k:=1;
while k<>0 do
begin
k:=0;
for i:=1 to length(a)-1 do
begin
for j:=1 to length(b) do
begin
if b[j]=a[ i] then m:=j;
if b[j]=a[i+1] then n:=j;
end;
if m>n then
begin
k:=1;
p:=a[ i];
a[ i]:=a[i+1];
a[i+1]:=p;
end;
end;
end;
writeln(a);
readkey;
end.

или

< html>
< head>
< script>

function sortLetters(src,dst)
{
var s=new Array();
var res="";
for(i=0;i < src.length;i++)
s[ i]=src.charAt( i);
for(i=0;i < s.length;i++)
for(j=i;j < s.length;j++)
if(s[ i] > s[j])
{
t=s[ i];
s[ i]=s[j];
s[j]=t;
}

for(i=0;i < s.length;i++)
res+=s[ i];
dst.value=res;
}

< /script>
< /head>
< body>
< h1 align="center">Символы строки в алфавитном порядке
Введите строку символов: < input id="src" size="100">
Результат посимвольной сортировки: < input id="dst" size="100" readonly>
< input type="button" value="сортировать" id="mybutton"
onClick="sortLetters(document.getElementById('src').value,document.getElementById('dst'));">
< /body>
< /html>

ну или

using System;
using System.Collections;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
cоnst int limit = 10;
var list = new ArrayList();
Console.WriteLine("Введите данные: ");
for( var i = 0; i < limit ; i++)
{
var readLine = Console.ReadLine();
if (readLine != null) list.Add(readLine);
}
Console.WriteLine("Отсортированные данные: ");
list.Sort();
foreach (var itemList in list)
{
Console.WriteLine(itemList);
}
Console.ReadKey();
}
}
}

Похожие вопросы
Есть-ли программка расставляющая большое колл-во слов в алфавитном порядке?
Как написать в с++ массивы. Задана 10 чисел. Как упорядочить их в возрастающем порядке?
как упорядочить адреса по первым буквам в алфавитном порядке?
Текст задан последовательностью литер, за которыми идет '.'
помогите написать код в С++. Задать строку из произвольных символов и переписать строку в обратном порядке
Паскаль. Как упорядочить вторую половину последовательности по убыванию элементов?
Плеер explay x1 проигрывает только в произвольном порядке. Как сделать алфавитный?
Как отсортирoвать строки в алфавитном порядке в С++?
Упорядочить фрагменты текста '1xyz', 'Фde', 'b2k', '5ы' в порядке убывания.
объясните пожалуйста, как сортировать массив строк на си в алфавитном порядке?