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

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

16.12.2012, 18:58. Просмотров 949. Ответов 2
Метки нет (Все метки)

Друзья, помогите решить следующую задачу:

Дан произвольный текст. Напечатать в алфавитном порядке все гласные буквы, которые входят в этот текст по одному разу и согласные которые не входят в этот текст по одному разу.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2012, 18:58
Ответы с готовыми решениями:

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

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

Напечатать в алфавитном порядке все буквы, которые входят в текст по 1 разу
Вот наработки Добавлено через 26 секунд Program P16; var f1:text; c:char; i:integer; ...

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

Получить все числа которые входят в последовательность по одному разу
помогите написать программу даны целые числа A1..........An. получить все числа которые входят в...

2
Pasha_sch
1 / 1 / 6
Регистрация: 16.12.2012
Сообщений: 6
16.12.2012, 20:29 2
Лучший ответ Сообщение было отмечено prorider как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program Char_String;
  Var ch: Array[32..255] Of Byte;
      S:String;
      vowels,consonants: set of char;
      i,n:Integer;
begin
ReadLn(s);
n:=Length(s);
FillChar(ch, SizeOf(ch), 0);
For i:=1 to n do
 ch[ord(s[i])]:=ch[ord(s[i])]+1;
 vowels:=[{множество гласных}];
 consonants:=[{множество согласных}];
 For i:=32 to 255 do
 If (chr(i) in vowels) And (Ch[i]=1)
 Then Write(Chr(i):2);
 WriteLn;
  For i:=32 to 255 do
 If (chr(i) in consonants) And (Ch[i]<>1)
 Then Write(Chr(i):2);
End
.
0
nassoss
0 / 0 / 1
Регистрация: 29.06.2017
Сообщений: 1
18.12.2012, 20:45 3
Цитата Сообщение от prorider Посмотреть сообщение
Друзья, помогите решить следующую задачу:

Дан произвольный текст. Напечатать в алфавитном порядке все гласные буквы, которые входят в этот текст по одному разу и согласные которые не входят в этот текст по одному разу.
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
program buk;
 var
   m1,m2,m3:set of 'а'..'я'; 
   b,d:char; 
   s:string; 
   n,i:integer;
begin
    m1:=[];m2:=[];m3:=[]; 
    n:=0; 
   writeln('введите текст на русском'); 
  readln(s);
 for i:=1 to length(s) do  begin 
   b:=s[i]; 
   if b in m1 then m2:=m2+[b]; 
   m1:=m1+[b]; 
 end;
 m3:=m1-m2;
   for d:='а' to 'я' do
    if (d in m3) and (d in ['а','е','ё','и','о','у','ы','э','ю','я'] ) 
     then begin 
            writeln (d:3); 
            n:=n+1;
          end;
    if n=0 then writeln('гласных букв вообще нет');
    
    n:=0;
    for d:='а' to 'я' do
    if (d in m2) and not(d in ['а','е','ё','и','о','у','ы','э','ю','я'] ) 
     then begin 
            writeln (d:3);
            n:=n+1;
          end;
    if n=0 then writeln('согласных букв вообще нет');
    
end.
0
18.12.2012, 20:45
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2012, 20:45

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

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

Сформировать список L, включив в него по одному разу элементы, которые входят одновременно в оба списка L1 и L2. Ошибка
Сформировать список L, включив в него по одному разу элементы, которые входят одновременно в оба...

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


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

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

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