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

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

13.03.2010, 18:11. Показов 17046. Ответов 10
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите пожалуйста написать программу "Посчитать, сколько раз в заданном тексте встречается заданный символ".
0
13.03.2010, 18:11
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
13.03.2010, 18:11
Ответы с готовыми решениями:

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

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

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

10
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
13.03.2010, 18:20 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s:string;
     zs:char;
     i,k:byte;
begin
writeln('Text:');
readln(s);
write('Simvol zs=');
readln(zs);
k:=0;
for i:=1 to length(s) do
if s[i]= zs then k:=k+1;
write(k,' raz');
readln
end.
1
3 / 3 / 1
Регистрация: 12.03.2010
Сообщений: 50
13.03.2010, 18:27 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program p1;
uses crt;
var s,t:string;
    i,j:integer;
Begin
writeln('BBEDITE Ctroky ');
readln(s);
writeln('BBedite CimBol ');
readln(t);
j:=0;
for i:=0 to length(s) do
 begin
  if s[i]=t then j:=j+1;
 end;
writeln('Cimvolov ',t,'=',j);
readkey;
End.
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
13.03.2010, 18:32 4
Цитата Сообщение от Shadow1308 Посмотреть сообщение
for i:=0 to length(s) do
Shadow1308, А Вы никогда не слышали что содержится в нулевой ячейке строки? И зачем Вы ее проверяете на символ?
0
3 / 3 / 1
Регистрация: 12.03.2010
Сообщений: 50
13.03.2010, 21:22 5
Извиняйте. Мой косяк =(
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
13.03.2010, 21:32 6
Я бы считал так
Pascal
1
2
3
4
5
6
7
function F(s: string; c: char): byte;
begin
  if Pos(c, s) = 0 then
    F := 0
  else
    F := 1 + F(Copy(s, Pos(c, s) + 1, Length(s)), c)
end;
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
13.03.2010, 21:47 7
Inadequate, А ты уверен что рекурсия всегда уместна и полезна, даже если нужно посчитать 2х2?
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
13.03.2010, 22:12 8
Puporev, я уверен, что она будет работать быстрее твоего варианта, так как ты перебираешь все символы, даже если среди них нет нужного.
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
13.03.2010, 22:14 9
Цитата Сообщение от Inadequate Посмотреть сообщение
if Pos(c, s) = 0 then
А как ты думаешь, что делает эта функция? Перебирает все символы строки, пока не убедится что нужного символа в ней нет.
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
13.03.2010, 22:28 10
Функция Length в твоем варианте будет вычисляться на каждом шаге цикла и это никак не лучше. Но тут дело даже не в этом, а в том, что через pos, по-моему мнению, в данном случае будет лучше.
0
3 / 3 / 0
Регистрация: 13.03.2010
Сообщений: 78
15.03.2010, 21:03  [ТС] 11
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program Symbol;
   USES CRT;
  var t:string;
  k,i:integer;
  Begin
    writeln('Vvedite text:');
    read(t);
    k:=0;
    for i:=1 to length(t) do
     Begin
       If t[i]='a'
       then k:=k+1;
       end;
       writeln(' Simvol a vstrechaetsa ' ,k, ' raz ');
       readkey;
       end.
Добавлено через 19 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program Symbol;
   USES CRT;
  var t:string;
  k,i:integer;
  Begin
    writeln('Vvedite text:');
    read(t);
    k:=0;
    for i:=1 to length(t) do
     Begin
       If t[i]='a'
       then k:=k+1;
       end;
       writeln(' Simvol a vstrechaetsa ' ,k, ' raz ');
       readkey;
       end.
0
15.03.2010, 21:03
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.03.2010, 21:03
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
Манипуляция данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
Как Node.js устроен изнутри
Wired 17.02.2025
Node. js коренным образом изменил подход к веб-разработке, позволив использовать JavaScript не только в браузере, но и на стороне сервера. Созданный в 2009 году Райаном Далем, Node. js представляет. . .
Как обновить Node.js в Windows
Wired 17.02.2025
Думаю, многие разработчики сталкивались с ситуацией, когда устаревшая версия Node. js становилась источником проблем - от несовместимости с новыми пакетами до уязвимостей в безопасности. Особенно это. . .
Как обновить Node.js в MacOS
Wired 17.02.2025
В Node. js существует несколько подходов к обновлению, каждый из которых имеет свои преимущества и особенности применения. Выбор конкретного метода зависит от ваших потребностей - будь то. . .
Как обновить Node.js в Linux
Wired 17.02.2025
Обновление Node. js может показаться сложной задачей, особенно если у вас несколько проектов с разными зависимостями. Однако существует несколько надежных способов обновления, подходящих для разных. . .
[golang] 134. Gas Station
alhaos 17.02.2025
Тут нам даны два целочисленных слайса gas и cost, индексы массива представляют собой заправочные станции. а элементы gas это количество топлива на такой станции, cost это количество топлива. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru