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

Провести частотный анализ текста: посчитать, сколько различных символов встречается в данном тексте

07.12.2014, 23:15. Просмотров 618. Ответов 1
Метки нет (Все метки)

4.19. Файл содержит информацию в виде символьных строк произвольной длины. Провести частотный анализ текста: посчитать, сколько различных символов встречается в данном тексте. В новый файл записать информацию в виде гистограммы: символ + количество *, равное числу этих символов в тексте.
Пример:
А ********************** (символ ‘А’ встречается в тексте 22 раза)
В ************ (символ ‘В’ встречается в тексте 12 раз)
Х ******* (символ ‘Х’ встречается в тексте 7 раз)
{ *** (символ ‘{‘ встречается в тексте 3 раза)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.12.2014, 23:15
Ответы с готовыми решениями:

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

Провести его частотный анализ текста
2)Дан текст. Преобразовать его, записав его слова с заглавных букв и провести...

Провести частотный анализ текста файла
С текстовыми файлами еще не работал...прошу помочь в написании программы......

Провести частотный анализ файла
Оч прошу! Суть проги: Создать файл, содержащий текст на инглише, заглавными...

Сколько различных символов встречается в строке
Определяет,сколько различных символов встречается в строке?

1
Cyborg Drone
Модератор
5398 / 3207 / 2450
Регистрация: 17.08.2012
Сообщений: 10,274
07.12.2014, 23:43 2
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
var f: text;
    i, j: integer;
    x: array [0..255] of integer;
    s: string;
 
begin
  assign(f, 'c:\input.txt');
  reset(f);
  for i := 0 to 255 do x[i] := 0;
  while not eof(f) do
    begin
      readln(f, s);
      for i := 1 to length(s) do inc(x[byte(s[i])])
    end;
  close(f);
  assign(f, 'c:\output.txt');
  rewrite(f);
  for i := 0 to 255 do
    if x[i] > 0 then
      begin
        write(f, char(i), ' ');
        for j := 1 to x[i] do write(f, '*');
        writeln(f)
      end;
  close(f)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.12.2014, 23:43

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

Для каждого символа созданного текста указать, сколько раз он встречается в тексте.
мальчики,помогите,срочно! Для каждого символа созданного текста указать,...

Частотный анализ текста
Добрый день! Помогите решить данную задачу. В исходном текстовом файле...


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

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

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