Люди, вот задача, заранее благодарен!(дана символьная строка...)

@tupak · Регистрация: 28.03.2009

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

Дана символьная строкаю Определить сколько в ней слов начинаються на одну и ту же букву. Спасибо всем заранее!

@yanyk1n · 28.03.2009, 17:55

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
27
28
29
30
31
32
33
34
35
36
program kkk;
uses crt;
const possible:set of char=['0'..'9','a'..'z','A'..'Z','_'];
var count,i,j:integer;
    f:boolean;
    st,buf:string;
    slova:array[1..100]of string;
    bukva:array[1..26]of integer;
begin
 clrscr;
 readln(st);
 count:=1;
 repeat
  if (st[1]=' ') or (length(st)=0) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  slova[count]:=buf;
  buf:='';
  inc(count);
  end;
 until (length(st)=0) and (length(buf)=0);
 
 for i:=1 to count-1 do
 begin
  inc(bukva[ord(upcase(slova[i][1]))-66]);
 end;
 
 for i:=1 to 26 do
 if bukva[i]>0 then writeln('Na bukvu ',chr(66+i),' - ',bukva[i],' slov(a)');
 readln;
end.

P.S. Работает только для слов, набранных транслитом!

@tupak · 28.03.2009, 17:57 **[ТС]**

спасибо огромное а то я парился седня весь день, отличный сайт)))

@yanyk1n · 28.03.2009, 17:59

Не забываем про кнопочку СПАСИБО))...

@tupak · 28.03.2009, 18:20 **[ТС]**

аж 2 раза нажал спс и все же причем там 66?)

@yanyk1n · 28.03.2009, 18:24

Просто номер в ascii символа 'A' (заглавная) - 67, а элементы массива bukva-[1..26]
(ord('A')=67)-66=1
...
(ord('Z')=92)-66=26

@tupak · 29.03.2009, 21:25 **[ТС]**

я извиняюсь конешно но я невнимательно вчера прогу проверил если вводить слова то слова на буквы A и B он не подсчитывает... не знаю в чем проблема.

Добавлено через 2 минуты 28 секунд
то, из чего я понял, про ваше вчерашнее объяснение решил и подумал вместо 66 написать 64 и он подсчитал и A и B прошу обратить на это внимание и дать ответ заранее спасибо)!

@Puporev · 29.03.2009, 21:32

chr(66+i),

Начинается с символа с номером 67, т.е. с буквы С.

подумал вместо 66 написать 64 и он подсчитал

И правильно сделали, сейчас начинается с А.

@tupak · 29.03.2009, 21:44 **[ТС]**

ну все равно спасибо сам бы не решил нас тупо этоиу не учили но потихоньку начинаю разбираться вот нашел таблицу кодов
Буквы от A до Z и цифры от 0 до 9
Клавиша Код
A_________65
B_________66
C_________67
D_________68
E_________69
F_________70
G_________71
H_________72
I__________73
J__________74
K_________75
L__________76
M__________77
N_________78
O_________79
P_________80
Q_________81
R_________82
S_________83
T_________84
U_________85
V_________86
W_________87
X_________88
Y ________89
Z_________90

@Puporev · 29.03.2009, 21:47

https://www.cyberforum.ru/post85530.html

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@tupak 0 / 0 / 0 Регистрация: 28.03.2009 Сообщений: 8

	Люди, вот задача, заранее благодарен!(дана символьная строка...) 28.03.2009, 17:48. Показов 966. Ответов 9 Метки нет (Все метки) Дана символьная строкаю Определить сколько в ней слов начинаються на одну и ту же букву. Спасибо всем заранее! 0

@tupak 0 / 0 / 0 Регистрация: 28.03.2009 Сообщений: 8
	28.03.2009, 17:57 [ТС]
	спасибо огромное а то я парился седня весь день, отличный сайт))) 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	28.03.2009, 17:59
	Не забываем про кнопочку СПАСИБО))... 0

@tupak 0 / 0 / 0 Регистрация: 28.03.2009 Сообщений: 8
	28.03.2009, 18:20 [ТС]
	аж 2 раза нажал спс и все же причем там 66?) 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	28.03.2009, 18:24
	Просто номер в ascii символа 'A' (заглавная) - 67, а элементы массива bukva-[1..26] (ord('A')=67)-66=1 ... (ord('Z')=92)-66=26 0

@tupak 0 / 0 / 0 Регистрация: 28.03.2009 Сообщений: 8
	29.03.2009, 21:25 [ТС]
	я извиняюсь конешно но я невнимательно вчера прогу проверил если вводить слова то слова на буквы A и B он не подсчитывает... не знаю в чем проблема. Добавлено через 2 минуты 28 секунд то, из чего я понял, про ваше вчерашнее объяснение решил и подумал вместо 66 написать 64 и он подсчитал и A и B прошу обратить на это внимание и дать ответ заранее спасибо)! 0

@tupak 0 / 0 / 0 Регистрация: 28.03.2009 Сообщений: 8
	29.03.2009, 21:44 [ТС]
	ну все равно спасибо сам бы не решил нас тупо этоиу не учили но потихоньку начинаю разбираться вот нашел таблицу кодов Буквы от A до Z и цифры от 0 до 9 Клавиша Код A_________65 B_________66 C_________67 D_________68 E_________69 F_________70 G_________71 H_________72 I__________73 J__________74 K_________75 L__________76 M__________77 N_________78 O_________79 P_________80 Q_________81 R_________82 S_________83 T_________84 U_________85 V_________86 W_________87 X_________88 Y ________89 Z_________90 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	29.03.2009, 21:47
	https://www.cyberforum.ru/post85530.html 0