0 / 0 / 0
Регистрация: 23.11.2016
Сообщений: 18
1

Вывести все буквы которые есть во всех словах

31.01.2017, 04:37. Показов 2690. Ответов 1
Метки нет (Все метки)

Решите пожалуйста задачу на строки. Если можно можете еще объяснить что сделали.
Вывести все буквы которые есть во всех словах.
К примеру вводим слова: папа, мама
Выводить должен: п,а,м
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.01.2017, 04:37
Ответы с готовыми решениями:

Найти и вывести все шипящие буквы,которые встретились во всех словах и количество слов.
Найти и вывести все шипящие буквы,которые встретились во всех словах и количество слов. срочно...

Найти и вывести все гласные буквы ( без повторений ), которые встретились и словах и количество слов
Найти и вывести все гласные буквы ( без повторений ), которые встретились и словах и количество...

В массиве найти и вывести все глухие согласные буквы (без повторений), которые встретились в 2-х самых коротких словах
Вот начал писать... но хватило только на начало... Да и не пойму как мне найти 2 самых коротких...

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

1
Модератор
9319 / 4696 / 3158
Регистрация: 17.08.2012
Сообщений: 14,767
31.01.2017, 05:03 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Если точно по заданию, то как-то так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var s, b: string;
    c: char;
begin
  writeln('Введите строку:'); {вводим строку}
  readln(s);
  b := ''; {пока строка букв пустая}
  while length(s) > 0 do {потрошим строку}
    begin
      c := s[1]; {запоминаем первый символ}
      while pos(c, s) > 0 do delete(s, pos(c, s), 1); {и удаляем все символы, равные первому}
      if c in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'п', 'р'..'я', 'Ё', 'ё'] then b := b + c + ',' {если символ - буква, добавляем букву и запятую к строке букв}
    end;
  if length(b) > 0 {если длина строки букв больше 0}
    then begin
      delete(b, length(b), 1); {убираем последнюю запятую}
      writeln('Буквы, которые содержатся в тексте: ', b) {печатаем результат}
    end
    else writeln('Текст не содержит букв') {иначе выдаём сообщение, что букв нет}
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.01.2017, 05:03
Помогаю со студенческими работами здесь

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

Дан текстовый файл, содержащий строки, во всех словах удалить все предыдущие вхождения последней буквы
Дан текстовый файл, содержащий строки, во всех словах удалить все предыдущие вхождения последней...

Удалить во всех словах буквы, расположенные по алфавиту после буквы h
Дана последовательность символов, состоящая из слов. Удалить во всех словах буквы, расположенные по...

Переписать текст из файла в новый файл, заменив прописные буквы заглавными в словах, где есть одинаковые буквы
Здравствуйте ! Файл input.dat содержит несколько строк текста. Слова в тексте могут разделяться...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru