Решил сегодня показать вариант решения задачи на языке Турбо Паскаль...

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

А вот и сам примерный вариант решения данной задачки:

Код:

program alp;
uses crt;
const
n=10;

var i,j,l,k:longint;sl1,sl2,a:string;
alf,b:array[1..10] of string;label m;
begin
clrscr;

writeln('Введите слово:');
for i:=1 to n do
begin
write(i,') ');readln(b[i]);
end;
i:=1;a:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
while i<=n-1 do
begin
j:=2;
while j<=n do
begin
sl1:=b[i];sl2:=b[j];l:=0;
for k:=1 to 33 do
begin
inc(l);
if (sl1[l]=a[k])and(sl2[l]<>a[k])or(length(sl1)<l)or(length(sl2)<l)
then goto m;
if (sl1[l]<>a[k])and(sl2[l]=a[k])then
begin
alf[1]:=b[j];
b[j]:=b[i];
b[i]:=alf[1];
goto m;
end;
end;
m:inc(j);
end;
inc(i);
end;clrscr;
for i:=1 to n do writeln(i,') ',b[i]);
readln;
end.

Спонсор поста:  вы желаете собрать что то оригинальное для своей аськи с помощью онлайн конструктор jimm? Нет ничего проще! Заходите на сайт jimm.uinov.ru и все ваши требования воплотит в жизнь бесплатный конструктор jimm!