Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
ShirkaPirka
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 10
1

Определить количество слов, начинающихся с гласных букв в последовательности

22.05.2015, 19:51. Просмотров 1056. Ответов 9
Метки нет (Все метки)

Вводится последовательность символов, конец ввода - точка. Определить количество слов начинающихся, с гласных букв в последовательности.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2015, 19:51
Ответы с готовыми решениями:

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

Найти количество слов, начинающихся с букв про
Дана строка s, содержащая менее чем 200 символов и представляющая собой набор...

В исходном файле подсчитать количество слов начинающихся с заданных букв
В исходном файле подсчитать количество слов начинающихся с букв ‘a’, ‘е’, ‘и’,...

Подсчитать количество слов, состоящих только из строчных букв, но начинающихся с большой буквы
Подсчитать количество слов, состоящих только из строчных букв, но начинающихся...

Определить количество слов начинающихся с буквы ''F''
Вводится последовательность символов определить количество слов начинающихся с...

9
ShirkaPirka
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 10
24.05.2015, 00:34  [ТС] 2
"Определить количество слов начинающихся, с гласных букв в последовательности" пожалуйста напишите код, как это сделать
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3879 / 2862 / 3638
Регистрация: 05.06.2014
Сообщений: 14,066
24.05.2015, 10:02 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

(С) Puporev
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
uses crt;
const gl=['A','a','E','e','I','i','O','o','U','u','Y','y'];
      rz=['.',',',' ','?','!','-'];{разделители, можно добавить}
var s,s1:string;
    col,i,j,k:byte;
begin
clrscr;
col:=0;
writeln('Введите строку:');
readln(s);
writeln('Слова на гласную латинскую букву:');
i:=1;k:=0;
while i<=length(s) do
if (s[i] in gl)and ((s[i-1] in rz)or(i=1)) then{если гласная, а перед ней разделитель, или она первая}
 begin
  k:=i;s1:='';
  while not(s[k] in rz)and(k<=length(s))do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  write(s1,' ');
  inc(col);
  i:=i+length(s1);{перепрыгиваем}
 end
else i:=i+1;{иначе идем вперед}
writeln;
  if k=0 then
    write('В строке нет слов на гласную латинскую')
  else
    write('Таких слов: ',col);
readln
end.
1
ShirkaPirka
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 10
25.05.2015, 18:07  [ТС] 4
Сделал так, только ругается (Unhandled Exception: sysytem.IndexOutOfRangeException: индекс находится вне границ массива)
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
37
38
39
40
41
42
Program p4;
uses crt;
const gl=['A','a','E','e','I','i','O','o','U','u','Y','y'];
      rz=[' '];{разделители, можно добавить}
var s,s1:string;
    c: char;
col,i,j,k:byte;
begin
clrscr;
col:=0;
writeln('Введите строку: ');
s := '';
read(c);
while c <> '.' do
begin
read(c);
s := s + c;
end;
writeln('Слова на гласную латинскую букву:');
i:=1;k:=0;
while i<=length(s) do
if (s[i] in gl)and ((s[i-1] in rz)or(i=1)) then{если гласная, а перед ней разделитель, или она первая}
 begin
  k:=i;s1:='';
 
  while not(s[k] in rz)and(k<=length(s))do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  write(s1,' ');
  inc(col);
  i:=i+length(s1);{перепрыгиваем}
 end
else i:=i+1;{иначе идем вперед}
writeln;
  if k=0 then
    write('В строке нет слов на гласную латинскую')
  else
    write('Таких слов: ',col);
readln
end.
Добавлено через 58 минут
Иногда считает, но не редко ругается

Добавлено через 50 минут
Спасибо вам ZX Spectrum-128

Добавлено через 17 часов 26 минут
Подскажите, в чем может быть проблема? Ругается (Unhandled Exception: sysytem.IndexOutOfRangeException: индекс находится вне границ массива)
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26115 / 17512 / 6946
Регистрация: 22.10.2011
Сообщений: 30,850
Записей в блоге: 6
25.05.2015, 18:30 5
В 22-ой строке поменяй условия местами:
Pascal
1
if (s[i] in gl)and ((i=1) or (s[i-1] in rz)) then // ...
, то есть, сначала проверяй, что буква первая, и только потом, если она не первая, пытайся обратиться к предыдущему символу. Короткая схема вычисления логических выражений, порядок имеет значение...
2
ShirkaPirka
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 10
25.05.2015, 22:13  [ТС] 6
Спасибо, та же ошибка теперь и в 26 строке, пробовал так же изменить на что выдает ошибку "команда and не применима к типам integer и boolean"
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3879 / 2862 / 3638
Регистрация: 05.06.2014
Сообщений: 14,066
25.05.2015, 23:00 7
Все, что между and, заключай в круглые скобки.
Точнее, снаружи.
То есть, так
(...) and (...)
1
ShirkaPirka
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 10
26.05.2015, 14:37  [ТС] 8
Много что перепробовал, так и не нашел выход. Ругается на 26 строку (Unhandled Exception: sysytem.IndexOutOfRangeException: индекс находится вне границ массива) раньше считала через раз, теперь вообще не считает
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
37
38
39
40
41
42
Program p4;
uses crt;
const gl=['A','a','E','e','I','i','O','o','U','u','Y','y'];
      rz=[' '];{разделители, можно добавить}
var s,s1:string;
    c: char;
col,i,j,k:byte;
begin
clrscr;
col:=0;
writeln('Введите строку: ');
s := '';
read(c);
while c <> '.' do
begin
read(c);
s := s + c;
end;
writeln('Слова на гласную латинскую букву:');
i:=1;k:=0;
while i<=length(s) do
if (s[i] in gl)and ((i=1) or (s[i-1] in rz)) then{если гласная, а перед ней разделитель, или она первая}
 begin
  k:=i;s1:='';
 
  while not(s[k] in rz)and(k<=length(s))do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  write(s1,' ');
  inc(col);
  i:=i+length(s1);{перепрыгиваем}
 end
else i:=i+1;{иначе идем вперед}
writeln;
  if k=0 then
    write('В строке нет слов на гласную латинскую')
  else
    write('Таких слов: ',col);
readln
end.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26115 / 17512 / 6946
Регистрация: 22.10.2011
Сообщений: 30,850
Записей в блоге: 6
26.05.2015, 19:06 9
Написал так:
Pascal
26
  while (k<=length(s)) and not(s[k] in rz) do {пока не разделитель и не конец строки}
, ни разу с ошибкой не вылетело. Всегда дает правильный ответ...
1
ShirkaPirka
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 10
26.05.2015, 21:01  [ТС] 10
У первого слова "съедает" первую букву, но это не страшно, спасибо)
0
26.05.2015, 21:01
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2015, 21:01

Определить количество слов, начинающихся с буквы “и”
Хоть что-нибудь, пожалуйста. 5. В заданном тексте слова разделены не менее,...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru