Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 27.06.2012
Сообщений: 3
1

Упорядочить согласные в порядке, обратном алфавитному

03.07.2012, 18:36. Показов 602. Ответов 3
Метки нет (Все метки)

дана строка. в строке-русское слово. упорядочить согласные в порядке, обратном алфавитному. гласные оставить на своих местах.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.07.2012, 18:36
Ответы с готовыми решениями:

Вывести в порядке, обратном к алфавитному, слова текста, в которых не повторяется первая буква
Дана строка, содержащая русский текст. Вывести в порядке, обратном к алфавитному, слова текста, в...

Перепись во 2-й файл отрицательные в обратном порядке, а затем положительные в том порядке в котором они встречаются
дано типизированный числовой файл. Перепись во 2-й файл отрицательные в обратном порядке, а затем...

Напечатать в алфавитном порядке все глухие согласные буквы
Дана не пустая последовательность слов из строчных букв; между соседними словами – запятая, за...

Напечатать в алфавитном порядке все согласные буквы которые входят в текст...
Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая,...

3
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 567
05.07.2012, 10:10 2
Если я правильно понял задание:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  sn=['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
type
  tset=set of char;
var
  s,st,str:string;
  sen:tset;i:byte;
begin
  s:='компьютер';
  writeln(s);
  sen:=[];st:='';
  for i:=1 to length(s) do
    if s[i] in sn then
      sen:=sen+[s[i]]
    else st:=st+s[i];
  for i:=32 to 255 do
    if chr(i) in sen then
      str:=chr(i)+str;
  s:=str+st;
  writeln(s);
  readln
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31192 / 20390 / 7940
Регистрация: 22.10.2011
Сообщений: 35,360
Записей в блоге: 6
05.07.2012, 18:51 3
Цитата Сообщение от Paster Fob Посмотреть сообщение
Если я правильно понял задание:
Не совсем. Задача в другом:

отлично
очтинло
Синие (гласные) остаются на местах, черные (согласные) упорядочиваются по невозрастанию. Делается это вот так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
const
   sn = ['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
 
var
   s : string;
   pv, i, j : integer;
   t : char;
begin
   s:='отлично';
   writeln(s);
 
   for i := 1 to length(s) do
   begin
      for j := length(s) downto i+1 do
      begin
 
         pv := j - 1; // ищем предыдущую согласную букву
         while (pv > 0) and not(s[pv] in sn) do dec(pv);
         if pv = 0 then continue;
 
         if (s[j] in sn) and (s[pv] < s[j]) then // и смотрим, в правильном ли они порядке
         begin
            t := s[pv];
            s[pv] := s[j];
            s[j] := t;
         end;
      end;
   end;
 
   writeln(s);
   readln
end.
0
153 / 153 / 81
Регистрация: 16.06.2012
Сообщений: 314
05.07.2012, 22:37 4
вот еще одно)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
const
   sn = ['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
 
var s : string;
    used : array[1..256] of integer;
    i , j : integer;
begin
   s := 'отлично';
   writeln(s);
   FillChar(used , sizeOf(used) , 0);
   for i := 1 to length(s) do
       inc(used[ord(s[i])]);
   j := 256;
   for i := 1 to length(s) do
       if s[i] in sn then begin
           while (true) do begin
               if (used[j] > 0)and (chr(j) in sn) then break;
               j := j - 1;
           end;
           s[i] := chr(j);
           used[j] := used[j] - 1;
       end;
   WriteLn(s);
   readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.07.2012, 22:37

Найти в тексте слова, в которых все согласные буквы расположены в алфавитном порядке
В текстовом файле input.txt записан русский текст. Найти в тексте слова, в которых все согласные...

Напечатать в алфавитном порядке все согласные буквы, которые не входят ни в одно слово
Дана непустая последовательность слов из строчных русских букв, меду соседними словами-запятая,за...

Вывести в алфавитном порядке все глухие согласные буквы, которые не входят ни в одно слово
Дан файл с текстом на русском языке. Вывести на экран в алфавитном порядке все глухие согласные...

Напечатать в алфавитном порядке: все согласные буквы, которые входят только в одно слово
4.Дана последовательность слов русского языка, между словами – запятая, за последним словом –...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.