Строки, Pascal

Anastasia12 · 11.12.2016, 08:00

Требуется переставить в начало строки все буквы в порядке их следования, затем цифры, и в конце – остальные символы. Рабочие строки не использовать.

Входные данные:
abh[b55](0123)jw((’)f)#dd&&87

Выходные данные:
abhbjwfdd55012387([]((’))#&&

Vladimir_S · 11.12.2016, 08:58

Цитата:

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

Рабочие строки не использовать.

Вот тут, пожалуйста, подробнее. Что значит "рабочие строки" и чего нельзя использовать? А что можно?

Anastasia12 · 11.12.2016, 09:12

я не знаю( у меня со строка огромная беда((

Vladimir_S · 11.12.2016, 10:35

Цитата:

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

я не знаю( у меня со строка огромная беда((

Ну не знаю, устроит ли такое решение, ломал-ломал голову, как совсем обойтись без второй строки, но так и не придумал. Вот, "чем богаты":

Код:

Const
 Let=['a'..'z']+['A'..'Z'];
 Dig=['0'..'9'];

Var
 S,S1:String;
 i,L:Byte;

Begin
 Writeln('Enter the String:');
 Readln(S);
 L:=Length(S);
 S1:='';
 for i:=1 to L do
  if (S[i] in Let) then S1:=S1+S[i];
 for i:=1 to L do
  if (S[i] in Dig) then S1:=S1+S[i];
 for i:=1 to L do
  if Not(S[i] in Let) and Not(S[i] in Dig) then S1:=S1+S[i];

 Writeln('Result:');
 Writeln(S1);

 Readln
End.

Anastasia12 · 11.12.2016, 10:47

спасибо большое

11.12.2016, 08:00	#1 (permalink)
Anastasia12 Member Регистрация: 12.11.2016 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Строки, Pascal Требуется переставить в начало строки все буквы в порядке их следования, затем цифры, и в конце – остальные символы. Рабочие строки не использовать. Входные данные: abh[b55](0123)jw((’)f)#dd&&87 Выходные данные: abhbjwfdd55012387([]((’))#&&

11.12.2016, 08:00
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Эти топики созданы ранее, по этому в них может быть решение вашего вопроса Строки. Pascal Строки, Pascal. Нужна помощь Pascal, строки Строки. Pascal Строки. Pascal

11.12.2016, 09:12	#3 (permalink)
Anastasia12 Member Регистрация: 12.11.2016 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	я не знаю( у меня со строка огромная беда((

11.12.2016, 10:47	#5 (permalink)
Anastasia12 Member Регистрация: 12.11.2016 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо большое

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070