Из множества символов первой строки удалить символы содержащиеся во второй строке - Pascal - Ответ 97327

@Puporev · 27.01.2009, 18:13

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

Pascal

type Tmn=set of char;{тип множество символов}
procedure Create(a:string; var b:Tmn);{процедура создания множества}
var i:byte;
begin
b:=[];{сначала множество пустое}
for i:=1 to length(a) do{идем по строке}
if not (a[i] in b) then b:=b+[a[i]];{если символа нет в множестве, добавляем}
end;
procedure Print(var b:Tmn);{процедура вывода множества на экран}
var i:byte;
begin
for i:=1 to 255 do {проверяем все коды символов}
if chr(i) in b then {если символ с таким кодом есть в множестве}
write(chr(i),' '); {выводим}
writeln;
end;
var s1,s2:string;
m1,m2:Tmn;
i:integer;
begin
clrscr;
write('s1: ');readln(s1);
write('s2: ');readln(s2);
Create(s1,m1); {создаем множество}
writeln('Mnozestvo 1:');
Print(m1);{выводим на экран}
Create(s2,m2);
writeln('Mnozestvo 2:');
Print(m2);
writeln('Mnozestvo 1-2:');
m1:=m1-m2; {вычитаем из 1го множества 2е}
Print(m1); {то что осталось, выводим}
readln
end.

Добавлено через 1 минуту 47 секунд
Достали меня эти тэги. Какая-то ерунда получается.

Код

[SIZE=2]
type Tmn=set of char;[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]тип множество символов[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]procedure Create(a:string; var b:Tmn);[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]процедура создания множества[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]var i:byte;
begin
b:=[];[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]сначала множество пустое[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]for i:=1 to length(a) do[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]идем по строке[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]if not (a[i] in b) then b:=b+[a[i]];[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если символа нет в множестве, добавляем[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]end;
procedure Print(var b:Tmn);[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]процедура вывода множества на экран[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]var i:byte;
begin
for i:=1 to 255 do[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]проверяем все коды символов[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]if chr(i) in b then[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если символ с таким кодом есть в множестве[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]write(chr(i),' ');[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]выводим[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]writeln;
end;
var s1,s2:string;
m1,m2:Tmn;
i:integer;
begin
clrscr;
write('s1: ');readln(s1);
write('s2: ');readln(s2);
Create(s1,m1); [/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]создаем множество[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]writeln('Mnozestvo 1:');
Print(m1);[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]выводим на экран[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]Create(s2,m2);
writeln('Mnozestvo 2:');
Print(m2);
writeln('Mnozestvo 1-2:');
m1:=m1-m2;[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]вычитаем из 1го множества 2е[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]Print(m1);[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]то что осталось, выводим[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]readln
end.
[/SIZE]

Вернуться к обсуждению:
Из множества символов первой строки удалить символы содержащиеся во второй строке Pascal

Следующий ответ

Другие темы раздела
Pascal Определить,среднюю стоимость обуви каждого цвета Есть сведения о партии обуви: цвет(черный,коричневый,белый,серый),размер(36-45),фасон(мужские,женские),цена.Определить,среднюю стоимость обуви каждого цвета https://www.cyberforum.ru/ pascal/ thread21820.html	Pascal Дан массив строк. Записать в файл... Дан массив строк. Записать их в файл, расположив каждый элемент массива на отдельной строке с сохранением порядка. Пожалуйста помогите зделать программу, я уже 2ую неделю немогу додуматся как её...
Pascal Помогите решить задачку (Паскаль) 1) Дано натуральное число n. Вычислить: http://s58.***********/i160/0901/68/803f64da3bb2.jpg 2) В данной квадратной целочисленной матрице порядка 17 указать индэксы всех елементов с найбольшим... https://www.cyberforum.ru/ pascal/ thread21806.html	Pascal Найдите произведение вектора на матрицу (4):Дана некоторая денежная сумма А, руб. Определите, сколькими способами можно представить данную сумму «пятерками» и/или «десятками». (7):Два натуральных числа заданы последовательностями... https://www.cyberforum.ru/ pascal/ thread21804.html
Удалить из строки каждое слово четной длины Pascal Люди,кому не трудно,помогите плиз решить 2 задачки,очень надо,а в паскале 0 1)Найти количество и порядковые номера элементов массива вещественных чисел удовлетворяющих условию 2,1<Xi<7 2)Дана...	Pascal Создать файл целых чисел. Найти сумму и количество отрицательных элементов файла https://www.cyberforum.ru/ pascal/ thread21789.html Создать файл целых чисел.Найти сумму и количество отрицательных элементов файла.
Pascal слияние двух упорядоченных массивов в один упорядоченный это слияние двух упорядоченных массивов в один упорядоченный, программу я сама напишу, тока помогите немного врубиться Program SlivSort; Var A,B : array of integer; N : integer; Procedure... https://www.cyberforum.ru/ pascal/ thread21782.html	Задача по теме:Кодирование и декодирование информации Pascal Я в информатике ни бум-бум... а очень нужна программа, точнее две программы: 1) Программа, которая кодирует и декодирует буквы латинского алфавита. Надо использовать код, предложенный...
Pascal Частичная сумма ряда Учусь я на первом курсе института. Не важно какого. Суть в том что на информатике нам задали вот такое задание http://www.postimage.org/image.php?v=gxdPH8r А проблема то в том, что что такое... https://www.cyberforum.ru/ pascal/ thread21770.html	Pascal задача на массив. Помогите пожалуйста с решением задачи!! Задано семейство множеств букв.Найти такое "к",для которого можно построить множество,состоящее из "к"букв,причем каждая из них принадлежит ровно... https://www.cyberforum.ru/ pascal/ thread21758.html
Осуществить ввод элементов заданного множества с клавиатуры Pascal Осуществить ввод элементов заданного множества с клавиатуры.Определить является ли множество {'T' , 'h' , 'j' , 'к'} его подмножеством. Заранее спасибо неужели никто помочь не может(((((	Pascal Вычислить значение функции для введенного с клавиатуры значения аргумента 2 оч простые задачки,а как решаются не помню((кто может помочь решить или хотя бы кинуть пример решения,помогите плиз 1)вычислить значение ф-ии для введенного с клавиатуры значения аргумента: ... https://www.cyberforum.ru/ pascal/ thread21756.html