Помогите, пожалуйста, решить хоть что-то из этого. Очень нужно.

[Андрэ]

1.Пусть дано русский текст, слова которого разделены пропусками, запятой или точкой. Все слова, которые оканчиваются на –онок или –енок, представить в множестве.
2.Дано рядок. Если он является записью римского числа, то замените его на целое число.
3.Дано целое число. Представить его в виде римского числа.
4.Пусть вводится 10 произвольных имён. Необходимо напечатать их по алфавиту.
5.Дано 2 ряда. Выяснить можно ли с первого ряда путём перестановок букв получить второй ряд.Написать подпрограмму, которая решила бы данную задачу.
6.Написать процедуру сортирования рядков по алфавиту.
7.Написать процедуру сортирования рядков в обратном порядке по алфавиту.
8.Дано натуральное число. Сколько разных цифр встречается в нём?
9.Выяснить будет ли введено число обратным. (например:козак, или, огр…)
10.Написать функцию nogalpha, которая получает параметр типа string и поворачивает позицию его первой буквы, которая не является буквой английского или русского языка.
11.Написать функцию count , которая поворачивает число, указывая, сколько раз первый рядок встречается во втором. Функция не должна изменять своих параметров. Кроме того, любая буква во втором рядке может засчитываться не более чем в одном вхождении.(Например, count(`ала`, `балалайка`), результат 1, а не 2).
12. Написать функцию, которая поворачивает позицию начала последнего появления второго рядка в первом.
13.Написать функцию, которая поворачивает позицию начала первого появления в первом рядке буквы второго рядка в обратном порядке.
14.Написать процедуру, которая с введённой даты формата дд/мм/гггг превращает в дд «месяц» гггг года. (Например: 10/05/2006, результат 10 мая 2006 года).
15.Написать процедуру, которая с введённой даты формата дд «месяц» гггг года превращает в дд/мм/гггг. (Например: 10 мая 2006 года, результат 10/05/2006).

[Lokuson]

Сделаю всё в течении нескольких часов, стучи 2552343, о цене договоримся.

[Dark_Demon]

Если ещё актуально , могу написать на Delphi или Pascal, быстро, недорого - обращайся ICQ 9847396

[Serge_Bliznykov]

2 и 3-ю задачи (про римские числа) могу выложить бесплатно - это уже есть готовое ;-)

[knight]

по 50 р за задачу... Delphi/Pascal avi_udp@mail.ru

[Dimon]

Андрэ, стучись за помощью в ICQ: 198-012-696
или на почту da-ne@ya.ru
(все программы сопровождаю подробными комментариями)

[DavidBlaine]

6.Написать процедуру сортирования рядков по алфавиту.
7.Написать процедуру сортирования рядков в обратном порядке по алфавиту.

___________________________________ ________________________

procedure Sort_AZ(ARichEdit:TRichEdit);
var
i,n,k: Integer;
temp: String;
b: Boolean;
begin
ARichEdit.Enabled:= False;
n:= ARichEdit.Lines.Count;
k:= n div 2;
repeat
repeat
b:= True;
for i:= 0 to n-k-1 do
if ARichEdit.Lines[i]>ARichEdit.Lines[i+k] then
begin
temp:= ARichEdit.Lines[i];
ARichEdit.Lines[i]:= ARichEdit.Lines[i+k];
ARichEdit.Lines[i+k]:= temp;
b:= False;
end;
until b;
k:= k div 2;
until k=0;
ARichEdit.Enabled:= True;
end;

procedure Sort_ZA(ARichEdit:TRichEdit);
var
i,n,k: Integer;
temp: String;
b: Boolean;
begin
ARichEdit.Enabled:= False;
n:= ARichEdit.Lines.Count;
k:= n div 2;
repeat
repeat
b:= True;
for i:= 0 to n-k-1 do
if ARichEdit.Lines[i]<ARichEdit.Lines[i+k] then
begin
temp:= ARichEdit.Lines[i];
ARichEdit.Lines[i]:= ARichEdit.Lines[i+k];
ARichEdit.Lines[i+k]:= temp;
b:= False;
end;
until b;
k:= k div 2;
until k=0;
ARichEdit.Enabled:= True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Sort_AZ(RichEdit1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Sort_ZA(RichEdit1);
end;

___________________________________ ___________________________