03.07.2012, 21:03 | #1 (permalink) |
Новичок
Регистрация: 27.06.2012
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль, строки, упорядочить буквы
Ребятки помогите пожалуйста. |
03.07.2012, 21:03 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Если воспользоваться поиском, то можно найти много полезного по вашему запросу Паскаль, строки Строки. Паскаль Паскаль. Строки Строки, Паскаль Паскаль, символы и строки Паскаль, строки |
04.07.2012, 09:58 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const Sogl=['б','в','г','д','ж','з','к','л','м','н', 'п','р','с','т','ф','х','ц','ч','ш','щ']; Var S,S1:String; i,j:Byte; C:Char; Begin Writeln('Введите слово:'); Readln(S); S1:=''; For i:=1 to length(S) do if (S[i] in Sogl) then begin S1:=S1+S[i]; S[i]:='$'; end; For i:=1 to length(S1)-1 do For j:=1 to length(S1)-i do if Ord(S1[j])<Ord(S1[j+1]) then begin C:=S1[j]; S1[j]:=S1[j+1]; S1[j+1]:=C; end; j:=0; For i:=1 to length(S) do if S[i]='$' then begin Inc(j); S[i]:=S1[j]; end; Writeln(S); Readln; End. |
|
04.07.2012, 14:45 | #3 (permalink) |
Новичок
Регистрация: 27.06.2012
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо еще раз Владимир, спасаете прямо)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|