Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Валерия2701
0 / 0 / 0
Регистрация: 11.10.2011
Сообщений: 37
#1

Определить сколько в тексте слов состоят из К букв

11.03.2012, 12:31. Просмотров 1060. Ответов 1
Метки нет (Все метки)

определить сколько в тексте слов состоят из К букв (К-произвольное натуральное число)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2012, 12:31
Ответы с готовыми решениями:

Строки: определить, сколько слов состоят только из букв
дана строка символов состоящая из прописных и строчных латинских букв, цифр от 0 до 9 и пробелов....

Определить сколько в тексте латинских заглавных букв
Определить сколько в тексте латинских заглавных букв, записать их количество выходной файл var ...

Дан файл, содержащий текст. Сколько слов в тексте? сколько цифр в тексте?
Дан файл, содержащий текст. Сколько слов в тексте? сколько цифр в тексте?

Определить, на какую букв начинается больше всего слов в тексте
Ввести текст. Определить на какую букв начинается больше всего слов в тексте. Если можно с...

Найти кратчайшее слово в тексте и определить сколько в нем букв
Есть задача: Найти кратчайшее слово в тексте и определить сколько в нем букв... Только прошу...

1
Puporev
Модератор
54361 / 41950 / 28980
Регистрация: 18.05.2008
Сообщений: 98,815
11.03.2012, 13:03 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
const rz=['_',':',';',',',' ','.','?','!'];
var s,s1:string;
    i,j,k,b,ks,n:byte;
begin
clrscr;
writeln('Введите текст');
readln(s);
write('Количество букв в искомых словах k=');
readln(k);
n:=length(s);
i:=1;
ks:=0;
while i<=length(s) do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  j:=i;b:=0;
  while not(s[j] in rz)and(j<=n)do {пока не разделитель и не конец строки}
   begin
    b:=b+1;{считаем буквы}
    j:=j+1;{идем вперед}
   end;
  if b=k then ks:=ks+1;{если k букв, считаем слово}
  i:=i+b;{перепрыгиваем}
 end
else i:=i+1;
write('Число слов из ',k,' букв=',ks);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.03.2012, 13:03

Определить сколько букв русского алфавита встречается в тексте
С клавиатуры вводится предложение состоящее из произвольных символов и заканчивается точкой....

Определить, сколько в тексте слов, в состав которых входит слог лог
Определить, сколько в тексте слов, в состав которых входит слог лог Буду заранее благодарен за...

Вводится строка символов. Определить, сколько в нем слов длиннее 5 букв
Вводится строка символов. Определить, сколько в нем слов длиннее 5 букв. Слова при введении...


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

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

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