Форум программистов, компьютерный форум, киберфорум
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
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
27.01.2009, 18:13 0

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

27.01.2009, 18:13. Показов 3660. Ответов 3
Метки (Все метки)

Ответ

Не знаю точно ли соответствуют мои процедуры списку, но без них никак и все работает.
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
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
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.01.2009, 18:13
Готовые ответы и решения:

Удалить из первой строки символы, не принадлежащие второй строке
Нужна помощь. Составить программу, в результате выполнения которой из первой заданной строки...

Удалить из первой строки символы, которые содержатся во второй
Заданы две строки S1 и S2 . Удалить из строки S1 символы, содержащиеся в строке S2 .

Удалить из первой строки все слова, которые попадаются во второй строке
Ввести 2 строки, удалить из 1 строки все слова, которые попадаются в 2 строке. Срочно нужна...

Даны две строки.Выведите на экран все символы которые присутствуют как в первой так и во второй строке
Даны две строки.Выведите на экран все символы которые присутствуют как в первой так и во второй...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2009, 18:13
Помогаю со студенческими работами здесь

Удалить из предложения все символы, расположенные между первой и второй запятыми
1. Удалить из предложения все символы МЕЖДУ первой и второй запятыми. 2. Дано предложение, удалить...

Определить местоположение символа первой строки, который первым совпал с одним из символов второй строки.
Заданы 2 строки, состоящие из слов, разделенных пробелами. Определить местоположение символа первой...

Удалить из первой строки символы, которые встречаются во второй строке
Помогите, пожалуйста, составить программу: Удалить из первой строки символы, которые встречаются...

Используя множество символов первой строки, удалить все вхождения этих символов из второй строки
Реализовать вариант задачи, используя множества, двумя способами: в виде процедуры и с помощью...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru