Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
2 / 2 / 1
Регистрация: 02.05.2012
Сообщений: 59
1

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

16.09.2012, 13:30. Показов 1394. Ответов 2
Метки нет (Все метки)

Тема: Строки. Множества.
3.2.Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое четное слово
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.09.2012, 13:30
Ответы с готовыми решениями:

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

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

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

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

2
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,030
Записей в блоге: 1
16.09.2012, 14:28 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое четное слово
1
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
16.09.2012, 14:44 3
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

альтернативка =)
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
uses crt;
const g: set of char=['а','е','ё','и','о','у','ы','э','ю','я',
                      'А','Е','Ё','И','О','У','ы','Э','Ю','Я'];
      z: set of char=[' ','.',',',';',':','!','?','(',')'];
var s,sl: string;
    i,j,ns: byte;
    gs,res: set of char;
begin
write('s='); readln(s);
ns:=0; sl:=''; s:=s+' ';
for i:=1 to length(s) do
    if not (s[i] in z) then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          inc(ns);
          if ns mod 2=0 then
             begin
             gs:=[];
             for j:=1 to length(sl) do
                 if sl[j] in g then gs:=gs+[sl[j]];
             if ns=2 then res:=gs else res:=res*gs;
             end;
          sl:='';
          end;
write('Гласные, которые входят в каждое четное слово: ');
for i:=1 to 255 do
    if chr(i) in res then write(chr(i),' ');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.09.2012, 14:44

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

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

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

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

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


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

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

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