0 / 0 / 0
Регистрация: 09.06.2013
Сообщений: 18
1

Найти в тексте слова, в которых некоторый заданный символ встречается наибольшее число раз

09.06.2013, 23:38. Показов 2517. Ответов 2
Метки нет (Все метки)

1. Дан текст. Найти в нем слова, в которых некоторый заданный символ встречается наибольшее число раз.( Дан текст. Найти в нем символы, которые имеют код в таблице символов больше чем у некоторого заданного символа)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2013, 23:38
Ответы с готовыми решениями:

Подсчитайте, сколько раз в заданном тексте встречается заданный символ
2. Подсчитайте, сколько раз в заданном тексте встречается заданный символ.

Определить, какой символ встречается в строке подряд наибольшее число раз
Задана строка символов. Определить, какой символ встречается в этой строке подряд наибольшее число...

Посчитать, сколько раз в строке встречается заданный символ
написать программу : 1.которая считает, сколько раз в строке встречается заданный символ. 6....

Дано слово из 4 символов. Сколько раз встречается в нем заданный символ?
Помогите пожалуйста с задачей. Дано слово из 4 символов. Сколько раз встречается в нем заданный...

2
0 / 0 / 0
Регистрация: 09.06.2013
Сообщений: 18
12.06.2013, 12:39  [ТС] 2
Помогите плиз...
0
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
12.06.2013, 22:55 3
Лучший ответ Сообщение было отмечено Florencov как решение

Решение

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
uses crt;
const p=[' ',',','.',';',':','!','?','-'];
var  s,sn,slovo: string;
     i,j,k,kmax: byte;
     c: char;
     
begin
write('s='); readln(s);
s:=s+' ';
slovo:='';
write('Символ: '); readln(c);
kmax:=0;
for i:=1 to length(s) do
    if not (s[i] in p) then slovo:=slovo+s[i] else
       if (length(slovo)>0) and (pos(c,slovo)<>0) then
          begin
          k:=0;
          for j:=1 to length(slovo) do
              if slovo[j]=c then inc(k);
          if k=kmax then sn:=sn+slovo+' ' else
             if k>kmax then
                begin
                kmax:=k;
                sn:=slovo+' ';
                end;
          slovo:='';
          end;
if kmax=0 then writeln('Нет символа ',c,' в тексте') else
   writeln('Символ ',c,' наибольшее (',kmax,') число раз встречается в словах: ',sn);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.06.2013, 22:55
Помогаю со студенческими работами здесь

Определить, сколько раз в каждой строке файла встречается заданный символ
дан текстовый файл. сколько раз в каждой строке встречается данный символ p.s текст на своё...

Строка: Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз.
1. Дан текст. Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз....

Подсчитать, сколько раз встречается в последнем слове заданного строки заданный символ.
Ребята такая прога ! Подсчитать, сколько раз встречается в последнем слове заданного строки...

Подсчитайте, какая из гласных букв встречается в тексте наибольшее количество раз
Подсчитайте, какая из гласных букв встречается в тексте наибольшее количество раз


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru