Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 15.06.2013
Сообщений: 4
1

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

15.06.2013, 11:46. Показов 1716. Ответов 1
Метки нет (Все метки)

Всем привет. Нужна помощь в написании программ(2 штуки)
1) Написать программу, которая определяет наиболее часто встречающийся в строке символ, а так же символы, которые встречаются более трех раз.
2) Написать программу, которая подсчитывает количество неповторяющихся символов в строке.
Очень нужна помощь. Заранее спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2013, 11:46
Ответы с готовыми решениями:

Написать программу которая выводит на экран символы, которые наиболее часто встречается в строке
I. Разработать программу, которая для заданной строки s: Замечание. При решении задач использовать...

Определить наиболее часто встречающийся символ в строке
Определить наиболее часто встречающийся символ в строке.

Символы, которые встречаются в строке более 2-ух раз
Реализовать программу, которая из строки выводит символы в другое поле, которые встречаются в...

Найти все символы, которые встречаются в строке более двух раз
Парни помогите нужно написать в C++ Builder "Найти все символы, которые встречаются в строке более...

1
13067 / 5853 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
17.06.2013, 09:37 2
Лучший ответ Сообщение было отмечено Scorpion539 как решение

Решение

Цитата Сообщение от Scorpion539 Посмотреть сообщение
1) Написать программу, которая определяет наиболее часто встречающийся в строке символ, а так же символы, которые встречаются более трех раз.
2) Написать программу, которая подсчитывает количество неповторяющихся символов в строке.
Решить можно так.
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
var
  Arr : array[AnsiChar] of Integer; //Это тоже самое что и: Arr : array[#0..#255] of Integer;
  Ch : AnsiChar;
  i, CntMax : Integer;
  S : AnsiString;
begin
  {Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  Если после переключения русские буквы показываются неверно,
  следует открыть системное меню консольного окна - щелчком мыши в левом
  верхнем углу окна консоли и выбрать:
  Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".}
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте текст:');
    Readln(S);
 
    //Обнуление элементов массива.
    for Ch := #0 to #255 do Arr[Ch] := 0;
    //Определяем количество присутствий каждого символа.
    for i := 1 to Length(S) do Inc( Arr[S[i]] );
 
    //Задача 1.
 
    //Определяем наибольшее количество повторов символов.
    CntMax := 0;
    for Ch := #0 to #255 do
      if Arr[Ch] > CntMax then CntMax := Arr[Ch];
    //Распечатываем символы, которые встречаются наиболее часто.
    if CntMax = 0 then
      Writeln('Строка пуста.')
    else begin
      Writeln('Наибольшая частота встреч: ', CntMax);
      Writeln('Символы, которые встречаются наиболее часто:');
      i := 0;
      for Ch := #0 to #255 do
        if Arr[Ch] = CntMax then begin
          Inc(i);
          if Ch <= #32 then
            Write('#', Ord(Ch), ' ') //Неотображаемые символы распечатываем в виде кодов.
          else
            Write(Ch, ' ');
        end;
      Writeln;
      Writeln('Всего таких символов: ', i);
    end;
 
    //Распечатываем символы, которые встречаются более 3 раз.
    Writeln('Символы, которые встречаются более 3 раз:');
    i := 0;
    for Ch := #0 to #255 do
      if Arr[Ch] > 3 then begin
        Inc(i);
        if Ch <= #32 then
          Write('#', Ord(Ch), ' ') //Неотображаемые символы распечатываем в виде кодов.
        else
          Write(Ch, ' ');
      end;
    Writeln;
    Writeln('Всего таких символов: ', i);
 
    //Зачада 2.
 
    //Распечатываем символы, которые не повторяются.
    //Это те символы, которые встречаются только 1 раз.
    Writeln('Символы, которые не повторяются:');
    i := 0;
    for Ch := #0 to #255 do
      if Arr[Ch] = 1 then begin
        Inc(i);
        if Ch <= #32 then
          Write('#', Ord(Ch), ' ') //Неотображаемые символы распечатываем в виде кодов.
        else
          Write(Ch, ' ');
      end;
    Writeln;
    Writeln('Всего таких символов: ', i);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2013, 09:37

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дана символьная строка. Вывести на экран те символы которые встречаются в строке более 3х раз
Работа со строками. Дана символьная строка. Вывести на экран те символы которые встречаются в...

Дана символьная строка. Вывести на экран только те символы, которые встречаются в ней более трех раз, для каждого из эти
мне нужно срочно!!!! помоги чем сможете. С++ Добавлено через 19 секунд Вот задание Дана...

Составить программу, которая получает наиболее часто встречающийся ответ и его долю в процентах.
Японская радиокомпания провела опрос N радиослушателей по вопросу: «Какое животное вы связываете с...

Составить программу, которая в произвольной строке символов находит наиболее часто повторяющийся символ. В головной программе вызвать эту подпрограмму
Составить программу, которая в произвольной строке символов находит наиболее часто повторяющийся...


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

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

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