Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
blocker147
0 / 0 / 5
Регистрация: 14.12.2015
Сообщений: 160
#1

Подсчитать количество вхождений в последовательность: больших и маленьких букв - PascalABC.NET

25.04.2016, 15:59. Просмотров 244. Ответов 1
Метки нет (Все метки)

Задача:
Считывает последовательность символов (0 – конец
последовательности). Подсчитывает количества вхождений в
последовательность: больших и маленьких букв,
соответствующим Вашим инициалам (например, К, к, О или о).
Нарисовать частотную гистограмму с помощью звездочек.
Нарисовать частотную гистограмму с помощью звездочек.
Использовать оператор выбора case. Гистограмму представить в
виде:
К,к 12 ************
О,о 5 *****
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2016, 15:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подсчитать количество вхождений в последовательность: больших и маленьких букв (PascalABC.NET):

Вывести последовательность больших и маленьких букв - Pascal
Здравствуйте, помогите пожалуйста, третий день ломаю голову над задачей (только...

В заданной строке найти количество больших и маленьких согласных английских букв.
Всем привет. Я надеюсь кто нибудь мне поможет. Дело такое: pacal abc изучаю...

Подсчитать количества вхождений в последовательность и написать гистограмму
Считывает последовательность символов (0 – конец последовательности). ...

Множества: подсчитать отдельно количество больших и маленьких букв английского и русского алфавита в последовательности
Дана последовательность символов.Подсчитать отдельно количество больших и...

Подсчитать в строке количество вхождений букв r, k, t
Помогите решить задачу: Дана строка. Подсчитать в ней количество вхождений...

Дана строка, заканчивающаяся точкой. Подсчитать в ней количество вхождений букв r, k, t
Дана строка, заканчивающаяся точкой. Подсчитать в ней количество вхождений букв...

1
Joy
Эксперт Pascal/Delphi
2115 / 1155 / 1417
Регистрация: 29.08.2014
Сообщений: 4,218
25.04.2016, 17:41 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

без case:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  c:char;
  a:array[char] of integer;
  i:integer;
  b:boolean;
begin
  b:=false;
  writeln('введите последовательность(0-конец)');
  repeat
    read(c);
    if UpperCase(c) in ['A'..'Z','А'..'Я','Ё'] then inc(a[UpperCase(c)]);
  until c='0';
  foreach c in ['A'..'Z','А'..'Я','Ё'] do
    if a[c]>0 then begin
      b:=true;
      write(c,',',LowerCase(c),' ',a[c],' ');
      for i:=1 to a[c] do write('*');
      writeln;
    end;
    if not b then writeln('отсутствуют буквы в последовательности'); 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2016, 17:41
Привет! Вот еще темы с решениями:

2. Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность
Написал программу var a,c:array of integer; count,i,p,u: integer; begin...

Нарисовать гистограмму количества вхождений в последовательность: цифр 3, 7, букв К или к
Считывает последовательность символов (0 – конец последовательности)....

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

Подсчитать количество вхождений в файл
Дан текстовый файл f. Подсчитать количество вхождений в файл текста ‘ab’.


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

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

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