Переместить все цифры в конец, а остальные символы в начало строки, сохраняя порядок взаимного расположения

@33bobra33 · Регистрация: 22.09.2015

Студворк — интернет-сервис помощи студентам

Преобразовать строку символов по пaравилу: переместить все цифры в конец, а остальные символы в начало строки, сохраняя порядок взаимного расположения символов в каждой из этих двух групп

@кот Бегемот · 30.10.2015, 02:03

Pascal

var
a,b:string;
i,m:integer;
begin
readln(a);
m:=length(a);
while i<=m do
begin
inc(i);
if( ord(a[i])>=48)and(ord(a[i])<=57)then
begin
b:=b+a[i];
delete(a,i,1);
dec(i);
dec(m);
end;
end;
writeln(a+b);
end.

@volvo · 30.10.2015, 02:20

Pascal

begin
  var s : string := '292hello9pascal876abc23net';
  s := new string(s.OrderBy(ch -> char.IsDigit(ch)).ToArray());
  writeln(s)
end.

@кот Бегемот · 30.10.2015, 07:40

volvo, я делал версию для классического паскаля

@JuriiMW · 30.10.2015, 09:02

Сообщение от кот Бегемот

я делал версию для классического паскаля

В таком случае почему:
— не инициализируются переменные i и b перед первым использованием?
— при любых условиях выскакивает «Индекс находится вне границ массива.»

Вот мой почти «классический» вариант:

Pascal

begin
  var s := '292hello9pascal876abc23net3';
  for var i := s.Length - 1 downto 1 do
    if (s[i] > #47) and (s[i] < #58) then
      begin
        var c := s[i];
        var p := i;
        repeat
          p += 1;
          s[p-1] := s[p];
        until (s[p] > #47) and (s[p] < #58) or (p = s.Length);
        s[p] := c;
      end;
   WriteLn(s);
end.

@кот Бегемот · 30.10.2015, 09:35

Сообщение от JuriiMW

В таком случае почему:
— не инициализируются переменные i и b перед первым использованием?

Неаккуратность, не имеющая значения

Сообщение от JuriiMW

почему:
— при любых условиях выскакивает «Индекс находится вне границ массива.»

Откуда я знаю, почему ваш кривой ПаскальАВС не воспринимает a[1] как первый символ строки а, а требует объявления массива символов. В Турбо Паскале всё прекрасно работает

Сообщение от JuriiMW

Вот мой почти «классический» вариант

К классическому Паскалю ваш вариант не имеет никакого отношения и работать не будет, а в АВС уже сделали простую программу.

@JuriiMW · 30.10.2015, 09:51

Он, вообще-то, вот после этого ругается:

Сообщение от кот Бегемот

while i<=m do
begin
inc(i);

m — длина строки, а значит
i — становится длинее строки!

@кот Бегемот · 30.10.2015, 10:20

Это несложно исправить. Достаточно записать 7 строку так:

Pascal

1	while i<m do

Знак = там был ошибочен, так как обрабатывается следующий символ.

@JuriiMW · 30.10.2015, 10:31

кот Бегемот, я то это сразу увидел… А вас пришлось на буксире тянуть…
И как теперь воспринять ваши же слова:

Сообщение от кот Бегемот

Неаккуратность, не имеющая значения

@кот Бегемот · 30.10.2015, 10:37

А Вы обратили внимание в котором часу была написана программа?
И вообще, ты хто, чтобы меня учить?
Я справлюсь без Вашего участия.

Сообщение от JuriiMW

я то это сразу увидел

Ну, возьми с полочки пирожок и радуйся, что ты самый талантливый, а остальные - мусор

@JuriiMW · 30.10.2015, 10:59

Сообщение от кот Бегемот

ты хто,

Сообщение от кот Бегемот

Ну, возьми с

Давайте без личностей!

@кот Бегемот · 30.10.2015, 11:03

А вы ведите себя в рамках приличия, не читайте нравоучений, не хамите, не выпячивайте своё я.
Правильнее было бы послать тебя куда подальше.
Но я просто прекращаю общение навсегда.
Вы мне не интересны.

@кот Бегемот Платежеспособный зверь 8818 / 4245 / 1618 Регистрация: 28.10.2009 Сообщений: 11,386
	30.10.2015, 11:03	12
	А вы ведите себя в рамках приличия, не читайте нравоучений, не хамите, не выпячивайте своё я. Правильнее было бы послать тебя куда подальше. Но я просто прекращаю общение навсегда. Вы мне не интересны. 0

@33bobra33 0 / 0 / 0 Регистрация: 22.09.2015 Сообщений: 25
		1
	Переместить все цифры в конец, а остальные символы в начало строки, сохраняя порядок взаимного расположения 30.10.2015, 00:50. Показов 2395. Ответов 11 Метки нет (Все метки) Преобразовать строку символов по пaравилу: переместить все цифры в конец, а остальные символы в начало строки, сохраняя порядок взаимного расположения символов в каждой из этих двух групп 0

@кот Бегемот Платежеспособный зверь 8818 / 4245 / 1618 Регистрация: 28.10.2009 Сообщений: 11,386
	30.10.2015, 07:40	4
	volvo, я делал версию для классического паскаля 0

@кот Бегемот Платежеспособный зверь 8818 / 4245 / 1618 Регистрация: 28.10.2009 Сообщений: 11,386
	30.10.2015, 09:35	6
	Сообщение от JuriiMW В таком случае почему: — не инициализируются переменные i и b перед первым использованием? Неаккуратность, не имеющая значения Сообщение от JuriiMW почему: — при любых условиях выскакивает «Индекс находится вне границ массива.» Откуда я знаю, почему ваш кривой ПаскальАВС не воспринимает a[1] как первый символ строки а, а требует объявления массива символов. В Турбо Паскале всё прекрасно работает Сообщение от JuriiMW Вот мой почти «классический» вариант К классическому Паскалю ваш вариант не имеет никакого отношения и работать не будет, а в АВС уже сделали простую программу. 0

@JuriiMW 5058 / 2632 / 2345 Регистрация: 10.12.2014 Сообщений: 9,994
	30.10.2015, 09:51	7
	Он, вообще-то, вот после этого ругается: Сообщение от кот Бегемот while i<=m do begin inc(i); m — длина строки, а значит i — становится длинее строки! 0

@JuriiMW 5058 / 2632 / 2345 Регистрация: 10.12.2014 Сообщений: 9,994
	30.10.2015, 10:31	9
	кот Бегемот, я то это сразу увидел… А вас пришлось на буксире тянуть… И как теперь воспринять ваши же слова: Сообщение от кот Бегемот Неаккуратность, не имеющая значения 0

@кот Бегемот Платежеспособный зверь 8818 / 4245 / 1618 Регистрация: 28.10.2009 Сообщений: 11,386
	30.10.2015, 10:37	10
	А Вы обратили внимание в котором часу была написана программа? И вообще, ты хто, чтобы меня учить? Я справлюсь без Вашего участия. Сообщение от JuriiMW я то это сразу увидел Ну, возьми с полочки пирожок и радуйся, что ты самый талантливый, а остальные - мусор 0

@JuriiMW 5058 / 2632 / 2345 Регистрация: 10.12.2014 Сообщений: 9,994
	30.10.2015, 10:59	11
	Сообщение от кот Бегемот ты хто, Сообщение от кот Бегемот Ну, возьми с Давайте без личностей! 0

Опции темы