Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 27.05.2011
Сообщений: 3
1

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

01.06.2011, 23:19. Просмотров 1809. Ответов 1
Метки нет (Все метки)


Работа со строками.
Дана символьная строка. Вывести на экран те символы которые встречаются в строке более 3х раз. Для каждого символа указать сколько именно раз он встречается в строке.
Помогите пожалуйста решить...
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2011, 23:19
Ответы с готовыми решениями:

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

Вывести на экран те символы, которые встречаются в строке только один раз
Для заданной символьной строки вывести на экран те символы, которые встречаются в ней только один...

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

Вывести символы, которые встречаются более 2х раз.
Вывести символы, которые встречаются более 2х раз.

1
13064 / 5850 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
02.06.2011, 09:54 2
Лучший ответ Сообщение было отмечено denk как решение

Решение

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
program Project1;
 
var
  S, sCnt, sCode : String;
  Ch : Char;
  i, Len : Integer;
  //Это тоже самое что и: ArrStat : array[#0..#255] of Integer;
  ArrStat : array[Char] of Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    //Обнуляем элементы массива статистики.
    for Ch := #0 to #255 do ArrStat[Ch] := 0;
 
    //Собираем статистику.
    Len := Length(S);
    for i := 1 to Len do Inc(ArrStat[S[i]]);
 
    //Показываем результат.
    Writeln('Символы, которые присутствуют более трёх раз:');
    S := '';
    i := 0;
    for Ch := #0 to #255 do begin
      //Пропускаем те символы, которые встречаются не более трёх раз.
      if ArrStat[Ch] <= 3 then Continue;
      if S <> '' then S := S + #9;
      Str(ArrStat[Ch], sCnt);
      if Ch <= #32 then begin
        Str(Ord(Ch), sCode);
        S := S + '#' + sCode + '(' + sCnt + ')';
      end else begin
        S := S + Ch + '(' + sCnt + ')';
      end;
      //Распечатку формируем в виде таблицы, которая имеет 7 столбцов.
      Inc(i);
      if i mod 7 = 0 then begin
        Writeln(S);
        S := '';
      end;
    end;
    if S <> '' then Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2011, 09:54

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

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

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

Дана строка. Удалить из строки все символы которые встречаются в ней только один раз
Помогите решить пожалуйста задачу. Дана строка. Удалить из строки все символы которые встречаются в...

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


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

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

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