Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
3 / 7 / 5
Регистрация: 18.10.2014
Сообщений: 177
1

Напечатать все гласные буквы, которые входят в каждое слово

06.02.2015, 13:18. Просмотров 2747. Ответов 3
Метки нет (Все метки)


Дан текст, состоящий из строчных русских букв. Напечатать все гласные буквы, которые входят в каждое слово. Если их нет, то выдать соответствующее сообщение.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
n,a:set of char;
s:string;
f,i,k,j:integer;
begin
a:=['а','и','у','е','о','ы','я']; 
readln(s);
f:=length(s);
for i:=1 to length(s) do
if s[i] in a then 
begin 
for j:=1 to length(s) do  
if s[i]=s[j] then k:=k+1;
if k>=10 then n:=n+s[i];
end;
writeln(n);
end.
Выдает ошибку " Нельзя преобразовать тип char к set of char" что делать?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.02.2015, 13:18
Ответы с готовыми решениями:

Напечатать в алфавитном порядке: все гласные буквы, которые входят в каждое слово
Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая,...

Напечатать в алфавитном порядке: все гласные буквы, которые входят в каждое слово
Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая,...

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

Напечатать в алфавитном порядке: все согласные буквы, которые входят в каждое четное слово
Как сделать разделение строки и запись слов в отдельный элемент массива?

3
Модератор
62918 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,750
06.02.2015, 14:17 2
Лучший ответ Сообщение было отмечено _Chaffee как решение

Решение

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

Добавлено через 49 минут
Например так.
Слова в тексте записаны через пробелы.
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
const gl=['а','и','у','е','о','ы','я'];
var n,a:set of char;
    s,s1:string;
    f,i,j:integer;
begin
a:=gl;
readln(s);
s:=' '+s;
f:=length(s);
i:=2;
while i<=f do
if(s[i]<>' ')and(s[i-1]=' ') then
 begin
  s1:='';
  j:=i;
  while(j<=f)and(s[j]<>' ') do
   begin
    s1+=s[j];
    j+=1;
   end;
  n:=[];
  for var k:=1 to length(s1) do
  if s1[k] in gl then n+=[s1[k]];
  a*=n;
  i+=length(s1);
 end
else i+=1;
if a=[] then write('Нет малых гласных букв, входящих в каждое слово')
else
 begin
  writeln('Малые гласные буквы, входящие в каждое слово');
  foreach c:char in a do
  write(c,' ');
 end 
end.
0
3 / 7 / 5
Регистрация: 18.10.2014
Сообщений: 177
06.02.2015, 18:33  [ТС] 3
Спасибо большое
0
Модератор
8399 / 4152 / 2872
Регистрация: 17.08.2012
Сообщений: 13,235
09.02.2015, 21:21 4
Цитата Сообщение от _Chaffee Посмотреть сообщение
Дан текст, состоящий из строчных русских букв. Напечатать все гласные буквы
Не учтены гласные буквы "ё", "э", "ю". Добавьте во множество.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2015, 21:21

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

Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят в каждое нечетное слово и не входя
Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят в каждое нечетное слово...

Напечатать в алфавитном порядке все согласные буквы которые не входят ни в одно слово
дана недопустимая последовательность слов из строчных русских букв между соседними...

Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят в слово
Дана непустая последовательность из строчных русских букв, за последним символом-точка. Напечатать...

Напечатать в порядке, обратном алфавитному, все согласные буквы, которые не входят в заданное слово
С клавиатуры вводится слово. Напечатать в порядке, обратном алфавитному, все согласные буквы,...


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

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

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