Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
blocker147
0 / 0 / 1
Регистрация: 14.12.2015
Сообщений: 160
#1

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

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

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

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

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

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

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

2. Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность - Pascal
Написал программу var a,c:array of integer; count,i,p,u: integer; begin for i:=1 to 10 do begin read(p); a:=p; end;

Подсчитать число вхождений буквы f в первые три группы букв - Pascal
Дан текст, хранящийся в текстовом файле f, каждый символ которого может быть малой буквой, цифрой или одним из знаков ‘+’, ‘-‘, ‘*’....

1
Joy
Эксперт Pascal/Delphi
2075 / 1115 / 838
Регистрация: 29.08.2014
Сообщений: 4,059
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
Привет! Вот еще темы с ответами:

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

Подсчитать количество вхождений символа в строку - Pascal
Нарож, помогите мне сделать эту задачу на завтра в Pascal-е, очень нужно "Данная строка S и символ c. Подсчитать в нем количество вхождений...

Подсчитать количество вхождений подстроки в строке - Pascal
Вот функция function CntRecurrences(substr, str: string): integer; var cnt, p: integer; begin cnt := 0; while str <> ''...

Определить количество вхождений каждого числа в последовательность - Pascal
Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность.Длину последовательности задать...


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

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

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