Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
hardiking
0 / 0 / 0
Регистрация: 07.10.2015
Сообщений: 29
1

Вывести все согласные, которых нет ни в одном слове предложения

08.01.2016, 16:51. Просмотров 897. Ответов 5
Метки нет (Все метки)

Помогите пожалуйста а то у меня не получается.
Задание: Дано предложение. Вывести все согласные, которых нет ни в одном слове.

Вот есть подобная задача, как же мне сделать так чтоб она производила такие действия, но со строкой введённой с клавиатуры?

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
uses crt;
//множество всех согласных букв русского алфавита
const sgl=['Б','б','В','в','Г','г','Д','д','Ж','ж','З','з','Й','й','К','к',
           'Л','л','М','м','П','п','Р','р','С','с','Т','т','Ф','ф','Х','х',
           'Ц','ц','Ч','ч','Ш','ш','Щ','щ'];
var f:text;
    c:char;
    m:set of char;
begin
assign(f,'text.txt');
reset(f);
m:=[];//множество согласных, которые ксть в файле
while not eof(f) do
read(f,c);
if c in sgl then m:=m+[c];
close(f);
writeln('Согласные буквы, которых нет ни в одном слове:');
m:=sgl-m;//вычитаем из полного множества, те что есть
if m=[] then write('Таких букв нет')
else
 begin
  for c:='Б' to 'щ' do
  if c in m then write(c);
 end;
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2016, 16:51
Ответы с готовыми решениями:

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

Дан текстовый файл. Вывести все согласные, которых нет ни в одном слове
а) Дан текстовый файл. Вывести все согласные, которых нет ни в одном слове. б) Дан файл...

С клавиатуры вводится текст. Признак конца ввода - точка. Вывести все согласные, которых нет ни в одном слове
С клавиатуры вводится текст. Признак конца ввода — точка. Вывести все со- гласные, которых нет ни...

В самом коротком слове все согласные буквы заменить буквой А
Создать программу заданной обработки массива слов.В процессе обработки использовать множественных...

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

5
Puporev
Модератор
57083 / 43584 / 30121
Регистрация: 18.05.2008
Сообщений: 103,904
08.01.2016, 16:58 2
Цитата Сообщение от hardiking Посмотреть сообщение
Вывести все согласные, которых нет ни в одном слове.
Раз нет ни в одном слове, значит вообще нет в строке. Это вообще детская задача.
0
hardiking
0 / 0 / 0
Регистрация: 07.10.2015
Сообщений: 29
08.01.2016, 17:06  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Раз нет ни в одном слове, значит вообще нет в строке. Это вообще детская задача.
не могли бы вы написать эту детскую задачу? если вам не трудно.. я не пойму именно как оформить её..
0
Puporev
Модератор
57083 / 43584 / 30121
Регистрация: 18.05.2008
Сообщений: 103,904
08.01.2016, 17:23 4
Цитата Сообщение от hardiking Посмотреть сообщение
я не пойму именно как оформить её..
Так у Вас пример есть. Из принципа писать не буду.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4625 / 2909 / 2256
Регистрация: 22.11.2013
Сообщений: 8,128
08.01.2016, 17:49 5
Лучший ответ Сообщение было отмечено hardiking как решение

Решение

Pascal
1
2
3
4
ReadLn(s);
for i:=1 to Length(s) do Include(m,s[i]);
m:=sgl-m;
for c:='А' to 'я' do if с in m then Write(c); WriteLn;
Добавлено через 6 минут
А с учетом FPC:
Pascal
4
for c in m do Write(c); WriteLn;
1
hardiking
0 / 0 / 0
Регистрация: 07.10.2015
Сообщений: 29
08.01.2016, 21:16  [ТС] 6
Цитата Сообщение от bormant Посмотреть сообщение
Pascal
1
2
3
4
ReadLn(s);
for i:=1 to Length(s) do Include(m,s[i]);
m:=sgl-m;
for c:='А' to 'я' do if с in m then Write(c); WriteLn;
Большое спасибо.
0
08.01.2016, 21:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2016, 21:16

Вывести все согласные буквы предложения.
Нужно сделать программу по заданию : Вывести все согласные буквы предложения. С помощью множества...

Вывести все согласные буквы, содержащиеся в слове наибольшей длины
Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). Вывести все...

Вывести из файла предложения, в которых нет запятых
Задание: вывести из файла предложения, в котором нет запятых Выводится ошибка: Невозможно найти...


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

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

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