Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 1
Регистрация: 07.01.2018
Сообщений: 18
1

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

07.01.2018, 20:40. Показов 1063. Ответов 3
Метки нет (Все метки)

PascalABC.NET - Описать процедуру, которая печатает все буквы, входящие в строку более К раз, с указанием количества вхождений
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.01.2018, 20:40
Ответы с готовыми решениями:

Описать процедуру, которая печатает все буквы, входящие в строку менее K раз
Описать процедуру, которая печатает все буквы, входящие в строку менее K раз, с указанием...

Описать процедуру, которая печатает все слова, заканчивающаяся и начинающаяся на заданную букву
2. Описать процедуру, которая печатает все слова, заканчивающаяся и начинающаяся на заданную букву.

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

Определить, буквы, входящие в текст по 3 и более раз
проблема в следующем - русские буквы не замечены. есть идеи в чем причина и как исправить?...

3
1748 / 1340 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
07.01.2018, 22:46 2
Лучший ответ Сообщение было отмечено JackKhoros как решение

Решение

Цитата Сообщение от JackKhoros Посмотреть сообщение
Описать процедуру
Зачем? Всё уже придумали
Pascal
1
2
3
4
5
begin
  var k := ReadlnInteger('K =');
  writeln(ReadlnString('Строка:').Where(v -> v.IsLetter).GroupBy(v -> v).Where(v -> v.Count > k)
    .Select(v -> Format('{0} - {1} раз(а)', v.First, v.Count)).JoinIntoString(NewLine));
end.
1
0 / 0 / 1
Регистрация: 07.01.2018
Сообщений: 18
18.01.2018, 18:20  [ТС] 3
Hitoku, Огромное спасибо! Может быть еще пару задач поможете решить?
0
Status 418
Эксперт Python
2170 / 1264 / 392
Регистрация: 26.11.2017
Сообщений: 3,526
Записей в блоге: 1
18.01.2018, 18:46 4
Pascal
1
2
3
4
5
6
begin
  var d := new Dictionary<char, integer>;
  ReadString('Введите строку:').ForEach(i -> if i.IsLetter then d[i] := d.Get(i) + 1);
  var k := ReadlnInteger('Введите K:');
  d.Where(i -> i.Value > k).ForEach(i -> WritelnFormat('Символ "{0}" - встречается {1} раз(а).', i.Key, i.Value))
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2018, 18:46

Описать процедуру letter(s,t), которая записывает в текстовый файл t все латинские буквы из строки s
Помогите пожалуйста. Описать процедуру letter(s,t), которая записывает в текстовый файл t все...

Описать процедуру, которая печатает все буквы, входящие в строку менее К раз
Описать процедуру, которая печатает все буквы, входящие в строку менее К раз, с указанием...

Описать процедуру, которая печатает буквы, встречающиеся и в той и в другой строках
3.Даны 2 строки. Описать процедуру, которая печатает буквы, встречающиеся и в той и в другой...

Записи: Описать процедуру Печ(Гр, Бук), которая печатает все фамилии людей из группы Гр, начинающиеся с буквы Бук, и даты рождения этих людей
Помогите из этого задания исправить на такой: type строка = packed array of char; дата =...


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

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

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