| ← Декабрь 2016 → | ||||||
|
1
|
2
|
4
|
||||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
|
12
|
14
|
15
|
16
|
17
|
18
|
|
|
19
|
20
|
21
|
22
|
25
|
||
|
26
|
27
|
28
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 03.12.2016, 17:54 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, roma5310! © Цитата: а потом все цифры слова в прямом порядке. Код (Pascal) :: выделить код var
a:string;
i:integer;
{
обрабатываем слово: буквы в начало, цифры в конец строки отсортированные по возрастанию
}
function z(b:string):string;
var
c:char;
i:integer;
begin
i:=0;
repeat
inc(i);
while(b[i]in['0'..'9'])and((b[i+1]in ['A'..'Z','a'..'z'])or{сортировка буквы цифры}
((b[i+1]in['0'..'9']))and(b[i]>b[i+1]))do{сортировка по возрастанию цифр}
begin
c:=b[i];
b[i]:=b[i+1];
b[i+1]:=c;
i:=0;
end;
until i>length(b);
z:=b;
end;
{
выделяем слово рекурсивно и обрабатываем, пока длина строки не равна нулю
}
function y(b:string):string;
begin
if pos(' ',b)>0 then y:=z(copy(b,1,pos(' ',b)))+y(copy(b,pos(' ',b)+1,length(b)))
else y:=z(copy(b,1,length(b)));
end;
begin
{
вводим строку
}
repeat
write('Enter string:');
readln(a);
until length(a)>0;
{
заменяем знаки препинания на пробелы
}
i:=1;
while(pos(a[i],'.,;:^&')>0)do
begin
if pos(a[i],'.,;:^&')>0 then a[i]:=' ';
inc(i);
end;
{
удаляем начальные пробелы
}
while a[1]=' ' do delete(a,1,1);
{
удаляем двойные пробелы
}
while pos(' ',a)>0 do delete(a,pos(' ',a),1);
{
выводим результат
}
write('result:',y(a));
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
