Поиск одинаковых букв.(строки)

@нубик · Регистрация: 15.07.2009

Студворк — интернет-сервис помощи студентам

Доброе время суток. Может кто объяснит в кратце каких способом реализуется алгоритм. Допустим,
список из 6 слов. doska john dom stol dym proc monitor найти сколько букв одинаковых?

@Wassago · 11.12.2009, 00:21

т.е. d - 3
o - 6
так тебе надо?

@нубик · 11.12.2009, 00:30 **[ТС]**

Моя ошибка спешил и не так написал. Сколько первых букв одинаковых. Хотя твой вариант тоже хорош, послежней.

@pikusfikus · 11.12.2009, 00:44

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
s:string;
i,n,count:integer;
k:char;
m:set of char;
begin
m:=['a'..'z','A'..'Z','А','Я','а'..'я'];
writeln('vvedit stroky');
readln(s);
for i:=1 to length(s) do
if s[i] in m then begin
k:=s[i];
break;
end;
count:=0;
for i:=1 to length(s) do
if s[i]=k then inc(count);
writeln('litera ',k,' vstrechaetsa ',count,' raz ');
end.

эта прога если надо количество первой встречающийся буквы

@Inadequate · 11.12.2009, 00:46

Сообщение от нубик

найти сколько букв одинаковых

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  s:string;
  i:char;
  c,j:integer;
begin
  readln(s);
  for i:='a' to 'z' do
  begin
    c:=0;
    for j:=1 to length(s) do
      if (s[j]=i) or (UpCase(s[j])=UpCase(i)) then
        inc(c);
    writeln(UpCase(i),' - ',c)
  end;
end.

Добавлено через 56 секунд

Моя ошибка спешил и не так написал. Сколько первых букв одинаковых

это очень серьезная ошибка... в таком случае моё решение это то о чем писал Wassago

@pikusfikus · 11.12.2009, 00:48

Inadequate,

объясни ,пожалуйста ,функцию upcase )

@Inadequate · 11.12.2009, 01:01

pikusfikus, ну во-первых я всё таки с Вами на "Вы", так как на "ты" мы кажется не переходили.
А во-вторых вот Вам копипаст из справки

UpCase(c) функция c - char char возвращает символ c, преобразованный к верхнему регистру
LowCase(c) функция c - char char возвращает символ c, преобразованный к нижнему регистру
UpperCase(s) функция s - string string возвращает строку s, преобразованную к верхнему регистру
LowerCase(s) функция s - string string возвращает строку s, преобразованную к нижнему регистру

Дополню: данные функции в Turbo Pascal работают только для латиницы, т.е. для русских букв надо будет действовать через ord. В Pascal ABC данные функции работают одинаково хорошо как для русских так и для латиницы. В остальных не знаю(не работал), но думаю что во Free Pascal данные функции будут работать точно также как в ABC. Вот на всякий случай и про ord

Ord(x) функция x - порядкового типа integer возвращает номер значения порядкового типа

@pikusfikus · 11.12.2009, 01:03

Сообщение от Inadequate

pikusfikus, ну во-первых я вск таки с Вами на "Вы", так как на "ты" мы кажется не переходили.
А во-вторых вот Вам копипаст из справки

Извините,просто я писал на быструю руку,и недосмотрел,буду внимательней)

а за объяснения спасибо большое Вам .

@Inadequate · 11.12.2009, 01:05

pikusfikus, не за что. Учитесь, это весьма похвально, что Вы пытаетесь разобраться, а не тупо списываете.
На будущее: половина ответов находится в справке. Не ленитесь туда заглядывать.

@pikusfikus · 11.12.2009, 01:08

еще раз спасибо Вам.Век живи ,век учись (с)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@нубик 0 / 0 / 0 Регистрация: 15.07.2009 Сообщений: 7

	Поиск одинаковых букв.(строки) 11.12.2009, 00:00. Показов 12513. Ответов 9 Метки нет (Все метки) Доброе время суток. Может кто объяснит в кратце каких способом реализуется алгоритм. Допустим, список из 6 слов. doska john dom stol dym proc monitor найти сколько букв одинаковых? 0

@Wassago localhost 58 / 58 / 9 Регистрация: 02.09.2009 Сообщений: 170
	11.12.2009, 00:21
	т.е. d - 3 o - 6 так тебе надо? 0

@нубик 0 / 0 / 0 Регистрация: 15.07.2009 Сообщений: 7
	11.12.2009, 00:30 [ТС]
	Моя ошибка спешил и не так написал. Сколько первых букв одинаковых. Хотя твой вариант тоже хорош, послежней. 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	11.12.2009, 00:48
	Inadequate, объясни ,пожалуйста ,функцию upcase ) 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	11.12.2009, 01:05
	pikusfikus, не за что. Учитесь, это весьма похвально, что Вы пытаетесь разобраться, а не тупо списываете. На будущее: половина ответов находится в справке. Не ленитесь туда заглядывать. 2

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	11.12.2009, 01:08
	еще раз спасибо Вам.Век живи ,век учись (с) 0