Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
2 / 2 / 0
Регистрация: 23.02.2012
Сообщений: 45
1

Подсчитать количество букв "й", "ы" и "я", содержащихся в заданной строке.

01.03.2012, 13:35. Показов 1715. Ответов 2
Метки нет (Все метки)

нужна помощь, помогите пожалуйста:
Подсчитать количество букв "й", "ы" и "я" (в отдельности), содержащихся в заданной строке. Вставить по два пробела после каждой запятой и удалить все буквосочетания "ой".
0

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2012, 13:35
Ответы с готовыми решениями:

Подсчитать количество цифр "5", "6" и "7" (в отдельности) содержащихся в данной строке
Составить алгоритм и программу обработки введенной с клавиатуры строки с использованием стандартных...

Подсчитать количество предложений в строке, чтобы они начинались с заглавной буквы и заканчивались"." "?" "!"
Буду очень благодарен

Если в строке больше букв "А", чем букв "О", вывести в центре экрана слово "привет"
Помогите составить алгоритм к задаче: Заполнить левую половину экрана синим цветом, правую -...

Дана строка. Подсчитать, сколько в ней букв "r", "k", "t"
Дана строка. Подсчитать,сколько в ней букв r,k,t. Народ решите п-жста ,срочно нужно.

2
335 / 124 / 114
Регистрация: 09.04.2011
Сообщений: 246
01.03.2012, 14:56 2
Лучший ответ Сообщение было отмечено VoltZZZ как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var s:string;
    a,b,c,i:integer;
begin
  write('s=');
  readln(s);
  for i:=1 to length(s) do
   begin
     if s[i]='©' then inc(a);
     if s[i]='л' then inc(b);
     if s[i]='п' then inc(c);
     if s[i]=',' then insert('  ',s,i+1);
   end;
  for i:=1 to length(s) do
   if (s[i]='®') and (s[i+1]='©') then delete(s,i,2);
  writeln(s);
  writeln(a,' ',b,' ',c);
  readln;
end.
1
trainspotting
1086 / 486 / 384
Регистрация: 11.11.2010
Сообщений: 773
01.03.2012, 17:04 3
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
var
  s:string;
  i,k1,k2,k3:byte;
begin
  readln(s);
  k1:=0;k2:=0;k3:=0;
  for i:=1 to length(s) do
    case s[i] of
      'й': inc(k1);
      'ы': inc(k2);
      'я': inc(k3);
    end;
  i:=1;
  while i<=length(s) do
    begin
      if s[i]=',' then
        insert(#32#32,s,i+1);
      inc(i);
    end;    
  while pos('ой',s)<>0 do
    delete(s,pos('ой',s),2);
  writeln(s);
  writeln('й ->',k1,'ы ->',k2,'я ->',k3);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2012, 17:04

Составить фразу "программное обеспечение" из слов "программист", "оборот", "анчоус", "измерение"
Составить фразу &quot;программное обеспечение&quot; из слов &quot;программист&quot;, &quot;оборот&quot;, &quot;анчоус&quot;,...

Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который"
1) Составить фразу &quot;текстовый редактор&quot; из слов &quot;тесто&quot;, &quot;редакция&quot;, &quot;мотор&quot;, &quot;который&quot;.

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф".
1) Составить фразу &quot;письменный стол&quot; из слов &quot;тесненный&quot;, &quot;полка&quot;, &quot;речь&quot;, &quot;миф&quot;. 2) Вывести...

Даны две текстовые строки, подсчитать в них количество букв "а" и "б"
Помогите решить пожалуйста Даны две текстовые строки, подсчитать в них количество букв...

Из заданной строки получить новую заменив в ней все группы букв ""abcd" на "abc".
Из заданной строки получить новую заменив в ней все группы букв &quot;&quot;abcd&quot; на &quot;abc&quot;.

Заменить символы "1", "2", "3" словами "один", "два", "три"
Дана строка символов. Заменить символы &quot;1&quot;, &quot;2&quot;, &quot;3&quot; словами &quot;один&quot;, &quot;два&quot;, &quot;три&quot;. Оформить в...


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

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

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