Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
eryana
0 / 0 / 1
Регистрация: 10.03.2010
Сообщений: 66
1

Определить общее число вхождений двух повторяющихся символов для каждого символа, встречающегося в исходной строке

01.04.2010, 21:19. Просмотров 772. Ответов 4
Метки нет (Все метки)

Дана строка s, содержащая менее чем 256 символов. Определить общее число вхождений двух повторяющихся символов для каждого символа, встречающегося в исходной строке. Использовать стандартные процедуры и функции в действиях над строками.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.04.2010, 21:19
Ответы с готовыми решениями:

Определить общее число вхождений двух повторяющихся символов для каждого символа, встречающегося в исходной строке
Помогите с двумя задачами на строки 1)Дана строка s, содержащая менее чем...

Подсчитать общее число вхождений символов +, -, *, / в строке
2)Дана строка символов S. Подсчитать общее число вхождений символов +, -, *, /...

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

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

Оставить в строке только один экземпляр каждого встречающегося символа
есть прога и есть задание: Оставить в строке только один экземпляр каждого...

4
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,320
04.04.2010, 14:09 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
uses crt;
var s:string;
    i,j,k,f:byte;
    c:char;
begin
clrscr;
writeln('Введите строку:');
readln(s);
f:=0;
for i:=32 to 255 do
 begin
  c:=chr(i);k:=0;
  for j:=1 to length(s)-1 do
  if (s[j]=c)and(s[j+1]=c) then
    begin
     f:=1;
     k:=k+1;
    end;
  if k>0 then writeln('спаренный символ ',c,' встречается ',k,' рз.');
 end;
if f=0 then write('Спаренных символов нет!');
readln
end.
1
eryana
0 / 0 / 1
Регистрация: 10.03.2010
Сообщений: 66
04.04.2010, 22:52  [ТС] 3
"for i:=32 to 255 do"

а почему начиная с 32 ?
0
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,320
05.04.2010, 09:21 4
а почему начиная с 32 ?
Потому что до 31 это служебные символы и Вы их не сможете ввести с клавиатуры.
1
eryana
0 / 0 / 1
Регистрация: 10.03.2010
Сообщений: 66
05.04.2010, 22:06  [ТС] 5
не когда об этом не знала
спасибо огромное!
0
05.04.2010, 22:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.04.2010, 22:06

Дана строка символов. Подсчитать общее число вхождений символов +, -, *, / в строку. Произвести обмен символов + и -.
помогите, пожалуйста.

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

Составить программу для замены в строке длиной К символов каждого второго символа ! На $
1)Ввести с клавиатуры строку символов. Признак окончания ввода строки – нажатие...


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

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

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