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

Посчитать количество повторений символа в строке

26.05.2013, 01:41. Показов 3472. Ответов 1
Метки нет (Все метки)

Доброго времени суток. Помогите найти ошибки в коде. Нужно чтоб программа считала количество повторений символа в строке. пример:
Кликните здесь для просмотра всего текста
слово :!jp1q=kde1g!jPd.
ответ:
! 2
j 2
p 1
1 2
q 1
= 1
k 1
d 2
e 1
g 1
P 1

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
31
32
33
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
 
var s: string;
    k1,k2,k3,i,j: byte;
     d:char;
procedure KolSim (str: string;  c: char; var k: byte);
 
begin
k:=0;
for i:=1 to length(str) do
    if str[i]=c
    then
    k:=k+1;
    writeln(' ',str[i],' ',k1);
end;
 
begin
randomize;
write('s=');
readln(s);
for i:=1 to length(s) do
begin
d:=s[i];
KolSim (s,d,k1);
end;
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.05.2013, 01:41
Ответы с готовыми решениями:

Посчитать количество повторений каждого символа в строке, введенной с клавиатуры
Посчитать количество повторений каждого символа в строке, введенной с клавиатуры

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

Из файла вывести максимальное количество повторений символа в строке
нужно сделать программу которая записывает введенную строку с клавиатуры в txt , а потом из файла ...

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

1
13089 / 5870 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
26.05.2013, 01:58 2
Лучший ответ Сообщение было отмечено dimitriy201 как решение

Решение

Удобнее действовать так. Подсчёт количества присутствий символов в строке.
Delphi
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
31
32
33
34
35
36
37
38
39
40
41
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
var
  //Массив со сведениями о количестве присутствий символов в тексте.
  Arr : array[Char] of Integer; //Это тоже самое, что и: Arr : array[#0..#255] of Integer;
  Ch : Char;
  i : Integer;
  S : String;
begin
  {Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  Если после переключения русские буквы показываются неверно,
  следует открыть системное меню консольного окна - щелчком мыши в левом
  верхнем углу окна консоли и выбрать:
  Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".}
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте строку:');
    Readln(S);
    for i := 1 to Length(S) do Inc(Arr[S[i]]);
 
    //Ответ.
    Writeln('Статистика:');
    for Ch := #0 to #255 do
      if Arr[Ch] > 0 then begin
        if Ch > #32 then //Отображаемые символы.
          Writeln('Символ ', Ch, ': ', Arr[Ch])
        else //НЕ отображаемые символы.
          Writeln('Символ #', Ord(Ch), ': ', Arr[Ch]);
      end;
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.05.2013, 01:58
Помогаю со студенческими работами здесь

Определить номера позиций и количество повторений заданного символа в строке
Определить и вывести на экран номера позиций и количество повторений заданного символа (или его...

Определить и вывести на экран номера позиций и количество повторений заданого символа в строке введенной с клавиатуры
определить и вывести на экран номера позиций и количество повторений заданого символа в строке...

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

Подсчет повторений символа в строке
Всем привет! Написал программу для подсчёта повторений символа введенного с клавиатуры, но...


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

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

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