Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
artik
10 / 10 / 3
Регистрация: 08.02.2010
Сообщений: 62
#1

Дана строка состоящая из слов, разделенных пробелами. Посчитать количество сдвоенных букв во ведённом тексте. - Turbo Pascal

10.02.2010, 20:21. Просмотров 828. Ответов 3
Метки нет (Все метки)

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




ПОМОГИТЕ ПЛЗ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.02.2010, 20:21
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дана строка состоящая из слов, разделенных пробелами. Посчитать количество сдвоенных букв во ведённом тексте. (Turbo Pascal):

Строковый тип данных. Посчитать количество сдвоенных букв во ведённом тексте.
1. Дана строка, состоящая из слов, разделённых пробелами. Посчитать количество...

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

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

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

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

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

3
Puporev
Модератор
54137 / 41770 / 28880
Регистрация: 18.05.2008
Сообщений: 98,314
10.02.2010, 20:37 #2
Pascal
1
2
3
4
5
6
7
8
k:=0;i:=2;
while  i<=length(s) do
if(s[i]<>' ')and(s[i]=s[i-1])then 
 begin
   k:=k+2;
   i:=i+2;
 end
else i:=i+1;
0
Nereus
1 / 1 / 0
Регистрация: 09.02.2010
Сообщений: 7
10.02.2010, 20:55 #3
Вроде нормально работает...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var
  s:string;
  i,c:integer;
begin
  clrscr;
  readln(s);
  for i:=1 to length(s) do
  if s[i]=s[i+1] then c:=c+1;
  writeln(c);
  readln;
end.
0
Puporev
Модератор
54137 / 41770 / 28880
Регистрация: 18.05.2008
Сообщений: 98,314
10.02.2010, 21:20 #4
Цитата Сообщение от Nereus Посмотреть сообщение
if s[i]=s[i+1] then c:=c+1;
А если 2 пробела рядом? Это же не буквы.

Добавлено через 1 минуту
Потом, если например "ооо" , то это же не 2 пары сдвоенных букв.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2010, 21:20
Привет! Вот еще темы с решениями:

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

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

Заданная строка, состоящая из цифр разделенных одним или несколькими пробелами
Заданная строка, состоящая из цифр разделенных одним или несколькими пробелами....

Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой группы одним или несколькими пробелами. Подсчитать количество симво
Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от...


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

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

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