Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
konispat
2 / 2 / 2
Регистрация: 25.12.2011
Сообщений: 55
1

Строки и множества. Вывести в алфавитном порядке все буквы текста, входящие в него по одному разу

05.04.2012, 14:27. Просмотров 1730. Ответов 4
Метки нет (Все метки)

1.Вывести в алфавитном порядке все буквы текста, входящие в него по одному разу
2.Проиллюстрировать справедливость соотношений А \ В \ С = (А \ В) & (А \ С). :dontknow:

Добавлено через 18 часов 44 минуты
помогите пожалуста
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.04.2012, 14:27
Ответы с готовыми решениями:

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

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

Массивы. Строки. Напечатать все буквы, входящие в текст по одному разу
1.Создайте массив A c помощью генератора случайных чисел с вещественными элементами от -10 до 10 и...

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

Множества: в алфавитном порядке напечатать все малые латинские буквы, входящие в строку ровно 1 раз
Дана строка. В алфавитном порядке напечатайте (по разу) все малые латинские буквы, входящие в эту...

4
КонецСвета
Почетный модератор
7946 / 3917 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.04.2012, 19:32 2
Цитата Сообщение от konispat Посмотреть сообщение
1.Вывести в алфавитном порядке все буквы текста, входящие в него по одному разу
может, это поможет...
0
konispat
2 / 2 / 2
Регистрация: 25.12.2011
Сообщений: 55
05.04.2012, 20:51  [ТС] 3
КонецСвета,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var s: string;
    i,j,k: integer;
    
begin
write('s=');
readln(s);
for i:=1 to length(s) do
    if s[i] in ['а','б'..'ю','я'] then
       begin
       k:=0;
       for j:=1 to length(s) do
           if s[i]=s[j] then inc(k);
       if k=1 then
        write(s[i]);
       end;
end.
вот это программа подходит только незнаю как вывести в алфавитном порядке, видимо одной строчкой не обойдется
0
КонецСвета
Почетный модератор
7946 / 3917 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
06.04.2012, 00:00 4
konispat,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var s: string;
    i,j,k: integer;
    p:set of char;
 
begin
write('s=');
readln(s);
p:=[];
for i:=1 to length(s) do
    if s[i] in ['а'..'я'] then
       begin
       k:=0;
       for j:=1 to length(s) do
           if s[i]=s[j] then inc(k);
       if k=1 then p:=p+[s[i]];
       end;
for i:=224 to 255 do
    if chr(i) in p then write(chr(i));
end.
1
konispat
2 / 2 / 2
Регистрация: 25.12.2011
Сообщений: 55
06.04.2012, 08:52  [ТС] 5
КонецСвета, спасибо) вторую задачу реально решить? первый раз с таким встречаюсь
0
06.04.2012, 08:52
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.04.2012, 08:52

Вывести в алфавитном порядке буквы, входящие одновременно во все множества
Пусть D1, D3, D5, D7 – множества, составленные из букв, входящих в названия нечетных дней...

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

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


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

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

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