Определить какой процент слов в тексте начинается на букву

@barlog · Регистрация: 03.11.2009

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

программа : Определить какой процент слов в тексте начинается на букву ‘к’.
помогите решить....никак не получается((

@mamedovvms · 03.11.2009, 13:08

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
kol_k:=0;
kol:=0;
for i:=1 to length(s) do
 if (s[i] in ['а'..'я'])and(not(s[i-1] in ['а'..'я'])) then
  begin
   kol:=kol+1;
      if s[i]='к' then kol_k:=kol_k+1;
  end;
 
if kol>0 then
 writeln('Процентов ',kol_k*100/kol )
  else writeln('нет ни одного слова ');

@barlog · 03.11.2009, 13:25 **[ТС]**

Delphi
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
   S,kt,S1: string;
   i, j,A,B: integer;
   t: boolean;
   h:real;
   begin
     writeln('vvedite stroky');
     readln(S);
     i:=1;
     j:=0;
 
      while i<=length(S) do
     begin
        t:=false;
        while (S[i]<>' ') and (i<=length(S)) do
        begin
             t:=true;
             i:=i+1;
        end;
        if t then
        j:=j+1;
        i:=i+1;
     end;
     writeln('v ctrokekolichesvo slov=',j);
     readln;
     kt:='k';
     S:= S + ' ';
     A := 0;
     B := 0;
    while Pos(' ', S) > 0 do
begin
       S1 := Copy(S, 1, Pos(' ', S)-1);
   Delete(S, 1, Pos(' ', S));
       if (S1[1] = kt) and (B > 0) then
       begin
         Inc(A);
       end;
   Inc(B);
   end;
    h:=(a/j)*100;
 writeln('procent slov = ' , h);
 readln(h);
end.

А вот мое решение ,но почему то программа его не делает...(( а у вас оно какое-то немного непонятное...а можно поподробнее пожалуйста)))а то я почти ноль в этом)

@mamedovvms · 03.11.2009, 13:29

if (s[i] in ['а'..'я'])and(not(s[i-1] in ['а'..'я']))- если элемент буква, а предыдущий нет значит что это начало слова, тогда мы увеличиваем счетчик слов, а если слово еще и начинается на нужную нам букву то увеличиваем и второй счетчик

@barlog · 03.11.2009, 13:39 **[ТС]**

ваше решение в моей интерпретации...он неправильно считает....говорит таких слов нет...но они есть!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program j7;
var
s,s1,ch: string;
i,kol,kol_k:integer;
BEGIN
writeln('vvedite stroky');
     readln(S);
for i:=1 to length(s) do
 if (s[i] in ['а'..'я'])and(not(s[i-1] in ['а'..'я'])) then
  begin
   kol:=kol+1;
      if s[i]='к' then kol_k:=kol_k+1;
  end;
 
if kol>0 then
 writeln('Процентов ',kol_k*100/kol )
  else writeln('нет ни одного слова ');
  end.

Добавлено через 5 минут
а все ясно!!!я просто использовал английский алфавит!!!а программа на русский ориентирована!спасибо вам огромное!!!!
сейчас еще задачку подброшу!легкая коза....но че то неправильно делается)

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

@barlog 2 / 2 / 1 Регистрация: 03.11.2009 Сообщений: 227

	Определить какой процент слов в тексте начинается на букву 03.11.2009, 12:37. Показов 4449. Ответов 4 Метки нет (Все метки) программа : Определить какой процент слов в тексте начинается на букву ‘к’. помогите решить....никак не получается(( 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	03.11.2009, 13:29
	if (s[i] in ['а'..'я'])and(not(s[i-1] in ['а'..'я']))- если элемент буква, а предыдущий нет значит что это начало слова, тогда мы увеличиваем счетчик слов, а если слово еще и начинается на нужную нам букву то увеличиваем и второй счетчик 1