0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 3
1

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

26.02.2012, 01:19. Показов 1710. Ответов 4
Метки нет (Все метки)

Дана строка содержащая текст состоящий из слов. Указать процентное содержание сколько раз встречается тот или иной символ.
P.S. Пожалуйста, не надо функций и процедур... обычно... линейно... )

Вот кое-что набросал... а потом завис ><

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program vord;
uses crt;
var
i,j,s,y: integer;
x: real;
z:string;
a: array [1..200] of string;
b: array [1..200] of string;
begin
s:=0;
for i:=1 to 1 do
writeln ('vvedite predlogenie');
readln (a[i],b[j]);
y:=length(a[i]);
for i:=1 to y do
for j:=1 to y do
begin
if a[i]=b[j] then s:=s+1;
end;
x:=(s*100)/y ;
writeln (z,'=',x,'%'); {А как потом проверить оставшиеся символы?! ^^,}
readkey;
end.
Заранее благодарю!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2012, 01:19
Ответы с готовыми решениями:

Определить, сколько раз в заданном тексте встречается заданный символ
помогите пожалуйста написать программу &quot;Посчитать, сколько раз в заданном тексте встречается...

Подсчитайте, сколько раз в тексте встречается заданный символ.
Напишите пожалуйста программу по подсчёту сколько раз в тексте встречается заданный символ....

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

В заданной строке подсчитать, сколько раз встречается заданный символ
Разработать программу, которая в заданной строке подсчитывает, сколько раз встречается заданный...

4
Mobile Software Engineer
Эксперт С++
5365 / 1584 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
26.02.2012, 01:27 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от homezp@mail.ru Посмотреть сообщение
Дана строка содержащая текст состоящий из слов. Указать процентное содержание сколько раз встречается тот или иной символ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  Count, i: integer;
  Str: string;  
  Pers: real;
  Chr: char;
begin
  writeln('Введите текст: ');
  readln(Str);
  write('Символ: ');
  readln(Chr);
  for i:=1 to length(Str) do
    if Str[i] = Chr then inc(Count);
  Pers:=Count * 100 / length(Str);
  writeln('"', Chr, '"', ' составляет ', Pers:0:2, '% всего текста!');
end.
0
0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 3
26.02.2012, 01:37  [ТС] 3
Цитата Сообщение от Ev[G]eN Посмотреть сообщение
Pascal
1
2
  write('Символ: ');
  readln(Chr);
Ну надо не для конкретного символа, а процентное содержание всех символов в введённом тексте =_
0
Mobile Software Engineer
Эксперт С++
5365 / 1584 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
26.02.2012, 01:48 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от homezp@mail.ru Посмотреть сообщение
Ну надо не для конкретного символа, а процентное содержание всех символов в введённом тексте
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  arr: array[#0..#255] of integer;
  Str: string;
  Chr: char;
  Pers: real;
  i: byte;
begin
  writeln('Введите текст(латиница): ');
  readln(Str);
  for i:=1 to length(Str) do
    inc(arr[Str[i]]);
  for Chr:=#0 to #255 do
    if (arr[Chr] > 0) and (Chr > #32) then
    begin
      Pers:=arr[Chr] * 100 / length(Str);
      writeln('"', Chr, '" составляет ', Pers:0:2, '% всего текста!');
      Pers:=0;
    end;
end.
1
0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 3
26.02.2012, 01:51  [ТС] 5
Огромнейшее, человеческое - СПАСИБО!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.02.2012, 01:51
Помогаю со студенческими работами здесь

Сколько раз в заданном тексте встречается каждый символ
выяснить, сколько раз в заданном тексте встречается каждый символ.

Задан один отдельный символ. Определить, сколько раз встречается этот символ в каждой строке текстового файла
Есть программа, которая считывает количество повторяемых символов в текстовом файле, и показывает...

Определить, сколько раз в строке встречается символ 'A'
Программа, которая определит сколько раз встречается в строке символ 'A'; Помогите пожалуйста...

Определить, сколько раз в тексте встречается буква 'о'
С клавиатуры вводится текст из маленьких русских букв. Текст заканчивается точкой. Определить,...


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

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

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