строки Опции

[VIK@]

Посмотрите, пожалуйста, какие ошибки, а то чего-то не получается
Определить каков процент слов в тексте начинается на
букву К. Слова разделены пробелами.

var
a,k: string [100];

 i,b,m,c: integer;
 x: real;
 begin 
 writeln ('Введите текст:');
 readln (S);
 cut:=0
 S:=' ' + S;
 b:=length (S);
 for i:=1 to b do
 begin 
 k:= ' ' + 'k';
 if copy (a,i,2)=k then m:=m+1;
 end;
 writeln ('количество k=',m)
 writeln('x=', X:4:3);
 end.

Заранее ОГРОМНОЕ спасибо

[КМА]

var
a: string [100];

 i,m: integer;
 x: real;
 begin 
 writeln ('Введите текст:');
 readln (S);
 S:=' ' + S;
 for i:=1 to length (s) do
  if (s[i]=' ' and s[i]=k) 
     then m:=m+1;
 writeln ('количество k=',m);
 x:=(m/length (s))*100; 
 writeln('%=', X:4:1);
 end.

Вот , вроде должна пойти.

[volvo]

А почему делим на длину строки, а не на общее число слов в строке? Что, если у меня будет строка:

Код

"kuku                "

(16 пробелов), то процент будет равен 5%? Вообще-то тут 100% должно получиться...

[Гость]

Мда, ты прав, тогда может завести еще одну переменную, которая будет сообщать о количестве слов???
Например
if s[i]=' ' and s[i+1]<>' '
then inc (summWord);

[Shura]

Да и вообще, выложенная программа не скомпилируется))
А цикл надо начинать с двойки, а не с единицы, т.к. первый символ строки мы сделали пробелом.
Вот код:

Код

Var
s: String;
i,w,k: Byte;

Begin
WriteLn('Enter string: ');
ReadLn(s);

k:=0;
w:=0;
s:=' '+s;

for i:=2 to length(s)
do if (s[i-1] = ' ')and(s[i] <> ' ')
    then begin
      Inc(w);
       if s[i] = 'k'
       then Inc(k)
     end;

Write((k*100/w):0:1, ' percents.');
ReadLn
End.

[VIK@]

СПАСИБО ОГРОМНОЕ!!!!!!!!! Если не трудно, подскажите, пожалуйста, как быть со второй задачей..
Нужно определить сколько слов в тексте содержат один слог, два слога, три слога и т.д.

[VIK@]

Ну помогите, пожалуйста, завтра зачет, а у меня вообще никаких идей как решается задача.. ((

[VIK@]

На вас последняя надежда... откликнитесь, pls!!!!

[klem4]

Тут смотря что понимается под слогом .. какие-то конкретные буквосочетания ? Сочетания одной гласной и одной согласной ? Ты бы информации дала побольше

[Shura]

Да, это конечно непонятно, что собственно считается слогом. В русском языке в слове столько слогов, сколько гласных. Но что получается - слово без гласных содержит 0 слогов?)))) Вобщем вот код по такому правилу. Думаю несложно будет если что изменить. Слова без гласных я сделал, как один слог.

Код

Var
a: Array [0..130] of Byte; {i-й элемент массива содержит кол-во слов, которые состоят из i слогов.}
s,w: String; {s - вся строка, w - очередное слово}
i,n: Byte;
f: Boolean; {прибавлять ли к w очередную букву}

Function Slogs(s: String): Byte; {Возвращает кол-во слогов}
var
  i,p: Byte;
begin
  p:=0;
  for i:=1 to length(s)
  do if s[i] in ['e','y','u','i','o','a']
     then Inc(p);
   if p = 0
   then p:=1;  
  Slogs:=p
end; {Slogs}

Begin
Write('Enter string: ');
ReadLn(s);
s:=' ' + s;

w:='';
f:=false;
for i:=2 to length(s)
do begin
     if (s[i] <> ' ')and(s[i-1] = ' ')
     then f:=true;
     if ((s[i] = ' ')or(i = length(s)))and(f)
     then begin
       f:=false;
       Inc(a[slogs(w)]);
       w:=''
      end;
      if f
      then w:=w+s[i]
    end;

for i:=0 to 130
do if a[i] <> 0
    then WriteLn('Slov, soderzhaschih ', i, ' slogov: ', a[i], '.');

ReadLn
End.

Сообщение отредактировано: Shura - 25.12.2005 22:30

[VIK@]

спасибо.. а разве есть в русском языке слова без гласных?

[Shura]

Та в русском языке полно таких слов!!! )) Тебе для русского надо? Ну тогда все в порядке - просто поменяй в функции множество латинских на множество русских гласных, и готово. А в английском языке по-другому слога считаются... Ну, я думаю преподу сдать - это подойдет.

[VIK@]

Заинтересовал... какие например?

[volvo]

Ну тогда все в порядке

Еще пример привести?

[Гость]

Все, разобралась... Спасибо!!!

[VIK@]

Небольшой вопросик ? А почему массив от 0 до 130?? И что мне нужно изменить, чтобы слова без гласных не считались как один слог???

[VIK@]

Begin
Write('Enter string: ');
ReadLn(s);
s:=' ' + s;

w:='';
f:=false;
for i:=2 to length(s)
do begin
     if (s[i] <> ' ')and(s[i-1] = ' ')
     then f:=true;
     if ((s[i] = ' ')or(i = length(s)))and(f)
     then begin
       f:=false;
       Inc(a[slogs(w)]);
       w:=''
      end;
      if f

что писать тут? что-то пропущено..

      then w:=w+s[i]
    end;

for i:=0 to 130
do if a[i] <> 0
    then WriteLn('Slov, soderzhaschih ', i, ' slogov: ', a[i], '.');

ReadLn
End.

[volvo]

что-то пропущено..

Ничего тут не пропущено... F это Boolean, все в порядке... Ты бы запустила программу сначала, потом - критикуй...

чтобы слова без гласных не считались как один слог

Function Slogs(s: String): Byte; {Возвращает кол-во слогов}
var i, p: Byte;
begin
  p:=0;
  for i:=1 to length(s)
  do if s[i] in ['e','y','u','i','o','a']
     then Inc(p);
   { if p = 0 then p:=1; } { <--- Убрать это !!! }
  Slogs:=p
end; {Slogs}

[VIK@]

Пробовала - не работает.. ((((

[VIK@]

А почему массив от 0 до 130??