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

Сформировать множества символов текстовых строк А, В и вывести элементы найденных множеств на экран.

25.11.2012, 14:15. Просмотров 990. Ответов 1
Метки нет (Все метки)

Сформировать множества символов текстовых строк А, В и вывести элементы найденных множеств на экран. найти
символы строки А, которые не входят в строку В, и символы строки В, которые не входят в строку А.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2012, 14:15
Ответы с готовыми решениями:

Даны два множества из чисел M и T (сформировать из строк ) и вывести элементы множеств меньше 5
Всем доброе время суток помогите пожалуйста решить задачку Условие :Даны два...

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

Множества. Вывести на печать все элементы этих множеств
ЦЕЛЬ РАБОТЫ. Освоение приемов объявления и использование структуры данных...

Из введенного множества символов сформировать и вывести множество, исключающее все цифры
Ребят, в чем ошибка??? Задание: "Из введенного множества символов сформировать...

Вывести на экран все общие и разные элементы двух множеств
написать программу на языке TP 7.0: Дано множества А и В, елементы которых...

1
CodeR
Фрилансер
3383 / 2784 / 3000
Регистрация: 08.02.2012
Сообщений: 6,825
Записей в блоге: 1
25.11.2012, 14:38 2
Лучший ответ Сообщение было отмечено Maria_Добрая как решение

Решение

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
Var A,B:string;
    m1,m2,m3:set of char;
    i:byte;
Begin
    write('Введите строку A: ');readln(a);
    write('Введите строку B: ');readln(b);
    m1:=[];m2:=[];
    For i:=1 to Length(a) do
     m1:=m1+[a[i]];
    For i:=1 to Length(b) do
     m2:=m2+[b[i]];
    writeln('множество символов строки A');
    For i:=0 to 255 do
     if chr(i) in m1 then write(chr(i):2);
    writeln;
    writeln('множество символов строки B');
    For i:=0 to 255 do
     if chr(i) in m2 then write(chr(i):2);
    writeln;
    writeln('Множество символов которые не входят в B но входят в A');
    m3:=m1-m2;
    For i:=0 to 255 do
     if chr(i) in m3 then write(chr(i):2);
    writeln;
    writeln('Множество символов которые не входят в A но входят в B');
    m3:=m2-m1;
    For i:=0 to 255 do
     if chr(i) in m3 then write(chr(i):2);
    readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2012, 14:38

Дано N множеств, состоящих из целых чисел. Вывести на экран элементы, принадлежащие всем множествам
Здравствуйте помогите пожалуйста решить) Цель: Решыть программу на языке...

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

Найти минимальные элементы строк и максимальный из найденных.
Помогите,пожалуйста,сделать задачку. Заранее благодарен.


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

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

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