Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 09.06.2013
Сообщений: 6
1

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

09.06.2013, 20:12. Показов 639. Ответов 7
Метки нет (Все метки)

Дана строка s, содержащая менее чем 256 символов. Определить общее число вхождений двух повторяющихся символов для каждого символа, встречающегося в исходной строке. Использовать стандартные процедуры и функции в действиях над строками.
Вопрос собственно состоит в том, как сделать, что бы программа выводила все символы в виде
а=0 {кол-во повторений в строке}
b=2 {кол-во повторений в строке}
Но вот незадача, символы научился все выводить, но как сделать что бы они не повторялись, то есть если я напишу строку: " ааппа", что бы он вывел не
а=
а=
п=
п=
а=
А вывел
А=...
П=...
То есть символы не повторялись в выводе.
П.С. надеюсь понятно объяснил)
Например при вводе строки " рамма " вывело:
р-0
а-0
м-1
Код программы который у меня получился
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s:string;
i,j,k:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
begin
k:=0;
for j:=i to length(s)-1 do
if (s[j]=s[i]) and (s[j+1]=s[i]) then
begin
k:=k+1;
end;
if k>=0 then writeln ('Символ ', s[i],' повторяется ',k,' раз');
end;
end.
0

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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2013, 20:12
Ответы с готовыми решениями:

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

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

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

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

7
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.06.2013, 21:19 2
как вариант
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s:string;
    i,k: byte;
    c: char;
begin
write('Введите строку: '); readln(s);
for c:='А' to 'я' do
    if pos(c,s)<>0 then
       begin
       k:=0;
       for i:=1 to length(s)-1 do
           if (s[i]=c) and (s[i+1]=c) then inc(k);
       writeln ('Удвоенный символ ', c,' встречается ',k,' раз');
       end;
end.
1
0 / 0 / 1
Регистрация: 09.06.2013
Сообщений: 6
09.06.2013, 21:25  [ТС] 3
нужно чтобы программа выводила символы даже если они встречаются 1 раз, например строка орракк:
о-0 раз
р-1 раз
а-0 раз
к-1 раз
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.06.2013, 21:28 4
Название: 1.png
Просмотров: 27

Размер: 3.6 Кб
1
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.06.2013, 21:33 5
вариант 2 (однако с использованием множеств, что, вероятно, не комильфо)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var s:string;
    i,j,k:integer;
    m: set of char;
begin
writeln('Введите строку');
readln(s);
m:=[];
for i:=1 to length(s) do
    begin
    k:=0;
    if not (s[i] in m) then
       begin
       for j:=i to length(s)-1 do
           if ((s[j]=s[i]) and (s[j+1]=s[i])) then
              begin
              k:=k+1;
              m:=m+[s[j]];
              end;
       if k>=0 then writeln ('Символ ', s[i],' повторяется ',k,' раз');
       end;
    end;
end.
1
0 / 0 / 1
Регистрация: 09.06.2013
Сообщений: 6
09.06.2013, 22:02  [ТС] 6
оба варианта сделаны правильно и подходят, но:
первый считает только русские буквы, когда к символам относятся A-Z,a-z и знаки
второй сделан замечательно, но нужно что-то попроще

Мне говорили что можно каждый символ который мы проверили прировнять к 'пробелу' и в начале поставить условие чтобы пробелы пропускал, если они встречаются
Например:
строка орракокк
о-посчитали и прировняли к пробелу останется _ррак_кк
р-посчитали и прировняли к пробелу, остается ___ак_кк
и т.д
но как это сделать я не знаю
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.06.2013, 22:52 7
Цитата Сообщение от КонецСвета Посмотреть сообщение
for c:='А' to 'я' do
можно заменить на
Pascal
1
for c:='!' to 'я' do
для анализа всех символов

вот вариант для приведенного алгоритма
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var s: string;
    i,j,k: byte;
    c: char;
begin
write('s='); readln(s);
for i:=1 to length(s) do
    if s[i]<>' ' then
       begin
       k:=0;
       c:=s[i];
       for j:=i to length(s) do
           if s[j]=c then
              begin
              if (j<length(s)) and (s[j+1]=c) then inc(k);
              s[j]:=' ';
              end;
       writeln('Удвоенная ',c,' встречается ',k,' раз');
       end;
end.
1
0 / 0 / 1
Регистрация: 09.06.2013
Сообщений: 6
10.06.2013, 00:58  [ТС] 8
спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2013, 00:58

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

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

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

Для каждого символа исходной строки найти число вхождений его в строке
Для каждого символа исходной строки найти число вхождений его в строке и напечатать в...

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


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

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

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