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

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

02.11.2015, 23:11. Показов 1428. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1. Дана последовательность слов. Напечатать те слова последовательности, отличные от последнего слова и удовлетворяют такое свойство – слово состоит только из гласных букв.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.11.2015, 23:11
Ответы с готовыми решениями:

Напечатать слова, отличные от последнего слова, в которых наибольшее количество упорядоченных букв
№ 19 п.1. - Напечатать те слова, отличные от последнего слова, в которых наибольшее количество...

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

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

Напечатать те слова последовательности, которые отличны от последнего слова и каждая буква входит в слово не менее двух раз
Прошу помощи с написанием программы без использования функций и записей. Задача такая: Дана...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32816 / 21154 / 8147
Регистрация: 22.10.2011
Сообщений: 36,413
Записей в блоге: 8
03.11.2015, 12:10 2
Лучший ответ Сообщение было отмечено ВладА96 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses strutils;
 
const
  rz=[' ','.',',',';',':','?','!']; // разделители
  vowels = ['a','e','o', 'i', 'u']; // гласные, можно поменять на кириллицу
  cons = ['a' .. 'z'] - vowels; // согласные (те, которые не являются гласными)
 
var
  s, curr, last : string;
  i : integer;
begin
  // readln(s);
  s := 'aaa test ter eeee eaeuo aaa';
  last := ExtractWord(WordCount(s, rz), s, rz); // последнее слово
  for i := 1 to WordCount(s, rz) - 1 do
  begin
    curr := ExtractWord(i, s, rz);
    if (curr <> last) and (PosSet(cons, curr) = 0) then writeln(curr);
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.11.2015, 12:10
Помогаю со студенческими работами здесь

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

Напечатать все слова, отличные от последнего слова, предварительно преобразовав их по заданному правилу
Добрый день помогите пожалуйста ! Само условие я сделал . Не могу понять как задать от 2 до 30...

Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них
не понимаю код программы const word_count = 100; type type_string_array = array of string;...

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


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

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

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