Перенести лишние знаки в начало,сохраняя порядок

@ShutiKorol · Регистрация: 25.02.2014

Помогите, пожалуйста!!!! Надо обязательно использовать функцию или процедуру.
Дано предложение. В нем ошибочно набраны лишние знаки (цифры),
перенести их в начало, сохраняя порядок. Результат отобразить на
экране.

@APALoff · 27.02.2014, 14:34

Pascal

k:=1;
For i:=1 to Length(St) do
  If St[i] in ['0'..'9'] then
  Begin
    Insert(St[i],St,k);
    Inc(k);
    Delete(St,i+1,1);
  End;

@volvo · 27.02.2014, 16:19

Обычный "Пузырек":

Pascal

function reorganize(s : string) : string;
const D = ['0' .. '9'];
var
  i, j : integer;
  T : char;
begin
  for i := 1 to length(s) do
    for j := Length(s) downto i + 1 do
      if ((s[j] in D) xor (s[j - 1] in D)) and
         (not (s[j - 1] in D) or (s[j] in D)) then
      begin
        T := s[j - 1];
        s[j - 1] := s[j];
        s[j] := T;
      end;
  reorganize := s;
end;
 
var
  s : string;
 
begin
  writeln(reorganize('start 23finish513876'));
end.

@ShutiKorol 0 / 0 / 0 Регистрация: 25.02.2014 Сообщений: 15
		1
	Перенести лишние знаки в начало,сохраняя порядок 25.02.2014, 19:54. Показов 1242. Ответов 2 Метки нет (Все метки) Помогите, пожалуйста!!!! Надо обязательно использовать функцию или процедуру. Дано предложение. В нем ошибочно набраны лишние знаки (цифры), перенести их в начало, сохраняя порядок. Результат отобразить на экране. 0

Опции темы

Перенести лишние знаки в начало,сохраняя порядок

Решение