Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
vamp1r04ka
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 8
1

печать букв, входящих в строку больше К раз

25.05.2010, 20:31. Просмотров 542. Ответов 5
Метки нет (Все метки)

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

Проверить, можно ли из букв, входящих в строку А, составить строку В
Даны две строки А и В. составить программу, проверяющую, можно ли из букв,...

В строке, состоящей из букв и цифр, найти сумму всех цифр, входящих в эту строку
дана строка, состоящая из букв и цифр. Найти сумму всех цифр, входящих в эту...

Дан текст из цифр и строчных букв латинского алфавита. Определить каких букв - гласных (a, e, i, j, o, u) или согласных - больше в этом тексте
Дан текст из цифр и строчных букв латинского алфавита. Определить каких букв -...

Вычислить сумму цифр, входящих в строку
Привет всем. Помогите пожалуйста! Вот задачка: дана строка, состоящая из букв и...

Найти сумму всех цифр, входящих в строку и удалить эти цифры.
Дана строка, состоящая из букв и цифр. Найти сумму всех цифр, входящих в эту...

5
arni
906 / 871 / 62
Регистрация: 06.01.2010
Сообщений: 2,367
Записей в блоге: 6
25.05.2010, 21:14 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  s: string;
  a: array[Byte] of Integer;
  i, Count: Integer;
begin
  s:=InputBox('', 'Введите пороговое количество', '');
  if TryStrToInt(s, Count) then
  begin
    s:=InputBox('', 'Введите строку, лучше подлинее', '');
    for i:=Low(a) to High(a) do
      a[i]:=0;
    for i:=1 to Length(s) do
      Inc(a[Ord(s[i])]);
    for i:=Low(a) to High(a) do
      if a[i]>Count then
        ShowMessage('Символ "'+Char(i)+'" встретился '+IntToStr(a[i])+' раз(-а).');
  end
  else
    ShowMessage('Вы достали вводить вместо числа хрень.')
end;
1
vamp1r04ka
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 8
25.05.2010, 21:33  [ТС] 3
можно немного пояснений по поводу алгоритма выполнения программы?
0
arni
906 / 871 / 62
Регистрация: 06.01.2010
Сообщений: 2,367
Записей в блоге: 6
25.05.2010, 21:41 4
Цитата Сообщение от vamp1r04ka Посмотреть сообщение
можно немного пояснений по поводу алгоритма выполнения программы?
будет конкретный вопрос - с меня конкретный ответ
0
vamp1r04ka
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 8
25.05.2010, 21:47  [ТС] 5
for i:=Low(a) to High(a) do
a[i]:=0;
for i:=1 to Length(s) do
Inc(a[Ord(s[i])]);

просто объяснить вот эти 2 цикла для понимания))
0
arni
906 / 871 / 62
Регистрация: 06.01.2010
Сообщений: 2,367
Записей в блоге: 6
25.05.2010, 21:59 6
массив "а" содержит статистику встречаемости символов.
в первом цикле мы обнуляем элементы массива - готовим к работе.

во втором цикле перебираем символы в строке и наращиваем статистику для каждого встреченного.
1
25.05.2010, 21:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2010, 21:59

Составить программу выясняющую, можно из букв входящих в слова Х, составить слово Y
Если у кого есть такая лаба, буду искренни благодарен за нее:) Ну или может...

Дано целое число N(>0) и строка S. Преобразовать строку S в строку длинны N следующим образом: если длинна строки S больше Т, то отбросить первые симв
Дано целое число N(>0) и строка S. Преобразовать строку S в строку длинны N...

Окно появилось один раз и больше не появлялось
Это консольное приложение, при первом запуске появилось окно и больше его нет ...


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

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

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