Файловый архив студентов. Файловый архив студентов.
1301 вуз, 5076 предмет.
/ Регистрация
FAQ Обратная связь Вопросы и предложения
Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Московский государственный технический университет им. H.Э.Баумана
Предмет:
[НЕСОРТИРОВАННОЕ]
Файл:
Символы / Strokatext.doc
Скачиваний:
5
Добавлен:
10.02.2015
Размер:
158.21 Кб
Скачать
☆
►Содержание►

  2. program strokapr3;

  4. {$APPTYPE CONSOLE}

  6. uses

  7. SysUtils;

  9. type Mas=array of String;

  10. Mn=set of Char;

  11. const Prep=[' ', '.', ',', '?', '!', ':', ';', '-'];//множество

  12. //символов-разделителей

  13. Glas=['A','E','I','O','U','Y'];//множество гласных букв

  14. Var s,St:String;

  15. A:Mas;

  16. Pr:Boolean;

  17. I,K:Integer;

  18. function Rus(S:String):String;

  19. var I:Byte;

  20. begin

  21. Result:='';

  22. for I:=1 to Length(S) do

  23. case S[I] of

  24. 'А'..'п': Result:=Result+Chr(Ord(S[I])-64);

  25. 'р'..'я': Result:=Result+Chr(Ord(S[I])-16);

  26. 'Ё': Result:=Result+Chr(240);

  27. 'ё': Result:=Result+Chr(241);

  28. else

  29. Result:=Result+S[I];

  30. end;

  31. end;

  33. function RusIn(S:String):String;

  34. var I:Integer;

  35. begin

  36. Result:='';

  37. for I:=1 to Length(S) do

  38. case Ord(S[I]) of

  39. 128..175: Result:=Result+Chr(Ord(S[I])+64);

  40. 224..239: Result:=Result+Chr(Ord(S[I])+16);

  41. 240: Result:=Result+Chr(168);

  42. 241: Result:=Result+Chr(184);

  43. else

  44. Result:=Result+S[I];

  45. end;

  46. end;

  47. //функция определения наличия в слове всех гласных букв

  48. function WseGlasn(S:String):Boolean;

  49. var I,N:integer;

  50. Gl:Mn;

  51. begin

  52. Gl:=Glas;//множество всех гласных букв

  53. I:=1;

  54. Result:=false;

  55. N:=Length(S);

  56. while(I<=N)andnotResultdo//проверка символов слова, //пока не будет достигнут его конец и пока множество гласных, //отсутствующих в слове, не станет пустым

  57. begin

  58. Gl:=Gl-[UpCase(S[I])]; //исключение из множества гласных

  59. //очередного символа слова

  60. ifGl=[]thenResult:=true//если получено пустое множе-

  61. //ство, то слово удовлетворяет требованию

  62. else I:=I+1;

  63. end;

  64. end;

  65. procedure Sort(Var A:Mas;N:Integer);

  66. Var I,j,Imin:integer;

  67. Min:String;

  68. begin

  69. for I:=N-1 downto 1 do

  70. begin

  71. Min:=A[I];

  72. Imin:=I;

  73. for J:=I-1 downto 0 do

  74. if A[J]<Min then

  75. begin

  76. Min:=A[J];

  77. Imin:=J;

  78. end;

  79. A[Imin]:=A[I];

  80. A[I]:=Min;

  81. end;

  82. end;

  83. begin

  84. Writeln(Rus('Введите строку символов'));

  85. Readln(S);

  86. S:=RusIn(s);

  87. Writeln(Rus(S));

  88. K:=0;

  89. Pr:=false;

  90. St:='';

  91. for I:=1 to Length(S) do

  92. begin

  93. If not (s[I] in Prep) then

  94. begin

  95. Pr:=true;

  96. St:=St+S[I];

  97. end;

  98. if (S[I] in Prep) or (i=Length(S)) then

  99. begin

  100. Pr:=false;

  101. if St<>'' then

  102. begin

  103. Writeln(Rus(St));

  104. If WseGlasn(St) then

  105. begin

  106. Writeln(Rus(St));

  107. K:=K+1;

  108. SetLength(A,K);

  109. A[K-1]:=St;

  110. end;

  111. end;

  112. St:='';

  113. end;

  114. end;

  115. if k=0 then

  116. Writeln(Rus('Слов со всеми гласными в строке нет'))

  117. else

  118. begin

  119. Sort(A,K);

  120. writeln(Rus('Слова со всеми гласными буквами'));

  121. for I:=0 to K-1 do

  122. Writeln(Rus(A[I]));

  123. end;

  124. Readln;

  125. end.

Пример 4 обработки символьной строки.

Удалить из заданной строки все символы-разделители и подсчитать в полученной строки количество вхождений всех двухсимвольных сочетаний. Вывести все двухсимвольные сочетания, которые встретились в строке, и количество раз, которое они встретились, Двухсимвольное сочетание – два рядом расположенных символа.

  1. program strokapr4;

  3. {$APPTYPE CONSOLE}

  5. uses

  6. SysUtils;

  7. const Nn=Chr(0);

  8. Nk=Chr(255);

  9. type Mas=array[Nn..Nk,Nn..Nk] of integer;

  10. const Prep=[' ', '.', ',', '?', '!', ':', ';', '-'];

  11. Var s,St:String;

  12. A:Mas;

  13. I,J,K:Integer;

  14. C1,C2:Char;

  15. function Rus(S:String):String;

  16. var I:Byte;

  17. begin

  18. Result:='';

  19. for I:=1 to Length(S) do

  20. case S[I] of

  21. 'А'..'п': Result:=Result+Chr(Ord(S[I])-64);

  22. 'р'..'я': Result:=Result+Chr(Ord(S[I])-16);

  23. 'Ё': Result:=Result+Chr(240);

  24. 'ё': Result:=Result+Chr(241);

  25. else

  26. Result:=Result+S[I];

  27. end;

  28. end;

  29. function RusIn(S:String):String;

  30. var I:Integer;

  31. begin

  32. Result:='';

  33. for I:=1 to Length(S) do

  34. case Ord(S[I]) of

  35. 128..175: Result:=Result+Chr(Ord(S[I])+64);

  36. 224..239: Result:=Result+Chr(Ord(S[I])+16);

  37. 240: Result:=Result+Chr(168);

  38. 241: Result:=Result+Chr(184);

  39. else

  40. Result:=Result+S[I];

  41. end;

  42. end;

  43. begin

  44. Writeln(Rus('Введите строку символов'));

  45. Readln(S);

  46. S:=RusIn(s);

  47. Writeln(Rus(S));

  48. St:='';

  49. for I:=1 to Length(S) do

  50. if not (S[I] in Prep) then

  51. St:=St+S[I];

  52. Writeln(Rus(St));

  53. K:=Length(St);

  54. for I:=1 to K-1 do

  55. A[St[I],St[I+1]]:= A[St[I],St[I+1]]+1;

  56. for C1:=Nn to Nk do

  57. for C2:=Nn to Nk do

  58. if A[C1,C2]<>0 then Write(Rus(C1):1,Rus(C2):2,' - ',A[C1,C2]:3,'|');

  59. Readln;

  60. end.

Задания на обработку строк

Строка символов может содержать до 255 символов. Слово - после­довательность символов, не содержащая символов-разделителей. Слова друг от друга отделяются одним или несколькими символами-разделителями. В начале и в конце строки могут стоять разделители (произвольное количество).

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.Найти в строке все слова, начинающиеся заглавной гласной буквой и в которых количество согласных превышает количество гласных. Найденные слова распечатать в порядке, обратном алфа­витному. Если таких слов нет, то выдать сообщение.

Соседние файлы в папке Символы
Помощь Обратная связь Вопросы и предложения Пользовательское соглашение Политика конфиденциальности